Tartalomjegyzék

Script Erikovics_cikloid

Teljes Matlab script kiegészítő függvényekkel.

File:   Erikovics_cikloid.m
Author: Peter Polcz (ppolcz@gmail.com)
Created on 2017. December 13.
Output:
┌Erikovics_cikloid
│   - Persistence for `Erikovics_cikloid` reused (inherited) [run ID: 48, 259]Persistence for `2017.12.13. Wednesday, 13:28:26` 
│   - Script `Erikovics_cikloid` backuped
syms t phi

a = 4;
R = 3;

s = [
    a * (t - sin(t))
    R * cos(phi)
    a * (1 - cos(t)) + R * sin(phi)
    ]

vars = [t, phi];

s1 = matlabFunction(s(1),'vars', vars);
s2 = matlabFunction(s(2),'vars', vars);
s3 = matlabFunction(s(3),'vars', vars);

[t,phi] = meshgrid(linspace(0,4*pi,100),linspace(0,2*pi,50));

s1_num = s1(t,phi);
s2_num = s2(t,phi);
s3_num = s3(t,phi);

surf(s1_num, s2_num, s3_num)
axis equal

xlabel x
ylabel y
zlabel z
Output:
s =
            4*t - 4*sin(t)
                3*cos(phi)
 3*sin(phi) - 4*cos(t) + 4

End of the script.

Output:
└ 0.60147 [sec]