Parametrischer Rechner für einen STEM-Kurs.

Hier ist der Code:

$fn=200;
h=3; //Radstärke
ri=72/2; //äußerer Radius minus Dicke des Rades
re=80/2; //Äußerer Radius dreht sich
nr=4; //Anzahl der doppelten Raghi
rfi=5.1/2; //Durchmesser des inneren Lochs im Rad

Differenz()
{
union()
{
Dichtung (h,ri,re);
Raggi(ri,h,nr);
Dichtung (h, rfi, rfi+2);
)
Forint (rfi, h+1);
)
Modul Forint (r,alt) {
Zylinder(alt,r,r,center=true);
)
Modul raggi(rai,spe,n){
für(i=[0:n])
{
rotate([0,90,i*180/n])
Zylinder(rai*2,spe/2,spe/2,center=true);
)
)

Dichtungsmodul (spe, rai, rae) {
Differenz().
Zylinder(spe,rae,rae,center=true);
Zylinder(spe+2,rai,rai,center=true);
)
)