home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / math.ark / ACCEL.BAS next >
Encoding:
BASIC Source File  |  1986-12-21  |  896 b   |  26 lines
  1.    10 REM THIS PROGRAM CALCULATES THE ENERGIES AND WIRE LENGTH FACTORS FOR
  2.    20 REM A TUNED LINEAR ACCELERATOR. WRITTEN BY MIKE FINERTY 4-10-84
  3.    30 REM                     IN NEVADA BASIC 12 DIGIT PRECISSION
  4.    40 INPUT "STARTING ENERGY",S1
  5.    50 INPUT "ENDING ENERGY",S2
  6.    60 INPUT "NUMBER OF ACCELERATING STEPS",N
  7.    70 PRINT "AVERAGE ACCELERATING ENERGY ";(S2-S1)/N;" ELECTRON VOLTS"
  8.    80 FOR E=S1 TO S2 STEP (S2-S1)/N
  9.    90 LET C=2.99792458E8
  10.   100 LET E0=5.110041E5
  11.   110 LET B=4*(E/E0)^2*C^2
  12.   120 LET D=4*(E/E0)^2*C^4
  13.   130 LET A=1
  14.   140 LET V2=-B/2+(B^2+4*D)^.5/2
  15.   150 LET V=V2^.5
  16.   160 LPRINT "ENERGY","ELECTRON VELOCITY","V/C%"
  17.   170 LPRINT E,V,TAB(42);V/C*100
  18.   180 IF V=0 THEN 210
  19.   190 LPRINT "DELTA = ";C/V-INT(C/V)
  20.   200 LPRINT 
  21.   210 NEXT 
  22. %"
  23.   170 LPRINT E,V,TAB(42);V/C*100
  24.   180 IF V=0 THEN 210
  25.   190 LPRINT "DELTA = ";C/V-INT(C/V)
  26.   200 LPRINT