- /
-
Time Equation
on 17 Oct 2024
- 13
- 105
- 0
- 0
- 785
Song title "Only Time" by Enya
drawframe(1);
Write your drawframe function below
% Dhimas Mahardika S.Si., M.Mat.
% from Sanggung Utara, Jatingaleh, Candisari
% Universitas Nasional Karangturi
% Universitas Diponegoro
function drawframe(f)
t = linspace(0,2);
t1 = linspace(0,1.5);
t2 = linspace(2.15,2.5);
t3 = linspace(0,2*pi);
h = linspace(0,24*pi,96);
a=h(f)
x=-t*cos(a+(pi/2))
y=t*sin(a+(pi/2))
x1=-t1*cos(a/12)
y1=t1*sin(a/12)
x2=-t2
y2=0*t2
x3=-t2*cos(pi/6)
y3=t2*sin(pi/6)
x4=-t2*cos(2*pi/6)
y4=t2*sin(2*pi/6)
x5=-t2*cos(3*pi/6)
y5=t2*sin(3*pi/6)
x6=-t2*cos(4*pi/6)
y6=t2*sin(4*pi/6)
x7=-t2*cos(5*pi/6)
y7=t2*sin(5*pi/6)
x8=-t2*cos(pi)
y8=t2*sin(pi)
x9=-t2*cos(7*pi/6)
y9=t2*sin(7*pi/6)
x10=-t2*cos(8*pi/6)
y10=t2*sin(8*pi/6)
x11=-t2*cos(9*pi/6)
y11=t2*sin(9*pi/6)
x12=-t2*cos(10*pi/6)
y12=t2*sin(10*pi/6)
x13=-t2*cos(11*pi/6)
y13=t2*sin(11*pi/6)
x14=2.5*sin(t3)
y14=2.5*cos(t3)
plot(x,y,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,x7,y7,x8,y8,x9,y9,x10,y10, ...
x11,y11,x12,y12,x13,y13,x14,y14,'LineWidth',8,'Color',[1 0 0])
MeshDensity=5555
axis equal
axis([-3 3 -3 3])
end