use strict;
use warnings;
use Math::Trig;

print 'Pi                   --> ', pi, "\n";
# Tangens von pi/6
print 'tan(pi/6)            --> ', tan(pi/6), "\n";
# Tangens von 30 Grad (das gleiche)
print 'tan(deg2rad(30))     --> ', tan(deg2rad(30)), "\n";

# Der Arcus-Sinus hat eine komplexe Zahl als Ergebnis
print 'asin(2)              --> ', asin(2), "\n";
print 'acos(0.3)            --> ', acos(0.3), "\n";

# sin(x)**2 + cos(x)**2 ergibt immer 1!
my $x = rand(10); # irgendetwas
my $y = sin($x)*sin($x) + cos($x)*cos($x);
print "sin($x)^2 + cos($x)^2 --> ", $y, "\n";