Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Illustration of two factors interaction
prologues := 2;
input geometriesyr16;
figure(-u,-u,6.5u,6u);
pair A,B,C,D,E,F,G,H,I,J,K,L,M,N;
picture depart;
numeric i,j,r,v;
r:=.5;
v:=40;
A=(0,0);
B=(4u,0);
C-B=r*((B-A) rotated v);
D-C=A-B;
E=(0,4u);
F-E=B-A;
G-F=C-B;
H-G=E-F;
I=.5*(H+F);
J=.5*(D+B);
depart=image(
trace 5coinbg--5coinbd--5coinhd;
trace G--H--E--F--G--C--B--F;
trace B--A--E;
trace A--D--H dashed evenly;
trace D--C dashed evenly;
marque_p:="creux";
pointe(A,B,C,D,E,F,G,H);
);
trace depart;
pair M;
path plana;
trace A--E--G--C withcolor blue withpen pencircle scaled 1bp;
trace A--C dashed evenly withcolor blue withpen pencircle scaled 1bp;
plana=A--E--G--C--cycle;
fillcolor:=.5white+.5blue;
transparence(plana);
pair N;
path planb;
trace A--E--G--C withcolor blue withpen pencircle scaled 1bp;
trace A--C dashed evenly withcolor blue withpen pencircle scaled 1bp;
trace H--F--B withcolor red withpen pencircle scaled 1bp;
trace B--D--H dashed evenly withcolor red withpen pencircle scaled 1bp;
planb=H--F--B--D--cycle;
fillcolor:=.5white+.5red;
transparence(planb);
fin;
end
@even4void

This comment has been minimized.

Copy link
Owner Author

@even4void even4void commented Dec 10, 2010

Requires geometriesyr16 available on http://melusine.eu.org/syracuse/.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment