Sayfa 100

320 Y = V( ABS( E ( E )), 2 ) 330 Z = V( ABS( E ( E )), 3 ) 340 GOSUB 520 350 IF E(E)>0 THEN LINE( U1*2+75,V1+20 )-( U*2+75,V+20 ) 360 U1 = U: V1 = V 370 NEXT E 380 GOTO 190 390 CH = COS(H): SH = SIN(H) 400 CP = COS(P): SP = SIN(P) 410 CB = COS(B): SB = SIN(B) 420 AM = CB * CH - SH * SP * SB 430 BM = -CB * SH - SP * CH * SB 440 CM = CP * SB 450 DM = SH * CP 460 EM = CP * CH 470 FM = SP 480 GM = -CH * SB - SH * SP * CB 490 HM = SH * SB - SP * CH * CB 500 IM = CP * CB 510 RETURN 520 X = X - XV 530 Y = Y - YV 540 Z = Z - ZV 550 X3 = AM * X + BM * Y + CM * Z 560 Y3 = DM * X + EM * Y + FM * Z 570 Z3 = GM * X + HM * Y + IM * Z 580 U = 135 +13.5* D - X 3 / Y 3 590 V = 80-11.5 *D*Z3 Y3 600 RETURN 610 DATA 124 620 DATA 0,-2.2,46.1.5.-2.6,46,2.2,-4.6,46,1.7,-6.5,46,0,-6.7,46 630 DATA -1.7,-6.5.46.-2.2.-4.6,46,-1.5,-2.6,46 640 DATA 0,-.8,43,2.8,-1.5,43,4,-4.5,43,3,-7.2,43,0,-8,43,-3,-7.2,43 650 DATA -4,-4.5,43,-2.8.-1.5,43 660 DATA 0,1.7,38,4.6.0.38,5.8,-4.4,38,4,-8.2,38,0,-9,38,-4,-8.2,38 670 DATA -5.8,-4.4,38,-4.6,0,38 680 DATA 0,4,32.5,4.5.1.32.5,5.8,-4.6,32.5,4,-9,32.5,0,-9.5,32.5,-4,-9,32.5 690 DATA -5.8,-4.6,32.5.-4.5,1,32.5 700 DATA 0,8,26.3,3.5,7,26.3,7.8,2,26.3,8,-7,26.3,0,-9.8,26.3,-8,-7,26.3 710 DATA -7.8,2,26.3,-3.5.7.26.3 720 DATA 0,8,21.5,3.8,7.5,21.5,8,3,21.5,8,-8,21.5,0,-9.8,21.5,-8,-8,21.5 730 DATA -8,3,21.5,-3.8,7.5,21.5 740 DATA 0,8,14,4.7,7,14,8,4,14,8,-8.7,14,0,-10,14,-8,-8.7,14,-8,4,14 750 DATA-4.7,7,14