// Siyah: sorunun verileri | Kirmizi: cozumdeki ek cizimler
import geomania;
size(520);
pen K = black+1.2; // dortgenin kenarlari
pen Ki = black+0.7; // kosegenler ve PA,PB,PC,PD
pen R = rgb(0.83,0.08,0.11)+0.9; // ek cizimler
pen Rd = R+dashed;
pen G = gray(0.90);
// ---- verilenler ----
pair A = (-3,0), B = (0,-5), C = (4,0), D = (0,2);
pair Ep = extension(A,C,B,D); // kosegenlerin kesimi (E)
pair X = midpoint(A--B), Y = midpoint(C--D); // AB ve DC nin orta noktalari
pair P = extension(X, X+rotate(90)*(B-A), // AB nin orta dikmesi
Y, Y+rotate(90)*(C-D)); // DC nin orta dikmesi
pair F = extension(A,B,D,C); // [BA ile [CD nin kesimi
fill(A--B--P--cycle, G); // alanlari karsilastirilan
fill(C--D--P--cycle, G); // iki ucgen
// ---- kirmizi: ek cizimler ----
draw(A--F, Rd); draw(D--F, Rd);
draw(Ep--X, R); draw(Ep--Y, R); draw(X--Y, R);
draw(P--X, R); draw(P--Y, R);
// ---- siyah: sorunun verileri ----
draw(A--B--C--D--cycle, K);
draw(A--C, Ki); draw(B--D, Ki);
draw(P--A, Ki); draw(P--B, Ki); draw(P--C, Ki); draw(P--D, Ki);
draw(rightanglemark(A,Ep,D,8), Ki); // AC dik BD
draw(rightanglemark(P,X,A,7), R); // PX dik AB
draw(rightanglemark(P,Y,C,7), R); // PY dik DC
draw(pathticks(A--X), R); draw(pathticks(X--B), R);
draw(pathticks(D--Y,2), R); draw(pathticks(Y--C,2), R);
markangle("$\alpha$", Ep,B,X, radius=0.55, R);
markangle("$\alpha$", X,Ep,B, radius=0.45, R);
markangle("$\beta$", Y,C,Ep, radius=0.55, R);
markangle("$\beta$", C,Ep,Y, radius=0.40, R);
dot("$A$", A, dir(180));
dot("$B$", B, dir(270));
dot("$C$", C, dir(0));
dot("$D$", D, dir(45));
dot("$P$", P, dir(45));
dot("$E$", Ep, dir(225), R);
dot("$X$", X, dir(180), R);
dot("$Y$", Y, dir(45), R);
dot("$F$", F, dir(45), R);