home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Saturn 1
/
Saturn.iso
/
lernen
/
301
/
301.exe
/
LEKT7.01F
< prev
next >
Wrap
Text File
|
1993-09-17
|
340b
|
20 lines
;Definieren von Formeln und Konstanten
pi= 3.14159265359
e= 2.718281828459
;L÷sung quadratischer Gleichungen:
;a*x^2+b*x+c=0
a=2
b=0
c=4
x1=(-b+sqrt(b^2-4*a*c))/(2*a)
x2=(-b-sqrt(b^2-4*a*c))/(2*a)
;Hyperbelfunktionen
sinh(x)=(exp(x)-exp(-x))/2
cosh(x)=(exp(x)+exp(-x))/2
tanh(x)=(exp(x)-exp(-x))/(exp(x)+exp(-x))