ちーちゃん(札幌) [chisapporo] です。

ちーのgoo版でーす。 \(^0^)/
よろしく!!

ちーからのX'masプレゼント(再放送) 多重円プログラムでーす。(*^_^*)

2017-12-25 15:56:22 | 日記

こんにちはー、ちーでーす。(*^_^*)










・多重円プログラム 角=6 半径=50



・多重円プログラム 角=3 半径=50




・多重円プログラム for 十進BASICシステム

5 SET BITMAP SIZE 1200,1200
10 SET WINDOW -550,550,-550,550
15 SET POINT STYLE 1
20 INPUT PROMPT "角数は?": a
25 INPUT PROMPT "半径は?": f
30 LET a=200/a
40 FOR b=0 TO 200 STEP 0.1
42 LET c=PI*2*b/200
44 LET x=f*COS(c)
46 LET y=f*SIN(c)
48 PLOT POINTS: X,Y
49 NEXT b
50 FOR b=0 TO 200 STEP a
55 LET c=PI*2*b/200
60 LET x=f*COS(c)
70 LET y=f*SIN(c)
80 FOR d=0 TO 200 STEP 0.1
90 LET e=PI*2*d/200
100 LET x1=f*COS(e)+x
110 LET y1=f*SIN(e)+y
115 PLOT POINTS: X1,Y1
120 NEXT d
122 FOR d=0 TO 200 STEP a
130 LET e=PI*2*d/200
200 LET x1=f*COS(e)+x
210 LET y1=f*SIN(e)+y
215 FOR g=0 TO 200 STEP 0.1
280 LET h=PI*2*g/200
290 LET x2=f*COS(h)+x1
300 LET y2=f*SIN(h)+y1
310 PLOT POINTS: X2,Y2
320 NEXT g
400 FOR g=0 TO 200 STEP a
410 LET h=PI*2*g/200
420 LET x2=f*COS(h)+x1
430 LET y2=f*SIN(h)+y1
440 FOR i=0 TO 200 STEP 0.1
450 LET j=PI*2*i/200
460 LET x3=f*COS(j)+x2
470 LET y3=f*SIN(j)+y2
480 PLOT POINTS: X3,Y3
490 NEXT i
500 FOR i=0 TO 200 STEP a
510 LET j=PI*2*i/200
520 LET x3=f*COS(j)+x2
530 LET y3=f*SIN(j)+y2
540 FOR k=0 TO 200 STEP 0.1
550 LET l=PI*2*k/200
560 LET x4=f*COS(l)+x3
570 LET y4=f*SIN(l)+y3
580 PLOT POINTS: X4,Y4
590 NEXT k
600 NEXT i
700 NEXT g
730 NEXT d
800 NEXT b
END



*注)上記の情報の真偽に関しては当Blogは一切保証いたしませんので、
  ご了承願います。又、上記の記述に関しては当Blogは社会的責任等他
  一切責任は負いませんので、ご了承願います。

 


当Blogでは記事の内容は保障できないの。
ごめんなさーい。m(_ _)m

 


閲覧ありがとうございまーす。(*^_^*)
今日はこれで、失礼いたしまーす。ヽ(^o^)丿

ジャンル:
きいて!きいて!
コメント   この記事についてブログを書く
« (訂正)改良型ひふみ/いろは渦... | トップ | 地球大皇帝様,地球大天使様,... »
最近の画像もっと見る

コメントを投稿

日記」カテゴリの最新記事