LoginSignup
0
0

More than 5 years have passed since last update.

小さなお友だちの為の MacOsXでBASIC #13 極方程式からの正葉線 r = sin 2θ

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
を御覧ください。

極方程式を媒介変数形に変形

極方程式でr=f(θ)の場合
媒介変数表示では
x=f(θ)*cos(θ)
y=f(θ)*sin(θ)
r=sin(2θ)の場合、正葉戦となります。
プログラムとしては、以下のコード

13.BAS

13.BAS
10 DEF f(t)=SIN(2*t)
20 SET WINDOW -1,1,-1,1
30 DRAW grid
40 FOR t=0 TO 2*PI STEP PI/360
50    PLOT LINES: f(t)*COS(t), f(t)*SIN(t);
60 NEXT t
70 END

実行結果

おお!きれいに描画できてます。
スクリーンショット 2015-02-13 5.38.02.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