XProfan

Konstanten
Def !Pi 3.14159265358979323846   Kreiszahl Pi  (höhere Genauigkeit)
Def !HalfPi 1.57079632679489661923   Pi / 2
Def !TwoPi 6.28318530717958647692   Pi * 2
Def !KehrPi 0.318309886183790671538035357467728   1 / Pi
Def !PiDiv180 0.0174532925199432957692   Pi / 180   (Grad- pour Bogenmaß) (Degree to Radian)
Def !f180DivPi 57.2957795130823208768463643441911   180 / Pi   (Bogenmaß pour Grad) (Radian to Degree)
Funktionen
Def @DegToRad(1) @Mul(@!(1),!PiDiv180)
Degree -> Radian  (Grad- pour Bogenmaß)
z.B.:  erg! = Sin(DegToRad(grad!))
Def @RadToDeg(1) @Mul(@!(1),!f180DivPi)
Radian -> Degree  (Bogenmaß pour Grad)
Def @Min!(2) @Si(@LT(@!(1),@!(2)),@!(1),@!(2))
Def @Max!(2) @Si(@GT(@!(1),@!(2)),@!(1),@!(2))
ermittelt cela Minimum et maximum zweier Float-Werte.
Def @Min&(2) @Si(@LT(@&(1),@&(2)),@&(1),@&(2))
Def @Max&(2) @Si(@GT(@&(1),@&(2)),@&(1),@&(2))
ermittelt cela Minimum et maximum zweier LongInt-Werte.
Def @SHL(2) (@&(1) << @&(2))
<<  bitweise pour à gauche schieben (entspricht einer Multiplikation avec 2)
Def @SHR(2) (@&(1) >> @&(2))
>>  bitweise pour à droite schieben (entspricht einer Division par 2)
Def @Odd(1) @Si(@Equ(((@&(1) >> 1) << 1),@&(1)),1,0)
Odd - Ungerade
Def @Neg(1) @Mul(@!(1),(-1.0))
Negation
Def @Cpl2(1) @Ajouter(@Mul(@!(1),(-1.0)),1)
Zweierkomplement
Def @Sgn!(1) @Si(@LT(@!(1),0.0),-1.0,@Si(@GT(@!(1),0.0),1.0,0.0))
Def @Sgn&(1) @Si(@LT(@&(1),0),-1,@Si(@GT(@&(1),0),1,0))
Signum
Def @Kubik(1) @Mul(@Sqr(@!(1)),@!(1))
x^3 == x³ == x² * x == x * x * x
Def @Log(2) @Div(@Ln(@!(1)),@Ln(@%(2)))
Logarithme zur la base N  ==  Log(numéro!,la base%) == Ln(x!) / Ln(N%)
Def @Log10(1) @Div(@Ln(@!(1)),@Ln(10.0))
Logarithme zur la base 10  ==  Ln(x) / Ln(10)
Def @Lg(1) @Div(@Ln(@!(1)),@Ln(10.0))     (Profan-Funktion)
Logarithme zur la base 10  ==  Ln(x) / Ln(10)
Def @Log2(1) @Div(@Ln(@!(1)),@Ln(2.0))
Logarithme zur la base 2  ==  Ln(x) / Ln(2)
Def @Ld(1) @Div(@Ln(@!(1)),@Ln(2.0))
Logarithme zur la base 2  ==  Ln(x) / Ln(2)
Def @Exp10(1) @Exp(@Mul(@!(1),@Ln(10.0))
10^x   Power of ten
Def @Exp2(1) @Exp(@Mul(@!(1),@Ln(2.0))
2^x   Power of two
Def @Exp(1) ...     (Profan-Funktion)
e^x   Power of Euler
Def @Sin(1) @Sqrt(@Sous(1.0,@Sqr(@Cos(@!(1)))))     (Profan-Funktion)
Sinus   y = Sqrt( 1 - Cos(x)^2 )
Def @Cos(1) ...     (Profan-Funktion)
Cosinus
Def @Tan(1) @Div(@Sin(@!(1)),@Cos(@!(1)))     (Profan-Funktion)
Tangens   y = Sin(x) / Cos(x)
Def @Cot(1) @Div(@Cos(@!(1)),@Sin(@!(1)))     (Profan-Funktion)
Cotangens   y = Cos(x) / Sin(x)  ou bien  y = 1 / Tan(x)
Def @Sec(1) @Div(1.0,@Cos(@!(1)))
Sekans   y = 1 / Cos(x)
Def @Csc(1) @Div(1.0,@Sin(@!(1)))
Cosekans   y = 1 / Sin(x)
Def @ArcSin(1) @Sous(!HalfPi,@ArcCos(@!(1)))
Arcus Sinus   y = 0.5 * Pi - ArcCos(x)  ou bien  y = ArcTan(x/Sqrt(1-Sqr(x)))
Def @ArcCos(1) @Mul(2.0,@ArcTan(Sqrt(@Div(@Sous(1.0,@!(1)),@Ajouter(1.0,@!(1))))))
Arcus Cosinus y = 2 * ArcTan( Sqrt( (1-x) / (1+x) ) )
y = ArcTan(-x / Sqrt(1-Sqr(x))) + 2 * ArcTan(1)
Def @ArcTan(1) ...     (Profan-Funktion)
Arcus Tangens
Def @ArcCot(1) @Sous(!HalfPi,@ArcTan(@!(1)))
Arcus Cotangens y = 0.5 * Pi - ArcTan(x)
y = ArcTan(x) + 2 * ArcTan(1)
Def @ArcSec(1) @ArcCos(@Div(1.0,@!(1)))
Arcus Sekans y = ArcCos( 1/x )
y = ArcTan(x/Sqrt(Sqr(x)-1)) + Sgn(x-1) * 2 * ArcTan(1)
Def @ArcCsc(1) @ArcSin(@Div(1.0,@!(1)))
Arcus Cosekans y = ArcSin( 1/x )
y = ArcTan(x/Sqrt(Sqr(x)-1)) + (Sgn(x)-1) * 2 * ArcTan(1)
Def @XHypSub(1) @Sous(@Exp(@!(1)),@Exp(@Neg(@!(1))))
Hilfsfunktion   y = Exp(x) - Exp(-x)
Def @XHypAdd(1) @Ajouter(@Exp(@!(1)),@Exp(@Neg(@!(1))))
Hilfsfunktion   y = Exp(x) + Exp(-x)
Def @Sinh(1) @Div(@XHypSub(@!(1)),2.0)
Hyperbel Sinus   y = (Exp(x) - Exp(-x)) / 2
Def @Cosh(1) @Div(@XHypAdd(@!(1)),2.0)
Hyperbel Cosinus   y = (Exp(x) + Exp(-x)) / 2
Def @Tanh(1) @Div(@Sinh(@!(1)),@Cosh(@!(1)))
Hyperbel Tangens   y = Sinh(x) / Cosh(x)
Def @Coth(1) @Div(@Cosh(@!(1)),@Sinh(@!(1)))
Hyperbel Cotangens   y = Cosh(x) / Sinh(x)
Def @Sech(1) @Div(2.0,@XHypAdd(@!(1)))
Hyperbel Sekans   y = 2 / (Exp(x) + Exp(-x))
Def @Csch(1) @Div(2.0,@XHypSub(@!(1)))
Hyperbel Cosekans   y = 2 / (Exp(x) - Exp(-x))
Def @ArcSinh(1) @Ln(@Ajouter(@!(1),@Sqrt(@Ajouter(@Sqr(@!(1)),1.0))))
Hyperbel Arcus Sinus   y = Ln( x + Sqrt(x²+1) )
Def @ArcCosh(1) @Ln(@Ajouter(@!(1),@Sqrt(@Sous(@Sqr(@!(1)),1.0))))
Hyperbel Arcus Cosinus   y = Ln( x + Sqrt(x²-1) )
Def @ArcTanh(1) @Div(@Ln(@Div(@Ajouter(1.0,@!(1)),@Sous(1.0,@!(1)))),2.0)
Hyperbel Arcus Tangens   y = Ln( (1+x) / (1-x) ) / 2
Def @ArcCoth(1) @Div(@Ln(@Div(@Ajouter(@!(1),1.0),@Sous(@!(1),1.0))),2.0)
Hyperbel Arcus Cotangens   y = Ln( (x+1) / (x-1) ) / 2
Def @ArcSech(1) @Ln(@Div(@Ajouter(@Sqrt(@Ajouter(@Mul(@Neg(@!(1)),@!(1)),1.0)),1.0),@!(1)))
Hyperbel Arcus Sekans   y = Ln( (Sqrt(-x*x+1)+1) / x )
Def @ArcCsch(1) @Ln(@Div(@Ajouter(@Mul(@Sgn(@!(1)),@Sqrt(@Ajouter(@Sqr(@!(1)),1.0))),1.0),@!(1)))
Hyperbel Arcus Cosekans   y = Ln( ( Sgn(x) * Sqrt(x²+1) + 1 ) / x)