易语言数学函数图像源码

.版本 2

.子程序 _按钮1_被单击
.局部变量 theta, 整数型
.局部变量 X, 小数型
.局部变量 y, 小数型
.局部变量 i, 整数型
.局部变量 a, 双精度小数型
.局部变量 b, 双精度小数型

a ＝ 50
b ＝ 0.8
' 改变a，b的值，可以得到不同的函数图像
.计次循环首 (36000, i)
    theta ＝ theta ＋ i × #pi ÷ 18000
    X ＝ (a ＋ b) × 求余弦 (1 × theta) － a × 求余弦 ((a ＋ b) × theta ÷ b)
    y ＝ (a ＋ b) × 求正弦 (1 × theta) － a × 求正弦 ((a ＋ b) × theta ÷ b)
    画板1.画点 (X × 2 ＋ 300, y × 2 ＋ 240, #红色)
    ' 处理事件 ()
    ' 输出调试文本 (到文本 (X ＋ 300) ＋ “        ” ＋ 到文本 (y ＋ 30))
.计次循环尾 ()

@清秀男儿