今迄、複素関数:Z^Z関連の各種の画像を調べてきた。
今回の画像は、脱出後の pset 条件を以下のように変える。
・N-loop脱出後のpset条件:(|X|<100 or |Y|<100) ならばpsetする。
今迄の画像においては以下のようにした。
・N-loop脱出後のpset条件:(|X|<10 or |Y|<10) ならばpsetする。
この条件の変化によって画像が、かなり変化する。
--------------------------------------
以下画像の作成条件は以下のとおり。
1.複素関数:Z^Z+μ :μの値は各図に書いてある。
2.N-loop入力範囲:Xs,Xe,Ys,Ye の値は各図に書いてある。
3.N-loop脱出条件:(X^2+Y^2)>100 ならば脱出する。Nmax=50 or 100
4.N-loop脱出後のpset条件:(|X|<100 or |Y|<100) ならばpsetする。
N-loop脱出ときのN値をNoとすると、psetの色:CはC=No mod 16 とする。
但し、C=7ならばC=8とする。
5.N-loop貫通時は、C=15とする。
------------------------------------
画像の最後にBASIC/98のプロクラム例を書いておく。
注:以下の画像で (X^2+Y^2)^0.5>100は(X^2+Y^2)>100 の誤りである。
------------------------------------
-----------------------------------
-----------------------------------------------------------------
BASIC/98での画像作成プログラム例
10 REM Z^Z+C
30 CHAIN MERGE "C:\BASIC\PRO\SUBR\KOSHIKI.BAS",40,ALL
40 CHAIN MERGE "C:\BASIC\PRO\SUBR\ARCTAN3.BAS",50,ALL
50 CHAIN MERGE "C:\BASIC\PRO\SUBR\Z^ZA.BAS",51,ALL
51 CHAIN MERGE "C:\BASIC\PRO\SUBR\ER1.BAS",60,ALL
60 ON ERROR GOTO 50000
90 CONSOLE ,,0,1
100 COLOR 0,7,,,2
110 CLS 3
120 GOSUB 10000
210 XS=-3.5 :XE=3.5
220 D=(XE-XS)/640:DX=D:DY=D:YS=-240*DY:YE=-YS
240 FOR J=0 TO 480
260 FOR K=0 TO 640
270 X=XS+DX*K
280 Y=YS+DY*J
290 FOR N=0 TO 50
300 R=SQR(X^2+Y^2)
310 GOSUB 5000
320 GOSUB 9000
330 X=ZZR+0.1
340 Y=ZZI
350 Q=X^2+Y^2
360 IF Q>100 THEN 400
370 NEXT N
380 C=15
390 GOTO 430
400 IF ABS(X)<100 OR ABS(Y)<100 THEN 410 ELSE 460
410 C=N MOD 16
420 IF C=7 THEN C=8
430 REM
440 PSET(K,J),C
450 WRITE #1,K,J,C,N
460 NEXT K
470 NEXT J
500 END