Forrit til aš reikna śt żmsar stęršir ķ žrķhyrningi ķ Maple (Tölvunot (c))

Hér verša żmsar stęršir ķ almennum žrķhyrningi reiknašar śt frį hlišlengdum hans. Ķ upphafi eru a = 5, b = 6 og c = 10, en žeim mį breyta (innan žeirra marka aš engin verši lengri en summa hinna tveggja).

Gefiš hlišunum a, b og c rétt gildi ķ fyrstu lķnu og styšjiš sķšan į enter aftan viš žį lķnu og aftan viš sķšustu forritalķnuna.

> a:=5:b:=6:c:=10:

> s:=(a+b+c)/2:F:=evalf(sqrt(s*(s-a)*(s-b)*(s-c))):R:=evalf(a*b*c/(4*F)):r:=evalf(F/s):ra:=evalf(F/(s-a)):rb:=evalf(F/(s-b)):rc:=evalf(F/(s-c)):ha:=evalf(2*F/a):hb:=evalf(2*F/b):hc:=evalf(2*F/c):A:=evalf(360/Pi*arctan(r/(s-a))):B:=evalf(360/Pi*arctan(r/(s-b))):C:=evalf(360/Pi*arctan(r/(s-c))):ma:=evalf(sqrt((b^2+c^2)/2-a^2/4)):mb:=evalf(sqrt((a^2+c^2)/2-b^2/4)):mc:=evalf(sqrt((b^2+a^2)/2-c^2/4)):vA:=evalf(sqrt(b*c*(1-(a/(b+c))^2))):vB:=evalf(sqrt(a*c*(1-(b/(a+c))^2))):vC:=evalf(sqrt(b*a*(1-(c/(b+a))^2))):if (b<c) then na:=evalf(a*tan(B*Pi/180)/2) else na:=evalf(a*tan(C*Pi/180)/2) fi:if (c<a) then nb:=evalf(b*tan(C*Pi/180)/2) else nb:=evalf(b*tan(A*Pi/180)/2) fi:if (a<b) then nc:=evalf(c*tan(A*Pi/180)/2) else nc:=evalf(c*tan(B*Pi/180)/2) fi:

Nęst birtist nišurstašan. ma tįknar mišlķnu į a, vA tįknar helmingalķnu hornsins A, ha tįknar hęšina į a, na tįknar mišnormal į hlišina a, ra tįknar radķus utanveršs hrings viš a, s tįknar hįlft ummįl, F flatarmįl, r radķus innritašs hrings og R radķus umritašs hrings. Myndin af žrķhyrningnum sem birtist er žannig, aš lįrétta strikiš er hlišin b, horniš A er ķ vinstri endi žess, horniš C ķ hęgri enda žess og horniš B efst.

> plot([[0,0],[b,0],[c*cos(A*Pi/180),c*sin(A*Pi/180)],[0,0]],axes=NONE);'a'=a;'b'=b;'c'=c;'A'=A;'B'=B;'C'=C;'ma'=ma;'mb'=mb;'mc'=mc;'ha'=ha;'hb'=hb;'hc'=hc;'vA'=vA;'vB'=vB;'vC'=vC;'na'=na;'nb'=nb;'nc'=nc;'ra'=ra;'rb'=rb;'rc'=rc;'r'=r;'R'=R;'s'=s;'F'=F;

>