|
|
!◇Amusement_Program [8]マンデルブロ集合の外周で、散歩」
!#t7/#8
!拡大を進めて行く内に、白い縦線が現れたり、真っ白になって フリーズ、
!になっていましたので、"拡大の限界" の表示と、入力制限を加えました。(編集済み)
!
!※座標が、限界を超えて微細化すると、for~next の step が止まり、
! 下の例の様に、自力の脱出が出来なくなっていました。
OPTION ARITHMETIC DECIMAL !complex での限界が あまり鮮明でないので。
CALL test( 5e-15 ) !正常 STEP の限界
CALL test( 4e-15 ) !無限ループになる
SUB test( dx)
PRINT "-----"
FOR x=1 TO 1+1e-14 STEP dx
FOR y=1 TO 1+1e-14 STEP dx
PRINT x,y
NEXT y
NEXT x
END SUB
END
|
|