'مع العلم ان pic هي اداة pictuer
dim x as integer
dim y as single
' ----------------------------------------
' يمكن تغيير القيم التالية لتغيير ابعاد الرسم
const min = -30
const max = 30
' ----------------------------------------
pic.scale (min, min)-(max, max)
for x = min to max
'----------------------------
' هنا اكتب معادلتك التي تريدها
y = x ^ 2
'----------------------------
if x = min then
pic.cls
pic.line (min, 0)-(max, 0), vbblack
pic.line (0, min)-(0, max), vbblack
pic.currentx = -100
pic.currenty = -y
else
pic.line -(x, -y), vbred
end if
next
