animated spinning top with Cardan mounting: cylinderWeights(r1,r2) - File Exchange

Code covered by the BSD License

Highlights from
animated spinning top with Cardan mounting

... CREATEINNERBARS Creates the bars of the inner (blue) ring
... CREATEOUTERBARS Creates the red motionless supporting bar
EuMat( phi, theta, psi ) EUMAT returns a rotation matrix rotating an object by the Cardan angles
cylinderWeights(r1,r2) CYLINDERWEIGHTS creates the innermost blue bars with heavy looking cylinders
multiplyEuMat( EuMat, X,Y,Z ) MULTIPLYEUMAT takes the X, Y, Z coordinates of an object and returns the
sTopMain(fileToRead) STOPMAIN Plots an animated spinning top with Cardan mounting from raw
torus (a, n, r, kpi) TORUS Generate a torus.
sTopEuler.m
View all files

from animated spinning top with Cardan mounting by Alexander Erlich
Plots an animated spinning top with Cardan mounting from raw animation data.

cylinderWeights(r1,r2)

function [X,Y,Z] = cylinderWeights(r1,r2) 
%CYLINDERWEIGHTS creates the innermost blue bars with heavy looking cylinders 
%representing attatched weights.
t=0:0.01:1;
x=t;

for i=1:numel(t)
    if ((i>10 && i<20) || (i>80 && i<90))
        x(i)=r2;
    else
        x(i)=r1;
    end
end
[X,Y,Z]=cylinder(x,30);

Highlights from animated spinning top with Cardan mounting

Highlights from
animated spinning top with Cardan mounting