XProfan

Français

p.specht

qui toujours déjà savons voulais, comment vite z.B. un Elektron fliegen doit, um einem Kilogramm Masse trop entsprechen, qui peux sich avec dem nachstehenden Programme fois le Beschleunigungsspannung regarder, qui en supplément nötig wäre...

si on eh bien bedenkt, qui Protonen rund 1000 la fois schwerer sommes, qui versteht lente, pourquoi heutige Beschleunigerringe comment celui-là de CERN so une grand Durchmesser avons doit: Anders wären qui auftretenden Fliehkräfte magnétique pas plus beherrschbar!

Kompilieren Marque Séparation

Windowtitle "Relativistische Masse et Geschwindigkeit beschleunigter Elektronen"
' Demo einer Fortran-90-Übersetzung pour XProfan-11.2a
' (D) 2017-02 by P.Specht, Vienna/Austria; sans Gewähr!
' Q: https://jean-pierre.moreau.pagesperso-orange.fr/Fortran/rel_mass_f90.txt
'!********************************************************
'!* Calculate relativistic mass and speed of à electron *
'!* accelerated dans à electron gun                       *
'!* ---------------------------------------------------- *
'!* SAMPLE RUN:                                          *
'!*                                                      *
'!* Give electron gun voltage dans volts: 1e6              *
'!*                                                      *
'!* Relativistic mass (kg) and speed (m/s):              *
'!*  2.6933944E-30  2.8212490E+08                        *
'!*                                                      *
'!* ---------------------------------------------------- *
'!* Ref.: "Problem Solving with Fortran 90 By David R.   *
'!*        Brooks, Springer-Verlag New York, 1997".      *
'!********************************************************
'!Explanations:
'!------------
'!
'! à electron accelerated by a voltage V dans à electron gun
'!
'!                              2     2
'! acquires à energy of Ve = mc - m c,  where
'!                                  0
'!                                        -19
'!  charge on à electron   e = 1.602 x 10    coulomb
'!
'!                                         -31
'!  reste mass               m  = 9.109 x 10    kg
'!                           0
'!                                         8
'!  speed of light          c = 2.9979 x 10  m/s
'!
'! The speed v of à electron of relativistic mass m (kg) is
'! obtained à partir de
'!                                          2
'!                 m/m  = 1 / sqrt(1 - (v/c) )
'!                    0
'!
'!-----------------------------------------------------------
'Program Rel_Mass
'  Implicit None    !All variables must être declared
declare rest_mass!, rela_mass!'! kg
declare voltage!,v$'! volt
declare speed!'! m/s
declare e!'! electron charge dans coulomb
declare c!'! speed of light dans m/s
rep:
e!=val("1.602e-19")
c!=2.9979e8
rest_mass!=val("9.109e-31")
imprimer "\n  Give electron gun voltage dans volts [V]: ";
input v$:cas v$>»:voltage!=val(v$)
rela_mass! = (voltage!*e!+rest_mass!*sqr(c!))/sqr(c!)
speed! = c!*sqrt(1.0-sqr(rest_mass!/rela_mass!))
imprimer "\n Relativistic mass [kg] and speed [m/s]:\n"
imprimer " ";format$("%g",rela_mass!);" , ";format$("%g",speed!)
waitinput
cls
goto "rep"
Fin' of file rel_mass.f90