0
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 5 years have passed since last update.

小さなお友だちの為の MacOsXでBASIC #10 媒介変数を使ってアステロイド

Posted at

記述する動機

私、とある専門学校でPGを教えています。はや8年。いまだにSEもやってます。
学生さんたちに読んでもらうために書いているのですが、悩めるプログラマ、悩めるSE、悩める教育関係者にも何かのヒントにはなると思い、あえて公開していきたいと思います。全て実例です。個人名は秘密!!

BASIC

名前は「beginner's all-purpose symbolic instruction code」(「初心者向け汎用記号命令コード」を意味する)の頭字語である。

18歳以上はLinux,Macでc,Javaやりましょう。GCCを使えるようになりましょう。
14歳から18歳はOS問わず、IDEを使って、言語は何でもいい。
10歳から14歳は lua or BASIC おまけでscratch
10歳未満はコンピュータなんかやらんで良し。言語能力、身体能力を鍛えましょう。

前提

http://qiita.com/ggggnonaka/items/8cf3b069594e684f9c0e
を御覧ください。

媒介変数によるアステロイド曲線

媒介変数を用いると、アステロイド曲線は
x=rcosθ
y=r
sinθ
となります。
プログラムとしては、以下のコード
教科書的にはpi/180なんだけど、ちょっと粗いのでpi/1800にして描画しています。

10.BAS

10.BAS
10 SET WINDOW -8,8,-8,8
20 DRAW GRID
30 FOR t=0 TO 8*PI STEP PI/1800
40    LET r=8
50    PLOT LINES: r*(COS(t)^3) , r*(sin(t)^3)
60 NEXT t
70 END

実行結果

おお!きれいに描画できてます。
スクリーンショット 2015-02-11 14.17.43.png

0
0
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
0
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?