C2

Linke Seite - Spiegelung

LE={0,3};
LA={0,0};

Lr=(LE[[2]]-LA[[2]])/2;

Lr1=Lr*1.1;

Lm={LA[[1]],LA[[2]]+Lr};

Lz={LA[[1]]-Lr1,Lm[[2]]};

L11=LA+0.552*(Lz-Lm);
L12=Lz+0.552*(LA-Lm);
L1={LA,L11,L12,Lz};

g3=Graphics[{BezierCurve[L1],Blue,Point[L1]}];

L21=Lz+0.552*(LE-Lm);
L22=LE+0.552*(Lz-Lm);
L2={Lz,L21,L22,LE};

g4=Graphics[{BezierCurve[L2],Blue,Point[L2]}];

p11=L2[[4]];

p21=L2[[4]]-L2[[3]]+p11;

p41={1.1,2.4};

p31={p41[[1]],2.5};

p1={p11,p21,p31,p41};

g1=Graphics[{BezierCurve[p1],Blue,Point[p1]}];

p12=LA;

p22=L1[[1]]-L1[[2]]+p12;

p42={1.1,0.6};
p32={p42[[1]],0.5};

p2={p12,p22,p32,p42};

g2=Graphics[{BezierCurve[p2],Blue,Point[p2]}];

Show[g3,g4,g1,g2]