LoginSignup
0
0

More than 5 years have passed since last update.

小さなお友だちの為の MacOsXでBASIC #15 回転行列その1

Last updated at Posted at 2015-02-14

記述する動機

私、とある専門学校で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,y)をθ回転したときの座標を(x',y')とすると
x' = xcos(θ)- sin(θ)
y' = asin(θ) + cos(θ)
となります。

15.BAS

15.BAS
10 SET WINDOW -2,2,-2,2
20 DRAW GRID
30 SET POINT COLOR 4
40 SET POINT STYLE 4
50 PLOT POINTS: 1 , 1
60 PLOT POINTS: 1*COS(PI/4) - 1*SIN(PI/4) , 1*SIN(PI/4) + 1*COS(PI/4)
70 END

実行結果

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