geometry : cercles inscrits entre 2 droites et passant par un point

geometry : cercles inscrits entre 2 droites et passant par un point

copier/coller le code gam1  ci-dessous pour remplacer dans : [créer du gam1 jouer-modifier un graphisme gam1 ]

_-_-_-_-_-_ cercles entre 2 droites _-_-_ (normal DIRECT) _-_-_-_-_-_

T1:p=150.0;30.0	cc=50,50,0	cf=222,222,250,0.7	sty=italique	d=12	t=cercles tangents au point et aux droites	!
P1:p=40.0;230.0 !
M0:pr=100 dx=1 dy=0 !
M1:pr=800 dx=4 dy=-2 !
M2:pr=500 dx=3 dy=22 !
M3:a=10.5 !
M4:a=350.5 !
//I1:p=550;400 i=ds1autres/lunette.jpg !
//CMD8rt: # I2.f_Estom(1,1,0,0,250,247,200) !
//I2:p=550;400 i=ds1autres/spires.jpg !
//CMD8ru: # I1.f_Enfle(0.5,1.7,0.0,0.0,0.0) !
$V1: type=nombre(0,0,30) !
$V2: type=nombre(0,0,30) !
Tp2:t=7_35 !
Tp3:t=5_40 !
Tp4:t=20_45 !
T2:p=50;P1.y+160 t=éloignement du point : !
A1:p=10;70 t=320 bo=40;800 va=200 !
T3:p=30;380 VU_OUI t= : hauteur du point. !
Proc1:tempo=200 nb=77 rep=1 !
Proc2:tempo=100 nb=50 rep=3 !
A2:p=5;115 t=500 bo=A1.min-30;A1.va*0.51 !va=A1.va*0.3 or=1 #
A3:p=10;10 t=500 bo=-1;100 va=27 #
A4:p=10;40 t=500 bo=-20;22 va=2 #
P2:p=P1.x+A1.va;P1.y-A2.va #
D1:p1=P1 p2=P1.x+800;P1.y-400.0 cc=0,40,250 #
D2:p1=D1.p1 p2=D1.p2.x;P1.y+400.0 cc=0,40,250 #
D3:p1=D1.p1 p2=D1.p2.x;P1.y cc=0,200,200 #
D4:p1=P2.x;0.0 p2=P2.x;718.0 cc=0,200,200 #
E0:c=P2.x;P2.y dm=3 cc=80,70,100 cf=70,50,70 #
E1:c=P2.x;P1.y dm=P1.y-P2.y cc=80,70,100 cf=70,250,70 #
D5:p1=P2.x;P1.y p2=D1*D4 cc=20,20,60 #
//E2:c=D5.Pm dM=P1.y-D5.p2.y cc=40,40,90 cf=170,30,50,0.2,Si if=I2 #
E2:c=D5.Pm dM=P1.y-D5.p2.y cc=40,40,90 cf=170,30,50,0.2,Si #
C2:E1*E2
D6:p1=C2[0] p2=C2[1] cc=190,210,0 #
//E3:c=D1*D5 pt=D6.p1 cc=100,190,240 cf=30,250,180,0.05,Ss if=I1 #
E3:c=D1*D5 pt=D6.p1 cc=100,190,240 cf=30,250,180,0.05,Ss #
C3:E3*D1
D7:p1=C3[0] L(D1) cc=100,0,40 #
D8:p1=C3[1] L(D1) cc=100,0,40 #
//E4:c=D3*D7 vu=A3.va+A4.va pt=C3[0] cc=100,0,40 cf=210,150,100,0.5,Ss if=I2 #
E4:c=D3*D7 vu=A3.va+A4.va pt=C3[0] cc=100,0,40 cf=210,150,100,0.5,Ss #
//E5:c=D3*D8 vu=A3.va pt=C3[1] cc=100,0,40 cf=0,150,190,0.6,Ss if=I1 #
E5:c=D3*D8 vu=A3.va pt=C3[1] cc=100,0,40 cf=0,150,190,0.6,Ss #
C4:E4*D7
C5:E5*D8
D9:p1=C4[0] p2=C5[0] cc=160,230,100 #
C6:E4*E3
C7:E3*E5
D10:p1=C6[0] p2=C6[1] vu=D7.vu cc=190,210,0 #
D11:p1=C7[0] p2=C7[1] cc=190,210,0 #

CMD1a: #-> ?=(OUI) #
CMD1b: # DS1[$V1]: *.VU_=VU_OUI #
CMD1c: # $V1.Plus(1) !>> ;#
CMD1d: #<- ?=($V1<$V2) #
CMD2a: #-> ?=($V1>=$V2) #
CMD2b: # DS1[$V1]: *.VU_=VU_NON #
CMD2c: # $V1.Plus(1) !>> ;#
CMD2d: #<- ?=($V1<=D11.vu) #

_-_-_-_-_-_-_-_-_-_-_


Aucune note. Soyez le premier à attribuer une note !

utilitaire de bas de page pour gam1 version :       OK ? pour votre
script par page URL cookie
_-_-_-_-_-_ _-_-_-_-_-_

_-_-_-_-_-_-_-_-_-_-_
        ( × )

( en : cette page autre )
label =
Editer le script du label


Créer un site gratuit avec e-monsite - Signaler un contenu illicite sur ce site