Reelle Funktionen und Konstanten

In AZUR sind Integer- und Realzahlen zum AZUR-Typ Real zusammengefasst. Überall, wo als Parameter Integerzahlen erwartet werden, wird der AZUR-Typ Real verwendet.

• Sin()
• Cos()
• Tan()
• Log()
• Abs()
• Mod()
• ArcSin()
• ArcCos()
• ArcTan()
• ArcTan2()
• LnGamma()
• RMax()
• RMin()
• Runden()
• IngRunden()
• RealToRaw()
• RawToReal()
• BitMask()
• HexToReal()
• Operatoren + - * / ^
• PI
• EULERSCHEZAHL
• LUECKE

• Beispiel zu Reellen Funktionen und Konstanten
• Beispiel zu Reellen Operatoren

Beispiel zu Reellen Funktionen und Konstante

 
# Beispielprogramm zu reellen Funktionen und Konstanten

anpassen (Real zahl) : Real
# zahl gleich null setzen, wenn |zahl| < genauigkeit
	genauigkeit := 0.000000001
	IF (zahl>-genauigkeit AND zahl<genauigkeit)
		RETURN 0
	ELSE
		RETURN zahl
	ENDIF
END

print_trigonom (Real teiler_pi)
	IF (teiler_pi=0)
		text := "   "
		arg  := 0
	ELSE
		text := "PI/"
		arg  := PI/teiler_pi
	ENDIF
	sinus   := anpassen (Sin(arg))
	cosinus := anpassen (Cos(arg))
	l1 := Length (Str(sinus))
	d1 := 10-l1
	print (text, teiler_pi, "  |  ", sinus, d1*" ", cosinus)
END

AZUR () HREF="explizit/.html"> 
	Print ("PI=", PI)
Print () HREF="explizit/.html"> 
	# Tabelle wichtiger Funktionswerte von Sinus und Cosinus
	Print (9*" ", "Sinus", 5*" ", "Cosinus")
	print_trigonom (0)
	print_trigonom (6)
	print_trigonom (4)
	print_trigonom (3)
	print_trigonom (2)
Print () HREF="explizit/.html"> 
	zahl := PI/2
	Print ("ArcSin (Sin (", zahl, ")) = ", anpassen (ArcSin(Sin(zahl))))
	Print ("ArcCos (Cos (", zahl, ")) = ", anpassen (ArcCos(Cos(zahl))))
Print () HREF="explizit/.html"> 
	ergebnis1 := anpassen (Sin(zahl))
	ergebnis2 := anpassen (Cos(zahl))
	Print ("Sin (", zahl, ") = ", ergebnis1)
	Print ("Cos (", zahl, ") = ", ergebnis2)
	Print ("ArcSin (", ergebnis1, ") = ", anpassen (ArcSin(ergebnis1)))
	Print ("ArcCos (", ergebnis2, ") = ", anpassen (ArcCos(ergebnis2)))
Print () HREF="explizit/.html"> 
	zahl := PI/4
	erg  := anpassen (Tan(zahl))
	Print ("Tan (", zahl, ") = ", erg)
	Print ("ArcTan (", erg, ") = ", anpassen (ArcTan(erg)))
Print () HREF="explizit/.html"> 
	zahl := 2.71828
	Print ("Log (", zahl, ") = ", Log(zahl))
END

 
PI=3.14159

Sinus     Cosinus
0     |  0         1
PI/6  |  0.5       0.866025
PI/4  |  0.707107  0.707107
PI/3  |  0.866025  0.5
PI/2  |  1         0

ArcSin (Sin (1.5708)) = 1.5708
ArcCos (Cos (1.5708)) = 1.5708

Sin (1.5708) = 1
Cos (1.5708) = 0
ArcSin (1) = 1.5708
ArcCos (0) = 1.5708

Tan (0.785398) = 1
ArcTan (1) = 0.785398

Log (2.71828) = 0.999999

Beispiel zu Reellen Operatoren

 
# Beispielprogramm zu den reellen Operatoren + - * / ^

AZUR (Real r1=10, Real r2=4)
	Print ("Zahl1: ", r1)
	Print ("Zahl2: ", r2)
Print () HREF="explizit/.html"> 
	Print ("Summe     :  ", r1+r2)
	Print ("Differenz :  ", r1-r2)
	Print ("Produkt   :  ", r1*r2)
	IF (r2=0)
		text := "-- (Division durch Null)"
	ELSE
		text := Str (r1/r2)
	ENDIF
	Print ("Quotient  :  ", text)
Print () HREF="explizit/.html"> 
	Print ("Quadrat von ", r1, "  : ", r1^2)
END

 
Zahl1: 10
Zahl2: 4

Summe     :  14
Differenz :  6
Produkt   :  40
Quotient  :  2.5

Quadrat von 10  : 100