Pèndol simple

OpenSCAD

Pèndol simple

Una de les característiques curioses d'OpenSCAD és que una de les variables internes del programa (de nom $t) es pot controlar proporcionalment al temps activant uns paràmetres d'animació. Això permet modelar mecanismes en moviment. Un exemple senzill és el del pèndol simple que es mostra aquí simple_pendulum.scad


// Simple pendulum
// Source Wiki
// 20200731

$fn=80;

// Parameters
llarg=10.0;
tetha_0=40;
g=9.81;
pi=3.141516;
//echo("pi=",pi);

// Simple dendulum equations
T0=2*pi*sqrt(llarg/g);
tetha=(tetha_0*pi/180)*cos((180/pi)*sqrt(g/llarg)*$t*T0);

//echo("Period ",T0);

// Coordinates
x=llarg*sin(tetha*180/pi);
z=llarg*cos(tetha*180/pi);

// Draw mass
color ([1,0,0])
translate ([x,0,llarg-z])
sphere(r = 0.5);

// Draw wire
 translate([0,0,llarg])
 rotate([0,180-(tetha*180/pi),0])
 cylinder(llarg, 0.04,0.04, center=false);