Hallo, hier ein Beispiel für das Ermitteln des Kugelmittelpunktes, wenn eine Kugel in einen Kegel eingepasst wird.
Viel Erfolg.
$$ NEIN,
---- Kegelmessung ----
KEG1 =ELEM/KONTAKT/KEGEL/STANDARD,KARTESISCH,INNEN
NENN/<226.4,12.5,-22>,<0,0,1>,30,-13,15
MESS/<226.4,12.5,-22>,<0,0,1>,30,-13,15
ZIEL/<226.4,12.5,-22>,<0,0,1>
STARTWINKEL=58.8,ENDWINKEL=58.8
WINKELVEK=<1,0,0>
ELEMENTPARAMETER EINBLENDEN=NEIN
KONTAKTPARAMETER EINBLENDEN=NEIN
$$ NEIN,
--- Kontaktkreis der Kugel ---
KREIS2 =ELEMENT/KREIS,KARTESISCH,INNEN,NEIN
NENN/<226.4,12.5,-26.5586>,<0,0,1>,12.557
MESS/<226.4,12.5,-26.5586>,<0,0,1>,12.557
KONST/KREIS,KEGEL,KEG1,KUGEL,13
ZUWEISEN/KUGELRADIUS=13/2
$$ NEIN,
--- Ermittlung der Höhe vom Kontaktkreis zum Kugelmittelpunkt ---
ZUWEISEN/Z_HOEHE=SQRT((KUGELRADIUS^2)-(KREIS2.RADIUS^2))
$$ NEIN,
--- Konstruktion eines Versatzpunktes zum Kreis entlang des Kegelvektors ---
PKT6 =ELEMENT/PUNKT,KARTESISCH,NEIN
NENN/<226.4,12.5,-24.8763>,<0,0,1>
MESS/<226.4,12.5,-24.8763>,<0,0,1>
KONST/PUNKT,VEKT_ABST,KEG1,KREIS2,Z_HOEHE*-1
$$ NEIN,
--- Kugelkonstruktion am errechneten Mittelpunkt ---
KUGEL_IM_KEGEL=BENUTZERDEFINIERT/KUGEL,ABHÄNGIG,KARTESISCH,AUSSEN,$
NENNW/XYZ,<pkt6.tx,pkt6.ty,pkt6.tz>,$
MESS/XYZ,<pkt6.x,pkt6.y,pkt6.z>,$
NENNW/IJK,<keg1.ti,keg1.tj,keg1.tk>,$
MESS/IJK,<keg1.i,keg1.j,keg1.k>,$
DURCHM/13,13</keg1.i,keg1.j,keg1.k></keg1.ti,keg1.tj,keg1.tk></pkt6.x,pkt6.y,pkt6.z></pkt6.tx,pkt6.ty,pkt6.tz>