// Macros : $macros={}; $macros["Cnk5tangentes"]={ name:"Cnk 5 tangentes", parameters:["line","line","line","line","line"], exec: function (d1,d2,d3,d4,d5){ P11=OrderedIntersection("P11",d5,d1,0); P12=OrderedIntersection("P12",d2,d1,0); P13=OrderedIntersection("P13",d3,d2,0); P14=OrderedIntersection("P14",d4,d3,0); P15=OrderedIntersection("P15",d5,d4,0); L1=Line("L1",P11,P14); L2=Line("L2",P15,P13); L4=Line("L4",P12,P15); L6=Line("L6",P11,P13); L8=Line("L8",P12,P14); P16=OrderedIntersection("P16",L2,L1,0); P17=OrderedIntersection("P17",L4,L1,0); P18=OrderedIntersection("P18",L4,L6,0); P19=OrderedIntersection("P19",L8,L6,0); P20=OrderedIntersection("P20",L8,L2,0); L3=Line("L3",P12,P16); L5=Line("L5",P13,P17); L7=Line("L7",P14,P18); L9=Line("L9",P15,P19); L10=Line("L10",P11,P20); T1=OrderedIntersection("T1",L3,d4,0); T2=OrderedIntersection("T2",L5,d5,0); T3=OrderedIntersection("T3",L7,d1,0); T4=OrderedIntersection("T4",L9,d2,0); T5=OrderedIntersection("T5",L10,d3,0); Quad=Quadric("Quad",T1,T2,T3,T4,T5); STL(Quad,"c:#ed00ff;s:2.5;f:30;p:500"); return [Quad]; }}; // Coordinates System : SetCoords(525,372,40); // Geometry : P1=Point("P1",2.7,5.15); P2=Point("P2",-8.875,-0.525); P3=Point("P3",-8.05,3.65); P4=Point("P4",-5.075,-6.9); P5=Point("P5",-7.425,-4.975); P6=Point("P6",4.65,-7.25); P7=Point("P7",2.45,-7.875); P8=Point("P8",9.525,-0.95); P9=Point("P9",8.75,-3.15); P10=Point("P10",4.85,8.025); E1=Expression("E1","D\u00e9f tangentielle d'une conique - Brianchon optimis\u00e9 ","","","0","-12.125","7.3"); d1=Line("d1",P1,P2); d2=Line("d2",P3,P4); d3=Line("d3",P5,P6); d4=Line("d4",P7,P8); d5=Line("d5",P9,P10); P11=OrderedIntersection("P11",d5,d1,0); P12=OrderedIntersection("P12",d2,d1,0); P13=OrderedIntersection("P13",d3,d2,0); P14=OrderedIntersection("P14",d4,d3,0); P15=OrderedIntersection("P15",d5,d4,0); L1=Line("L1",P11,P14); L2=Line("L2",P15,P13); L4=Line("L4",P12,P15); L6=Line("L6",P11,P13); L8=Line("L8",P12,P14); P16=OrderedIntersection("P16",L2,L1,0); P17=OrderedIntersection("P17",L4,L1,0); P18=OrderedIntersection("P18",L4,L6,0); P19=OrderedIntersection("P19",L8,L6,0); P20=OrderedIntersection("P20",L8,L2,0); L3=Line("L3",P12,P16); L5=Line("L5",P13,P17); L7=Line("L7",P14,P18); L9=Line("L9",P15,P19); L10=Line("L10",P11,P20); T1=OrderedIntersection("T1",L3,d4,0); T2=OrderedIntersection("T2",L5,d5,0); T3=OrderedIntersection("T3",L7,d1,0); T4=OrderedIntersection("T4",L9,d2,0); T5=OrderedIntersection("T5",L10,d3,0); Quad=Quadric("Quad",T1,T2,T3,T4,T5); // Styles : STL(P1,"c:#0000b2;s:6;f:30"); STL(P2,"c:#0000b2;s:6;f:30"); STL(P3,"c:#0000b2;s:6;f:30"); STL(P4,"c:#0000b2;s:6;f:30"); STL(P5,"c:#0000b2;s:6;f:30"); STL(P6,"c:#0000b2;s:6;f:30"); STL(P7,"c:#0000b2;s:6;f:30"); STL(P8,"c:#0000b2;s:6;f:30"); STL(P9,"c:#0000b2;s:6;f:30"); STL(P10,"c:#0000b2;s:6;f:30"); STL(E1,"c:#31445b;s:7;f:24;p:0;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA=="); STL(d1,"c:#780013;s:1;sn:true;f:30;p:0"); STL(d2,"c:#780013;s:1;sn:true;f:30;p:0"); STL(d3,"c:#780013;s:1;sn:true;f:30;p:0"); STL(d4,"c:#780013;s:1;sn:true;f:30;p:0"); STL(d5,"c:#780013;s:1;sn:true;f:30;p:0"); STL(P11,"c:#b40000;s:6;f:30;sp:2"); STL(P12,"c:#b40000;s:6;f:30;sp:2"); STL(P13,"c:#b40000;s:6;f:30;sp:2"); STL(P14,"c:#b40000;s:6;f:30;sp:2"); STL(P15,"c:#b40000;s:6;f:30;sp:2"); STL(L1,"c:#780013;s:1;f:30;p:0"); STL(L2,"c:#780013;s:1;f:30;p:0"); STL(L4,"c:#780013;s:1;f:30;p:0"); STL(L6,"c:#780013;s:1;f:30;p:0"); STL(L8,"c:#780013;s:1;f:30;p:0"); STL(P16,"c:#b40000;s:6;f:30;sp:1"); STL(P17,"c:#0000b2;s:6;f:30"); STL(P18,"c:#0000b2;s:6;f:30"); STL(P19,"c:#0000b2;s:6;f:30"); STL(P20,"c:#0000b2;s:6;f:30"); STL(L3,"c:#780013;s:1;f:30;p:0"); STL(L5,"c:#780013;s:1;f:30;p:0"); STL(L7,"c:#780013;s:1;f:30;p:0"); STL(L9,"c:#780013;s:1;f:30;p:0"); STL(L10,"c:#780013;s:1;f:30;p:0"); STL(T1,"c:#0000b2;s:6;sn:true;f:30"); STL(T2,"c:#0000b2;s:6;sn:true;f:30"); STL(T3,"c:#0000b2;s:6;sn:true;f:30"); STL(T4,"c:#0000b2;s:6;sn:true;f:30"); STL(T5,"c:#0000b2;s:6;sn:true;f:30"); STL(Quad,"c:#ed00ff;s:2.5;f:30;p:500"); SetCoordsStyle("isAxis:false;isGrid:true;isOx:true;isOy:true;isLockOx:false;isLockOy:false;centerZoom:false;color:#111111;fontSize:18;axisWidth:1;gridWidth:0.1");