- /
-
Curvature
on 3 Oct 2022
- 4
- 28
- 0
- 0
- 276
w=(0.0:0.1:5.0);
x=w+5;
y=2*w;
z=-2*w+10;
hold on;
p=zeros(length(w),2);
q=p;
c=cos(pi/2);
s=sin(pi/2);
r=[c,-s;s,c];
for i=1:1:length(w);
M(i,:)=[w(i)-5,x(i)-5];
N(i,:)=[y(i)-5,z(i)-5];
plot(M(i,:),N(i,:));
plot(-M(i,:),-N(i,:));
p2=r*[M(i,:);N(i,:)];
plot(p2(1,:),p2(2,:));
plot(-p2(1,:),-p2(2,:));
end
axis off;
