SSブログ

楕円のグラフ [BASIC]

REM *** 楕円のグラフ ***

RANDOMIZE
OPTION ANGLE DEGREES
SET WINDOW -1,1,-1,1
DRAW GRID (0.1,0.1)

LET A = 1

FOR B = 0.0 TO 1.0 STEP 0.01
   LET  C = INT(RND*30)+1
   SET LINE COLOR C
   FOR S = 0 TO 360
      PLOT LINES: A*COS(S),B*SIN(S);
   NEXT S
   PLOT LINES
   ASK COLOR MIX(C) R,G,D
   PRINT B;C;INT(R*100);INT(G*100);INT(D*100)
NEXT B

END
─────
BASIC 楕円.JPG


 長径A=1.0に対し、短径B=0.00~1.00の範囲で、STEP 0.01で変化させ、LINE COLORを乱数でSETして描画させてみました。

 こういうことが簡単にできるのも、BASICの面白さかも知れませんね。

(by 心如)


nice!(0)  コメント(0)  トラックバック(0) 

nice! 0

コメント 0

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

Facebook コメント

トラックバック 0

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。