MATH GIRLS
ソースリスト1 タイトル:ひまわり
1 SET WINDOW -20,20,-20,20
2 SET COLOR 17
3 PLOT AREA :-20,20;-20,-20;20,-20;20,20
4 OPTION ANGLE DEGREES
5 OPTION BASE 0
6 PICTURE chou
7 DIM g(360),h(360)
8 FOR t=0 TO 360
9 LET g(t)=SIN(t)*ABS(EXP(COS(t))-2*COS(4*t)-(SIN(t/12)) ^5)
10 LET h(t)=COS(t)*ABS(EXP(COS(t))-2*COS(4*t)-(SIN(t/12)) ^5)
11 NEXT t
12 MAT PLOT AREA:g,h
13 DIM j(360),k(360)
14 FOR t=180 TO 360
15 LET j(t)=(COS(t))^3*1.5
16 LET k(t)=(SIN(t))^3*1.5+2.5
17 SET COLOR 1
18 PLOT LINES:j(t),k(t)
19 NEXT t
20 END PICTURE
21 SET AREA COLOR 24
22 DRAW chou WITH SHIFT(-10,20) v*ROTATE(-45)*SCALE(0.5)
23 SET AREA COLOR 40
24 DRAW chou WITH SHIFT(5,20)*ROTATE(-45)*SCALE(0.7)
25 SET AREA COLOR 30
26 DRAW chou WITH SHIFT(-20,3)*SCALE(0.5)*ROTATE(-30)
27 PICTURE chou2
28 DIM あ(180),い(180)
29 FOR t=0 TO 180
30 LET あ(t)=SIN(t)*ABS(EXP(COS(t))-2*COS(4*t)-(SIN(t/12))^5)
31 LET い(t)=COS(t)*ABS(EXP(COS(t))-2*COS(4*t)-(SIN(t/12))^5)
32 SET AREA COLOR 24
33 NEXT t
34 MAT PLOT AREA:あ,い
35 DIM う(270),え(270)
36 FOR t=180 TO 270
37 LET う(t)=(COS(t))^3*1.5
38 LET え(t)=(SIN(t))^3*1.5+2.5
39 SET COLOR 1
40 PLOT LINES:う(t),え(t)
41 NEXT t
42 END PICTURE
43 DRAW chou2 WITH SHIFT(10,20)*ROTATE(-45)
44 PICTURE sun
45 DIM z(360),x(360)
46 FOR t=0 TO 360
47 LET z(t)=COS(t)*2
48 LET x(t)=SIN(t)*2
49 NEXT t
50 SET AREA COLOR 27
51 MAT PLOT AREA:z,x
52 END PICTURE
53 DRAW sun WITH SHIFT(15,15)
54 SET LINE width 2
55 SET COLOR 27
56 PLOT LINES:13,12.5;11,10
57 PLOT LINES:15,9;15,12
58 PLOT LINES:17,12.5;19,10
59 PLOT LINES:12,15;9,15
60 PLOT LINES:13,17;11,19
61 PLOT LINES:18,15;21,15
62 PLOT LINES:17,17;19,19
63 PLOT LINES:15,17.5;15,20
64 PICTURE kumo
65 DIM c(360),v(360)
66 FOR t=0 TO 360
67 LET c(t)=COS(t)*1.5
68 LET v(t)=SIN(t)
69 NEXT t
70 SET AREA COLOR 0
71 MAT PLOT AREA:c,v
72 END PICTURE
73 DRAW kumo WITH SHIFT(-10,15)
74 DRAW kumo WITH SHIFT(-12.5,15)
75 DRAW kumo WITH SHIFT(-15,15)
76 DRAW kumo WITH SHIFT(-17.5,15)
77 DRAW kumo WITH SHIFT(-10,10)
78 DRAW kumo WITH SHIFT(-7.5,10)
79 DRAW kumo WITH SHIFT(-5,10)
80 DRAW kumo WITH SHIFT(-2.5,10)
81 DRAW kumo WITH SHIFT(-2.5,15)
82 DRAW kumo WITH SHIFT(0,15)
83 DRAW kumo WITH SHIFT(2.5,15)
84 DRAW kumo WITH SHIFT(5,15)
85 FOR w=0 TO 15 STEP 7.5
86 DRAW himawari WITH SHIFT(w,0)
87 NEXT w
88 FOR q=0 TO -15 STEP -7.5
89 DRAW himawari WITH SHIFT(q,0)
90 NEXT q
91 END
92 EXTERNAL PICTURE himawari
93 OPTION ANGLE DEGREES
94 SET COLOR 20
95 SET LINE width 10
96 PLOT LINES:0,-3;0,-12
97 PICTURE HA
98 DIM J(360),K(360)
99 FOR t=1 TO 360
100 LET J(t)=COS(t)*ABS(COS(t)+1)*1.5+3
101 LET K(t)=SIN(t)*ABS(COS(t)+1)*1.5-5
102 NEXT t
103 SET AREA COLOR 20
104 MAT PLOT AREA:J,K
105 SET COLOR 0
106 SET LINE width 1
107 PLOT LINES:3,-5;6,-5
108 PLOT LINES:3.5,-5;4,-3
109 PLOT LINES:4.5,-5;5,-3.2
110 PLOT LINES:3.1,-5;3.7,-7
111 PLOT LINES:4.1,-5;4.8,-7
112 PLOT LINES:5.1,-5;5.8,-6.5
113 END PICTURE
114 DRAW HA WITH SHIFT(-0.5,-0.5)
115 DRAW HA WITH ROTATE(180)*SHIFT(0,-7)
116 PICTURE kuki
117 SET COLOR 10
118 DIM L(360),Z(360)
119 FOR t=270 TO 320 STEP 1
120 LET L(t)=(COS(t))^3*5
121 LET Z(t)=(SIN(t))^3*5
122 PLOT LINES:L(t),Z(t)
123 NEXT t
124 END PICTURE
125 DRAW kuki WITH SHIFT(0,-4.1)
126 DRAW kuki WITH SCALE(-1,1)*SHIFT(0,-1)
127 PICTURE hana
128 DIM A(360),B(360)
129 FOR t=1 TO 360
130 LET A(t)=COS(t)*ABS(SIN(15*t))*4.5
131 LET B(t)=SIN(t)*ABS(SIN(15*t))*4.5
132 NEXT t
133 SET AREA COLOR 6
134 MAT PLOT AREA:A,B
135 END PICTURE
136 DRAW hana
137 PICTURE kaben
138 DIM C(360),D(360)
139 FOR t=1 TO 360
140 LET C(t)=COS(t)*ABS(SIN(22*t))*2.5
141 LET D(t)=SIN(t)*ABS(SIN(22*t))*2.5
142 NEXT t
143 SET AREA COLOR 12
144 MAT PLOT AREA:C,D
145 END PICTURE
146 DRAW kaben
147 PICTURE kaben2
148 DIM E(360),F(360)
FOR t=1 TO 360
LET E(t)=COS(t)*2
LET F(t)=SIN(t)*2
NEXT t
SET AREA COLOR 12
MAT PLOT AREA :E,F
END PICTURE
DRAW kaben2
PICTURE kaben3
DIM G(360),H(360)
FOR t=1 TO 360
LET G(t)=COS(t)*ABS(SIN(33*t))
LET H(t)=SIN(t)*ABS(SIN(33*t))
NEXT t
SET AREA COLOR 22
MAT PLOT AREA:G,H
END PICTURE
DRAW kaben3
END PICTURE
ソースリスト
担当 2年 松本
蝶を描くのに用いた関数
☆バタフライ曲線☆
極座標(r、θ)で、原点Oから曲線までの距離をr,直線rとx軸のなす角をθとし、
r=±a∗√(2∗cos(θ))
として定義された関数がパラメトリック方程式で定義される曲線の一種であるバタフライ曲線です。
以下の式で媒介変数にして実行させました。
X(t)=sin(t)*|e^(cos(t))-2∗cos(4∗t)-(sin(1/12∗t))^5|
Y(t)=cos(t)*|e^(cos(t))-2∗cos(4∗t)-(sin(1/12∗t))^5|
雲を描くのに用いた関数
☆楕円☆
雲はおなじみの楕円を繋げて描きました。
媒介変数表示にした式を用いて、MAT PLOT AREAで塗りつぶしできるようにしました。
PICTURE kumo
DIM c(360),v(360)
FOR t=0 TO 360
LET c(t)=COS(t)*1.5
LET v(t)=SIN(t)
NEXT t
SET AREA COLOR 0
MAT PLOT AREA:c,v
END PICTURE
DRAW kumo WITH SHIFT(-10,15) SHIFT文でずらして楕円を連結させて雲を描いています
☆アステロイド曲線☆
これは蝶の触覚部分に用いました。
以下の式で媒介変数にして実行させました。
A(t)=(cos(t))^3∗1.5+2.5
B(t)=(sin(t))^3∗1.5+2.5