رسم الدوال المثلثية جا ، جتا ، و ظا :

انسخ شفرة الإجراءات التالية والصقها بمحرر لوجو ، واحفظ في والذاكرة و اخرج إلي نافذة الأوامر ونشطها واكتب كلمة :

do

في صندوق الإدخال .

to do
; برنامج لرسم منحنيات الجيب وجيب التمام والظل.
; يجب أن تدخل اسم الدالة يدويا في إجراء اسمه
; "to plot".
; jfuller EDUCATIONAL 1999
cs
pu
home
pd
initialise
grid
do.while [increment plot] [:angle<360]
; يحدد التكرار مقدار الزيادة
; وينادي إجراءات الرسم حتى يتحقق الشرط
; .
end

to grid
; رسم محاور الإحداثيات
fd 400
bk 800
home
rt 90
fd 400
bk 800
home
end

to increment
;مقدار التزايد في المحور السيني
make "angle :angle + 1
make "Xvalue :Xvalue + 1
end

to initialise
; القيم الابتدائية للمتغيرات.
make "angle 0
make "Yvalue 0 ; القيمة الابتدائية للمحور الصادي
make "Xvalue 0 ; القيمة الابتدائية للمحور السيني
end

to plot
make "Yvalue (sin :angle)
; ********************
; عوض عن قيمة الجيب أو الجتا أو الظل في الصيغة السابقة
setpos (list :Xvalue :Yvalue * 100)
end

البرنامج السابق مرغوب لأنه يدفعك للتعامل مع الشفرة ، وإذا أردت أن تجعل التغيير أسهل و لكنه ليس أفضل فالبرنامج التالي إصدار محدث من البرنامج حيث استخدمنا أمر تشغيل القائمة

RUN list

كما أن المحاور مدرجة:

to do

; برنامج لرسم منحنيات الجيب وجيب التمام والظل.

; يجب أن تدخل اسم الدالة يدويا في إجراء اسمه

; "to plot".

; jfuller EDUCATIONAL 1999

;modified by Dr\Mahmoud Badr

cs

make "y1 questionbox [برنامج لرسم الدوال المثلثية] [أكتب الدالة التي تريد رسمها من فضلك]

show :y1

pu

home

pd

initialise

grid

do.while [increment plot] [:angle<360]

; يحدد التكرار مقدار الزيادة

; وينادي إجراءات الرسم حتى يتحقق الشرط

; .

end

to grid

; رسم محاور الإحداثيات

repeat 4[home rt repcount *90 halfaxis ]

home

end

to halfaxis

;رسم نصف محور

repeat 40[fd 5 rt 90 fd 2 bk 2 lt 90 fd 5 rt 90 fd 4 bk 4 lt 90]

end

to increment

;مقدار التزايد في المحور السيني

make "angle :angle + 1

make "Xvalue :Xvalue + 1

end

to initialise

; القيم الابتدائية للمتغيرات.

make "angle 0

make "Yvalue 0 ; القيمة الابتدائية للمحور الصادي

make "Xvalue 0 ; القيمة الابتدائية للمحور السيني

end

to plot

; ********************

; عوض عن قيمة الجيب أو الجتا أو الظل في الصيغة السابقة

make "Yvalue run :y1

setpos (list :Xvalue :Yvalue * 100)

end

ملحوظة : يمكنك أن تحسن من مظهر الرسم بإضافة قيم للمحاور ، يمكنك أيضاً تطوير البرنامج ليرسم آي دالة .