Listing of file='MFIELD.BAS;01' on disk='vmedia/ncc_4-sector.ccvf'
1 PLOT 6,2,12 10 INPUT "HOW MANY CHARGES DO YOU HAVE? ";N 30 FOR I= 1TO N 32 PRINT "X AND Y POSITIONS OF CHARGE";I;": ";:INPUT "";A(I),B(I) 34 NEXT I 35 FOR I= 1TO N:A(I)= A(I)* SQR (3)/ 2:NEXT I 40 PRINT "TYPE IN THE SIZE OF EACH CHARGE. USE 3 FOR A CHARGE OF 3Q" 50 FOR I= 1TO N:PRINT "CHARGE";I;": ";:INPUT "";C(I):NEXT I 100 PLOT 12 130 FOR J= 0TO 62STEP 2 135 X= J* SQR (3)/ 2 140 FOR Y= 0TO 63 150 GOSUB 700 155 Z= ((Z+ 1)* 50- 32)* 2/ 3 156 IF Z< 0THEN Z= 0 158 IF Z> 63THEN Z= 63 160 B$= CHR$ (Z) 165 IF Z> INT (Z)+ .5THEN B$= " " 170 PLOT 6,Z,96 250 NEXT Y 260 NEXT J 270 END 280 GOTO 130 700 V= 0 780 FOR I= 1TO N 785 R= SQR ((X- A(I))^ 2+ (Y- B(I))^ 2) 790 IF R= 0THEN 800 795 V= V+ C(I)/ R:GOTO 805 800 V= 99999:GOTO 810 805 NEXT I 810 Z= V 820 RETURN