4
deff("[]=demoexc(fil)","exec(""SCI/demos/dae/""+fil)")
6
x_message(["Modeling of a sliding dumped pendulum";
7
" using Lagrange formulation";
8
"You can choose the curve on which the pendulum slides"]);
10
n=x_choose(["Parabola";"Upside down camel"],..
16
demoexc("pendg1.sce");
18
demoexc("pendg2.sce");
20
demoexc("pendg3.sce");