CLIPS 6.0 CODE(defrule determine-ye

CLIPS 6.0 CODE
(defrule determine-yellow-leaves
(leaves-color yellow)
=)
(assert (fired rule1))
(printout t ”WHAT IS THE COLOR OF LEISONS”crlf)
(printout t ”OPTIONS:1.YELLOW 2.OTHER”crlf)
(bind ?leison-color (read))
(if(eq ?leison-color 1) then (assert (leison-color
yellow))
else(if(eq ?leison-color 2) then (assert
(check-foot-rot))))
Above code is taken from Rice pest management
module of AgPest.

ผลลัพธ์ (ไทย) 1:

รหัสคลิป 6.0(defrule กำหนดสีเหลืองใบไม้(ใบสีเหลือง)=)(ยืนยันรูป (ใช้เผาไหม้ rule1))(พิมพ์ t "ที่เป็นสีของ LEISONS" crlf)(พิมพ์ t "OPTIONS:1.YELLOW 2.OTHER"crlf)(ผูกหรือไม่? (อ่าน) สี leison)(ถ้า (eq ? leison-สี 1) แล้ว (ยืนยันรูป (สี leisonสีเหลือง))อื่น (ถ้า (eq ? leison สี 2) แล้ว (ยืนยันรูป(เครื่องหมายเท้า-rot)))ข้างต้นรหัสนำมาจากการจัดการศัตรูพืชของข้าวโมดูล AgPest

ผลลัพธ์ (ไทย) 2:

คลิป 6.0 รหัส
(defrule กำหนดเหลืองใบ
(ใบสีเหลือง)
=)
(ยืนยัน (Rule1 ยิง))
(พิมพ์ออกมาที "สิ่งที่เป็นสีของ LEISONS" การ CRLF)
(พิมพ์ออกมาที "ตัวเลือก: 1.YELLOW 2.OTHER "CRLF)
(ผูก? leison สี (อ่าน))
(ถ้า (EQ? leison สี 1) แล้ว (ยืนยัน (leison
สีเหลือง))
อื่น ๆ (ถ้ามี (EQ? leison สี 2) แล้ว (ยืนยัน
(ตรวจสอบน้ำา เท้าเน่า))))
เหนือรหัสถูกนำมาจากการจัดการศัตรูพืชข้าวโมดูลของ AgPest

ผลลัพธ์ (ไทย) 3:

คลิป 6.0 รหัส
( defrule หาใบไม้สีเหลือง
( ใบสีเหลือง )
= )
( ยืนยัน ( ไล่ออก rule1 )
( t " พิมพ์สีอะไร leisons " CRLF )
( พิมพ์ T " ตัวเลือก : 1.yellow 2 CRLF อื่นๆ " )
( มัด ? leison สี ( อ่าน ) )
( ถ้าข้อมูล ? leison สี 1 ) แล้ว ( ยืนยัน leison

สีเหลือง ) อีก ( ถ้าข้อมูล ? leison สี 2 ) แล้ว ( ยืนยัน
( ตรวจเท้าเปื่อย ) ) ) ) ) ) ) )

รหัสข้างต้นจะมาจากการจัดการศัตรูพืชข้าวโมดูล ของ agpest .