O3

Rechte Seite

RA={0,0};
RE={0,3};

Rr=(RE[[2]]-RA[[2]])/2;

Rm={RA[[1]],RA[[2]]+Rr};

Rr1=Rr*0.8;

Rz={RA[[1]]+Rr1,Rm[[2]]};

R11=RA+0.552*(Rz-Rm);
R12=Rz+0.552*(RA-Rm);
R1={RA,R11,R12,Rz};

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

R21=Rz+0.552*(RE-Rm);
R22=RE+0.552*(Rz-Rm);
R2={Rz,R21,R22,RE};

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

Linke Seite - Spiegelung

LE=RE;
LA=RA;

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

Lr1=Lr*0.8;

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]}];

Show[g1,g2,g3,g4]