Symc1=Symmetry("Symc1",B,C);
Symc2=Symmetry("Symc2",Symc1,B);
S14=Segment("S14",B,Symc2);
M=PointOn("M",S14,0.8753727867116252);
P1=Point("P1","M+C-B","1");
P2=Point("P2","M+A-B","1");
P3=Point("P3","M+E-B","1");
P4=Point("P4","M+D-B","1");