10秒目をつむったら…

FOR I=-200 to 200
FOR J=-200 to 200
X(0) = I / 100 ; Y(0) = J / 100
FOR N=0 to 1000
X(N+1) = X(N)^2 - Y(N)^2 + X(0)
Y(N+1) = 2*X(N)*Y(N)+Y(0)
IF X(N)^2 + Y(N)^2 > 4
THEN PSET(I,J) WHITE
ELSE IF N = 1000 THEN
PSET(I,J) BLUE
ELSE NEXT N
END IF
NEXT J; NEXT I

というグラフを書くプログラムがあるのですがこのプログラムの使い方がわからなくて使えないのでどのようにすれば見れるのか教えてください。

A 回答 (2件)

> X(N+1) = X(N)^2 - Y(N)^2 + X(0)


> Y(N+1) = 2*X(N)*Y(N)+Y(0)

見た感じ、マンデルブロ集合を描くものっぽいので、その手のソフトを探してみては。

400×400くらいなら、MS-Excel 2007でも描けそう。

参考URL:http://www.vector.co.jp/vpack/filearea/win/art/g …
    • good
    • 0

このカテゴリはc/c++です。


言語はBASICのようですが、このプログラム自体は不完全だと思います。
確認してみましょう。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!