if true
x= 3:0.1:4;
z= 0.7*(x-3).^2;
P0 = [0; 0];
P1 = [1.8; 0.8];
P2 = [4; 0];
PC = [4, 0.7];
plot(x, z)
hold on
plot(0,0,'r*', 1.8,0.8,'r*',4, 0, 'r*', 4, 0.7, 'r*')
hold on
plot([0 3],[0 0], 'r')
clear all,clf;
axis equal
t = 0:0.05:1;
pt1 = [0;0];
a=[0, 1];
b=[1,0];
a1=0.7;
a2=1.5;
pt4 = [1.8; 0.8];
pt2=[pt1(1)+a1*a(1);pt1(2)+a1*a(2)];
pt3=[pt4(1)-a2*b(1);pt4(2)-a2*b(2)];
pts1 = kron((1-t).^3,pt1) + kron(3*(1-t).^2.*t,pt2) + kron(3*(1-t).*t.^2,pt3) + kron(t.^3,pt4)
xlim([0 4])
hold on
plot(pts1(1,:),pts1(2,:))
p1=[1.8; 0.8]
p4=[4;0];
aa=[1,0;]
aa1=1.2;
aa2=0.7;
p2=[p1(1)+aa1*aa(1);p1(2)+aa1*aa(2)];
p3=[3.5;0.866];
pts2 = kron((1-t).^3,p1) + kron(3*(1-t).^2.*t,p2) + kron(3*(1-t).*t.^2,p3) + kron(t.^3,p4);
xlim([0 4])
hold on
plot(pts2(1,:),pts2(2,:))
plot(p2(1), p2(2),'r*', p3(1), p3(2), 'r*')
a= 0.6378
b=0.4252
s1=[0;-1]
s4=[1/2;1/2]
p4=[0;0]
p1=[0.8;0.7]
p2=[p1(1)+a*s1(1);p1(2)+a*s1(2)]
p3=[p4(1)+b*s4(1);p4(2)+b*s4(2)]
pts = kron((1-t).^3,p1) + kron(3*(1-t).^2.*t,p2) + kron(3*(1-t).*t.^2,p3) + kron(t.^3,p4);
xlim([-1 1])
hold on
plot(pts(1,:),pts(2,:))
plot(p4(1),p4(2), 'r*',p1(1),p1(2), 'r*',p2(1),p2(2), 'r*',p3(1),p3(2), 'r*')
a= 0.6378
b=0.4252
s1=[0;-1]
s4=[-1/2;1/2]
p4=[0;0]
p1=[-0.8;0.7]
p2=[p1(1)+a*s1(1);p1(2)+a*s1(2)]
p3=[p4(1)+b*s4(1);p4(2)+b*s4(2)]
pts = kron((1-t).^3,p1) + kron(3*(1-t).^2.*t,p2) + kron(3*(1-t).*t.^2,p3) + kron(t.^3,p4);
xlim([-1 1])
hold on
plot(pts(1,:),pts(2,:))
plot(p4(1),p4(2), 'r*',p1(1),p1(2), 'r*',p2(1),p2(2), 'r*',p3(1),p3(2), 'r*')
end