楕円のグラフ [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
長径A=1.0に対し、短径B=0.00~1.00の範囲で、STEP 0.01で変化させ、LINE COLORを乱数でSETして描画させてみました。
こういうことが簡単にできるのも、BASICの面白さかも知れませんね。
(by 心如)
2012-04-05 21:56
nice!(0)
コメント(0)
トラックバック(0)
コメント 0