Je toto evolventa? Snad ano.FHonza píše:...OpenSCAD. Dvě knihovny jsou součástí instalace (screw.scad a gears.scad)...
- výtah z knihovny gears.scad.
Kód: Vybrat vše
/* Circle Involutes-Function:
Returns the Polar Coordinates of an Involute Circle
r = Radius of the Base Circle
rho = Rolling-angle in Degrees */
function ev(r,rho) = [
r/cos(rho),
grad(tan(rho)-radian(rho))
];
/* Sphere-Involutes-Function
Returns the Azimuth Angle of an Involute Sphere
theta0 = Polar Angle of the Cone, where the Cutting Edge of the Large Sphere unrolls the Involute
theta = Polar Angle for which the Azimuth Angle of the Involute is to be calculated */
function sphere_ev(theta0,theta) = 1/sin(theta0)*acos(cos(theta)/cos(theta0))-acos(tan(theta0)/tan(theta));