text.txt

来自「为简单的函数绘图语言编写一个解释器语法制导部分 语法制导注意：必须严格按照下面」· 文本 代码 · 共 33 行

origin is(20,200);
rot is 0;
scale is (40,40);
for T from 0 to 2*pi+pi/50 step pi/50 draw(t,sin(t));
origin is(20,240);
for T from 0 to 2*pi+pi/50 step pi/50 draw(t,sin(t));
origin is(20,280);
for T from 0 to 2*pi+pi/50 step pi/50 draw(t,sin(t));

origin is(380,240);
scale is(80,80/3);
rot is pi/2+0*pi/3;
for T from -pi to pi step pi/50 draw(cos(t),sin(t));
rot is pi/2+2*pi/3;
for T from -pi to pi step pi/50 draw(cos(t),sin(t));
rot is pi/2-2*pi/3;
for T from -pi to pi step pi/50 draw(cos(t),sin(t));

origin is(580,240);
scale is(80,80);
rot is 0;
for t from 0 to 2*pi step pi/50 draw(cos(t),sin(t));
for t from 0 to Pi*20 step Pi/50 draw
((1-1/(10/7))*Cos(T)+1/(10/7)*Cos(-T*((10/7)-1)),
(1-1/(10/7))*Sin(T)+1/(10/7)*Sin(-T*((10/7)-1)));

origin is(780,240);
rot is 0;
scale is(40,40);
for t from 0 to 2*pi step pi/100 draw(cos(t),sin(t));
scale is (80,80);
for t from 0 to 2*pi step pi/200 draw(cos(t),sin(t));