1 '�U“®‚Ì“`’B—¦‚ld�A—Í‚Ì“`’B—¦‚lf‚̃Oƒ‰ƒt‚ð•`‰æ‚·‚éBASICƒvƒ�ƒOƒ‰ƒ€
  5 '========================== �‰Šú�Ý’è =========================
 10 CLS 3: SCREEN 3
 20 XPOS = 220: YPOS = 200
 30 PAI=3.14159# : ZOOMX=65 :ZOOMY=50
 35 '===================== ƒOƒ‰ƒt‚̃tƒŒ�[ƒ€�ì�¬ ====================
 40 LINE (XPOS,YPOS+2*ZOOMY)-(XPOS+3*ZOOMX, YPOS-3*ZOOMY),7,B
 50 LINE (XPOS+ZOOMX,YPOS+2*ZOOMY)-(XPOS+ZOOMX,YPOS-3*ZOOMY),7,,2
 60 LINE (XPOS,YPOS)-(XPOS+3*ZOOMX,YPOS),7,,2
 70 LOCATE 20,21 : PRINT"�U“®‚Ì“`’B—¦‚ld�A—Í‚Ì“`’B—¦‚lf‚̃Oƒ‰ƒt": LOCATE 26,12 : PRINT "1"
 80 LOCATE 24,2 : PRINT "100" : LOCATE 26,19 : PRINT "0.1": LOCATE 24,18 : PRINT "0.1"
 90 LOCATE 35,19 : PRINT "1" : LOCATE 51,19 :PRINT"10"
 95 '======================= ƒOƒ‰ƒt‚Ì•`‰æ =========================
100 LOCATE 32,2 : INPUT "Œ¸�Š”äƒÄ‚Í";Z
110 FOR A=0 TO 3 STEP .003
120 M=sqr((1+(2*Z*A)^2)/((1-A^2)^2+(2*Z*A)^2))
130 IF M>20 THEN GOTO 150
135 IF M<0.14 THEN GOTO 150
140 PSET(XPOS+A*ZOOMX,YPOS-log(M)*ZOOMY),4
150 NEXT A
160 GOTO 100
170 END