XProfan

Español

p.specht

Wer siempre ya wissen quería, como rápidamente z.B. una Elektron fliegen muß, en una Kilogramm Masse a entsprechen, el kann se con el nachstehenden Programa veces el Beschleunigungsspannung ansehen, el dazu nötig wäre...

Wenn uno nun bedenkt, daß Protonen rund 1000 veces schwerer son, el versteht langsam, por qué heutige Beschleunigerringe como jener de CERN así una großen Durchmesser haben necesario: Anders wären el auftretenden Fliehkräfte magnetisch no mehr beherrschbar!

Kompilieren Marca Separación

Windowtitle "Relativistische Masse y Geschwindigkeit beschleunigter Elektronen"
' Demo uno Fortran-90-Übersetzung después de XProfan-11.2a
' (D) 2017-02 by P.Pájaro carpintero, Vienna/Austria; Ohne Gewähr!
' Q: https://jean-pierre.moreau.pagesperso-orange.fr/Fortran/rel_mass_f90.txt
'!********************************************************
'!* Calculate relativistic mass and speed of a electron *
'!* accelerated en a electron gun                       *
'!* ---------------------------------------------------- *
'!* SAMPLE RUN:                                          *
'!*                                                      *
'!* Give electron gun voltage en 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:
'!------------
'!
'! An electron accelerated by a voltage V en a electron gun
'!
'!                              2     2
'! acquires a energy of Ve = mc - m c,  where
'!                                  0
'!                                        -19
'!  charge on a electron   e = 1.602 x 10    coulomb
'!
'!                                         -31
'!  rest mass               m  = 9.109 x 10    kg
'!                           0
'!                                         8
'!  speed of light          c = 2.9979 x 10  m/s
'!
'! The speed v of a electron of relativistic mass m (kg) is
'! obtained from
'!                                          2
'!                 m/m  = 1 / sqrt(1 - (v/c) )
'!                    0
'!
'!-----------------------------------------------------------
'Program Rel_Mass
'  Implicit None    !All variables must be declared
declarar rest_mass!, rela_mass!'! kg
declarar voltage!,v$'! volt
declarar speed!'! m/s
declarar e!'! electron charge en coulomb
declarar c!'! speed of light en m/s
rep:
e!=val("1.602e-19")
c!=2.9979e8
rest_mass!=val("9.109e-31")
imprimir "\n  Give electron gun voltage en volts [V]: ";
input v$:caso v$>"":voltage!=val(v$)
rela_mass! = (voltage!*e!+rest_mass!*sqr(c!))/sqr(c!)
speed! = c!*sqrt(1.0-sqr(rest_mass!/rela_mass!))
imprimir "\n Relativistic mass [kg] and speed [m/s]:\n"
imprimir " ";format$("%g",rela_mass!);" , ";format$("%g",speed!)
waitinput
cls
goto "rep"
End' of file rel_mass.f90