**TI92P*mainmerRmerkpkte ¥ZC? Mit diesem Skript soll 1) der Umkreismittelpunkt und ­radiu 2) der HÖhenschnittpunkt 3) der Schwerpunkt 4) der Inkreismittelpunkt und ­radiu 5) die Eulersche Gerade 6) der Umfang und 7) der Flächeninhalt ermittelt werden ********************************** CClrHome:ClrIO Eingabe des Ausgangsdreiecks Cinput a Bitte den Eckpunkt A eingeben! Cinput b Bitte den Eckpunkt B eingeben! Cinput c Bitte den Eckpunkt C eingeben! 1) Umkreismittelpunkt C(b+c)/2ma Cc-bna Cdotp([x;y],na)=dotp(ma,na)ssa C(a+c)/2mb Cc-anb Cdotp([x;y],nb)=dotp(mb,nb)ssb Umkreismittelpunkt Czeros({left(ssa)-right(ssa),left(ssb)-right(ssb)},{x,y})™u Umkreisradius Cnorm(u-a)ur 2) HÖhenschnittpunkt Cdotp([x;y],na)=dotp(a,na)ha Cdotp([x;y],nb)=dotp(b,nb)hb HÖhenschnittpunkt Czeros({left(ha)-right(ha),left(hb)-right(hb)},{x,y})™h 3) Schwerpunkt C(a+b+c)/3s 4) Inkreis Cunitv(b-a)+unitv(c-a)wa Cdotp([x;y]=a+t*wa,nv(wa))wsa Cunitv(a-b)+unitv(c-b)wb Cdotp([x;y]=b+t*wb,nv(wb))wsb Inkreismittelpunkt Czeros({left(wsa)-right(wsa),left(wsb)-right(wsb)},{x,y})™i Inkreisradius Cdotp([x;y],b-a)=dotp(i,b-a)nci C[x;y]=a+t*(b-a)gc Cdotp(gc,[(b-a)[2,1];­(b-a)[1,1]])gc Czeros({left(gc)-right(gc),left(nci)-right(nci)},{x,y})™fn Inkreisradius Cnorm(i-fn)ir 5) Eulersche Gerade C[x;y]=u+t*(u-i)eg Cdotp(eg,[(u-i)[2,1];­(u-i)[1,1]])eg 6) Umfang Cnorm(a-b)+norm(b-c)+norm(c-a)umf 7) Flächeninhalt C[x;y]=c+t*(b-c)ga Cdotp(ga,[(b-c)[2,1];­(b-c)[1,1]])ga Czeros({left(ga)-right(ga),left(ha)-right(ha)},{x,y})™fha Cnorm(fha-c)hoehe Flächeninhalt Choehe*norm(c-b)/2flàÔ