#######################################################################################################################################
# #
# V I S U A L I S A T I O N D E L A C O N T I N U I T E E T D E L A D I F F E R E N T I A B I L I T E : #
# #
# #
# Author of '$xiirv/.COUR.21.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20171123114235). #
# #
#######################################################################################################################################
$Z setParam _____X 0
$Z setParam _____Y -0.2
$Z setParam _____Rayon 0.4
$Z setParam _____Rouge1 $GRIS_8
$Z setParam _____Verte1 $GRIS_8
$Z setParam _____Bleue1 $GRIS_8
$Z setParam _____NCercle1 300
$Z setParam _____Epaisseur1 0.004
$Z setParam _____Angle1D 0
$Z setParam _____Angle1A $pi
$Z setParam _____Rouge2D $GRIS_2
$Z setParam _____Verte2D $GRIS_2
$Z setParam _____Bleue2D $GRIS_2
$Z setParam _____Rouge2A $GRIS_8
$Z setParam _____Verte2A $GRIS_8
$Z setParam _____Bleue2A $GRIS_8
$Z setParam _____NCercle2 3
$Z setParam _____Epaisseur2 0.006
$Z setParam _____FEpaisseur2 1.5
$Z setParam _____Angle2D 0.1
$Z setParam _____Angle2A $pis2
#20250120100937____:$Z setParam _____Rouge3D $GRIS_2 #
$Z setParam _____Rouge3D $GRIS_4
#20250120100937____:$Z setParam _____Verte3D 2 $GRIS_1 #
$Z setParam _____Verte3D $GRIS_1
#20250120100937____:$Z setParam _____Bleue3D $GRIS_0 #
$Z setParam _____Bleue3D $GRIS_0
#20250120100937____:$Z setParam _____Rouge3A $GRIS_7 #
$Z setParam _____Rouge3A $GRIS_8
#20250120100937____:$Z setParam _____Verte3A $GRIS_2 #
$Z setParam _____Verte3A $GRIS_4
#20250120100937____:$Z setParam _____Bleue3A $GRIS_0 #
$Z setParam _____Bleue3A $GRIS_0
$Z setParam _____Epaisseur3 0.003
$Z setParam _____Rouge4 $GRIS_8
$Z setParam _____Verte4 $GRIS_8
$Z setParam _____Bleue4 $GRIS_0
$Z setParam _____Epaisseur4 0.004
$Z setParam _____Rouge6 $GRIS_8
$Z setParam _____Verte6 $GRIS_4
$Z setParam _____Bleue6 $GRIS_0
$Z setParam _____Epaisseur6D 0.010
$Z setParam _____Epaisseur6A 0.002
$Z setParam _____DistanceMini 0.005
$Z setParam _____Zoom 1.80
$Z setParam _____CoordonneeZ 0.5
$Z set AXYZ_BXYZ="AXYZ=1 BXYZ=0"
$Z FileTmpB FPoints
$Z set NCercle1=`calculI $dpi*$_____Rayon*$_____NCercle1`
$Z set PaRaMeTrEs1="$K_VIDE"
$Z set PaRaMeTrEs1="$PaRaMeTrEs1"" premiere=1 derniere=$NCercle1"
$Z set PaRaMeTrEs1="$PaRaMeTrEs1"" lineaire=VRAI"
$Z set PaRaMeTrEs1="$PaRaMeTrEs1"" gamma=0"
$Z set PaRaMeTrEs1="$PaRaMeTrEs1"" tD=$_____Angle1D tA=$_____Angle1A"
$Z set PaRaMeTrEs1="$PaRaMeTrEs1"" rD=$_____Rayon rA=$_____Rayon"
$Z $xci/valeurs_trig$X \
$Z $PaRaMeTrEs1 \
$Z translation=$_____X \
$Z alpha=1 beta=0 \
$Z > $FPoints.1$COORD_X
$Z $xci/valeurs_trig$X \
$Z $PaRaMeTrEs1 \
$Z translation=$_____Y \
$Z alpha=0 beta=1 \
$Z > $FPoints.1$COORD_Y
$Z # Definition du cercle 1. #
$Z set NPoInTsX=`$CA $FPoints.1$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $FPoints.1$COORD_Y | $WCl`
$Z set NPoInTs1=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY`
$Z set PaRaMeTrEs_Particule="$K_VIDE"
$Z set PaRaMeTrEs_Particule="$PaRaMeTrEs_Particule"" np=1"
$Z set PaRaMeTrEs_Particule="$PaRaMeTrEs_Particule"" LISTE_Z=$_____CoordonneeZ"
$Z set PaRaMeTrEs_Particule="$PaRaMeTrEs_Particule"" $AXYZ_BXYZ"
$Z set PaRaMeTrEs_Particule="$PaRaMeTrEs_Particule"" ZOOM=$_____Zoom"
$Z set PaRaMeTrEs_Particule="$PaRaMeTrEs_Particule"" Lz=100"
$Z set PaRaMeTrEs_Particule="$PaRaMeTrEs_Particule"" editer_extrema_hors=FAUX"
$Z set PaRaMeTrEs_Particule="$PaRaMeTrEs_Particule"" chiffres=0"
$Z $xrv/particule.10$X \
$Z nombre_points=$NPoInTs1 \
$Z $PaRaMeTrEs_Particule \
$Z LISTE_X=$FPoints.1$COORD_X \
$Z LISTE_Y=$FPoints.1$COORD_Y \
$Z LISTE_RAYON=$_____Epaisseur1 \
$Z LISTE_ROUGE=$_____Rouge1 \
$Z LISTE_VERTE=$_____Verte1 \
$Z LISTE_BLEUE=$_____Bleue1 \
$Z isoles=VRAI \
$Z R=$_____ImageR.1 \
$Z $formatI
$Z # Trace du cercle 1. #
$Z set ITeMpOrAiRe_7=$xTV/COUR.21.7
$Z $xrv/particule.10$X \
$Z nombre_points=`calculINS $NPoInTs1/2` \
$Z $PaRaMeTrEs_Particule \
$Z LISTE_X=$FPoints.1$COORD_X \
$Z LISTE_Y=$FPoints.1$COORD_Y \
$Z LISTE_RAYON=$_____Epaisseur1 \
$Z LISTE_ROUGE=$_____Rouge1 \
$Z LISTE_VERTE=$_____Verte1 \
$Z LISTE_BLEUE=$_____Bleue1 \
$Z isoles=VRAI \
$Z R=$ITeMpOrAiRe_7 \
$Z $formatI
$Z # Trace du demi-cercle 1. #
$Z set NCercle2=`calculI $dpi*$_____Rayon*$_____NCercle2`
$Z set PaRaMeTrEs2="$K_VIDE"
$Z set PaRaMeTrEs2="$PaRaMeTrEs2"" premiere=1 derniere=$NCercle2"
$Z set PaRaMeTrEs2="$PaRaMeTrEs2"" lineaire=VRAI"
$Z set PaRaMeTrEs2="$PaRaMeTrEs2"" gamma=0"
$Z set PaRaMeTrEs2="$PaRaMeTrEs2"" tD=$_____Angle2D tA=$_____Angle2A"
$Z set PaRaMeTrEs2="$PaRaMeTrEs2"" rD=$_____Rayon rA=$_____Rayon"
$Z $xci/valeurs_trig$X \
$Z $PaRaMeTrEs2 \
$Z translation=$_____X \
$Z alpha=1 beta=0 \
$Z > $FPoints.2$COORD_X
$Z $xci/valeurs_trig$X \
$Z $PaRaMeTrEs2 \
$Z translation=$_____Y \
$Z alpha=0 beta=1 \
$Z > $FPoints.2$COORD_Y
$Z # Definition du cercle 2. #
$Z set NPoInTsX=`$CA $FPoints.2$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $FPoints.2$COORD_Y | $WCl`
$Z set NPoInTs2=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY`
$Z set PaRaMeTrEs3="$K_VIDE"
$Z set PaRaMeTrEs3="$PaRaMeTrEs3"" premiere=1 derniere=$NPoInTs2"
$Z set PaRaMeTrEs3="$PaRaMeTrEs3"" lineaire=VRAI"
$Z set PaRaMeTrEs3="$PaRaMeTrEs3"" entiers=VRAI"
$Z $xci/valeurs_inte$X \
$Z $PaRaMeTrEs3 \
$Z vD=$_____Rouge2D vA=$_____Rouge2A \
$Z > $FPoints.2$ROUGE
$Z $xci/valeurs_inte$X \
$Z $PaRaMeTrEs3 \
$Z vD=$_____Verte2D vA=$_____Verte2A \
$Z > $FPoints.2$VERTE
$Z $xci/valeurs_inte$X \
$Z $PaRaMeTrEs3 \
$Z vD=$_____Bleue2D vA=$_____Bleue2A \
$Z > $FPoints.2$BLEUE
$Z set PaRaMeTrEs_C2="$K_VIDE"
$Z set PaRaMeTrEs_C2="$PaRaMeTrEs_C2"" nombre_points=$NPoInTs2"
$Z set PaRaMeTrEs_C2="$PaRaMeTrEs_C2"" $PaRaMeTrEs_Particule"
$Z set PaRaMeTrEs_C2="$PaRaMeTrEs_C2"" LISTE_X=$FPoints.2$COORD_X"
$Z set PaRaMeTrEs_C2="$PaRaMeTrEs_C2"" LISTE_Y=$FPoints.2$COORD_Y"
$Z set PaRaMeTrEs_C2="$PaRaMeTrEs_C2"" LISTE_RAYON=$_____Epaisseur2"
$Z set PaRaMeTrEs_C2="$PaRaMeTrEs_C2"" LISTE_ROUGE=$FPoints.2$ROUGE"
$Z set PaRaMeTrEs_C2="$PaRaMeTrEs_C2"" LISTE_VERTE=$FPoints.2$VERTE"
$Z set PaRaMeTrEs_C2="$PaRaMeTrEs_C2"" LISTE_BLEUE=$FPoints.2$BLEUE"
$Z set PaRaMeTrEs_C2="$PaRaMeTrEs_C2"" isoles=VRAI"
$Z $xrv/particule.10$X \
$Z $PaRaMeTrEs_C2 \
$Z fond=VRAI F=$_____ImageR.1 \
$Z R=$_____ImageR.2 \
$Z $formatI
$Z # Trace du cercle 2 une premiere fois... #
$Z $xci/valeurs_inte$X \
$Z $PaRaMeTrEs3 \
$Z vD=$_____Rouge3D vA=$_____Rouge3A | \
$Z $xrv/neutre$X ne=0 \
$Z fichier== \
$Z exemplaires=2 \
$Z > $FPoints.2x2$ROUGE
$Z $xci/valeurs_inte$X \
$Z $PaRaMeTrEs3 \
$Z vD=$_____Verte3D vA=$_____Verte3A | \
$Z $xrv/neutre$X ne=0 \
$Z fichier== \
$Z exemplaires=2 \
$Z > $FPoints.2x2$VERTE
$Z $xci/valeurs_inte$X \
$Z $PaRaMeTrEs3 \
$Z vD=$_____Bleue3D vA=$_____Bleue3A | \
$Z $xrv/neutre$X ne=0 \
$Z fichier== \
$Z exemplaires=2 \
$Z > $FPoints.2x2$BLEUE
$Z set LaSt_X=`$CA $FPoints.2$COORD_X | $TAI -1`
$Z set LaSt_Y=`$CA $FPoints.2$COORD_Y | $TAI -1`
$Z $xrv/neutre$X ne=$NPoInTs2 \
$Z fichier=$LaSt_X | \
$Z $PAST - $FPoints.2$COORD_X | \
$Z $AW ' { print $1 "\n" $2 } ' \
$Z > $FPoints.2x2$COORD_X
$Z $xrv/neutre$X ne=$NPoInTs2 \
$Z fichier=$LaSt_Y | \
$Z $PAST - $FPoints.2$COORD_Y | \
$Z $AW ' { print $1 "\n" $2 } ' \
$Z > $FPoints.2x2$COORD_Y
$Z set NPoInTsX=`$CA $FPoints.2x2$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $FPoints.2x2$COORD_Y | $WCl`
$Z set NPoInTs2x2=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY`
$Z set LaMbDa=1.44
$Z $xrv/particule.10$X \
$Z nombre_points=$NPoInTs2x2 \
$Z $PaRaMeTrEs_Particule \
$Z LISTE_X=$FPoints.2x2$COORD_X \
$Z LISTE_Y=$FPoints.2x2$COORD_Y \
$Z LISTE_RAYON=$_____Epaisseur3 \
$Z LISTE_ROUGE=$FPoints.2x2$ROUGE \
$Z LISTE_VERTE=$FPoints.2x2$VERTE \
$Z LISTE_BLEUE=$FPoints.2x2$BLEUE \
$Z isoles=FAUX \
$Z ajuster_points=VRAI \
$Z equidistance=VRAI \
$Z distance_minimale=$_____DistanceMini \
$Z lambdaA=$LaMbDa lambdaB=$LaMbDa \
$Z fond=VRAI F=$_____ImageR.2 \
$Z R=$_____ImageR.3 \
$Z $formatI
$Z # Trace des secantes. #
$Z set DeLtA_X=0.5
$Z echo `calcul $LaSt_X-$DeLtA_X` `calcul $LaSt_X+$DeLtA_X` | \
$Z $AW ' { print $1 "\n" $2 } ' \
$Z > $FPoints.4$COORD_X
$Z echo $LaSt_Y $LaSt_Y | \
$Z $AW ' { print $1 "\n" $2 } ' \
$Z > $FPoints.4$COORD_Y
$Z set NPoInTsX=`$CA $FPoints.4$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $FPoints.4$COORD_Y | $WCl`
$Z set NPoInTs4=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY`
$Z set PaRaMeTrEs_TG="$K_VIDE"
$Z set PaRaMeTrEs_TG="$PaRaMeTrEs_TG"" nombre_points=$NPoInTs4"
$Z set PaRaMeTrEs_TG="$PaRaMeTrEs_TG"" $PaRaMeTrEs_Particule"
$Z set PaRaMeTrEs_TG="$PaRaMeTrEs_TG"" LISTE_X=$FPoints.4$COORD_X"
$Z set PaRaMeTrEs_TG="$PaRaMeTrEs_TG"" LISTE_Y=$FPoints.4$COORD_Y"
$Z set PaRaMeTrEs_TG="$PaRaMeTrEs_TG"" LISTE_RAYON=$_____Epaisseur4"
$Z set PaRaMeTrEs_TG="$PaRaMeTrEs_TG"" LISTE_ROUGE=$_____Rouge4"
$Z set PaRaMeTrEs_TG="$PaRaMeTrEs_TG"" LISTE_VERTE=$_____Verte4"
$Z set PaRaMeTrEs_TG="$PaRaMeTrEs_TG"" LISTE_BLEUE=$_____Bleue4"
$Z set PaRaMeTrEs_TG="$PaRaMeTrEs_TG"" isoles=FAUX"
$Z set PaRaMeTrEs_TG="$PaRaMeTrEs_TG"" ajuster_points=VRAI"
$Z set PaRaMeTrEs_TG="$PaRaMeTrEs_TG"" equidistance=VRAI"
$Z set PaRaMeTrEs_TG="$PaRaMeTrEs_TG"" distance_minimale=$_____DistanceMini"
$Z $xrv/particule.10$X \
$Z $PaRaMeTrEs_TG \
$Z fond=VRAI F=$_____ImageR.3 \
$Z R=$_____ImageR.4 \
$Z $formatI
$Z # Trace de la tangente. #
$Z echo `calcul $LaSt_X-$DeLtA_X` $LaSt_X | \
$Z $AW ' { print $1 "\n" $2 } ' \
$Z > $FPoints.6$COORD_X
$Z echo $LaSt_Y $LaSt_Y | \
$Z $AW ' { print $1 "\n" $2 } ' \
$Z > $FPoints.6$COORD_Y
$Z echo $_____Epaisseur6A $_____Epaisseur6D | \
$Z $AW ' { print $1 "\n" $2 } ' \
$Z > $FPoints.6$RAYON
$Z set NPoInTsX=`$CA $FPoints.6$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $FPoints.6$COORD_Y | $WCl`
$Z set NPoInTs6=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY`
$Z set PaRaMeTrEs_VI="$K_VIDE"
$Z set PaRaMeTrEs_VI="$PaRaMeTrEs_VI"" nombre_points=$NPoInTs6"
$Z set PaRaMeTrEs_VI="$PaRaMeTrEs_VI"" $PaRaMeTrEs_Particule"
$Z set PaRaMeTrEs_VI="$PaRaMeTrEs_VI"" LISTE_X=$FPoints.6$COORD_X"
$Z set PaRaMeTrEs_VI="$PaRaMeTrEs_VI"" LISTE_Y=$FPoints.6$COORD_Y"
$Z set PaRaMeTrEs_VI="$PaRaMeTrEs_VI"" LISTE_RAYON=$FPoints.6$RAYON"
$Z set PaRaMeTrEs_VI="$PaRaMeTrEs_VI"" LISTE_ROUGE=$_____Rouge6"
$Z set PaRaMeTrEs_VI="$PaRaMeTrEs_VI"" LISTE_VERTE=$_____Verte6"
$Z set PaRaMeTrEs_VI="$PaRaMeTrEs_VI"" LISTE_BLEUE=$_____Bleue6"
$Z set PaRaMeTrEs_VI="$PaRaMeTrEs_VI"" isoles=FAUX"
$Z set PaRaMeTrEs_VI="$PaRaMeTrEs_VI"" ajuster_points=VRAI"
$Z set PaRaMeTrEs_VI="$PaRaMeTrEs_VI"" equidistance=VRAI"
$Z set PaRaMeTrEs_VI="$PaRaMeTrEs_VI"" distance_minimale=$_____DistanceMini"
$Z $xrv/particule.10$X \
$Z $PaRaMeTrEs_VI \
$Z fond=VRAI F=$ITeMpOrAiRe_7 \
$Z R=$_____ImageR.6 \
$Z $formatI
$Z # Trace du vecteur vitesse. #
$Z $xrv/particule.10$X \
$Z $PaRaMeTrEs_C2 \
$Z fond=VRAI F=$_____ImageR.4 \
$Z R=$_____ImageR.4 \
$Z $formatI
$Z # Trace du cercle 2 une deuxieme fois afin de mettre au premier plan les points #
$Z # d'intersection entre le cercle et les secantes... #
$Z set PaRaMeTrEs_PTG="$K_VIDE"
$Z set PaRaMeTrEs_PTG="$PaRaMeTrEs_PTG"" nombre_points=1"
$Z set PaRaMeTrEs_PTG="$PaRaMeTrEs_PTG"" $PaRaMeTrEs_Particule"
$Z set PaRaMeTrEs_PTG="$PaRaMeTrEs_PTG"" LISTE_X=$LaSt_X"
$Z set PaRaMeTrEs_PTG="$PaRaMeTrEs_PTG"" LISTE_Y=$LaSt_Y"
$Z set PaRaMeTrEs_PTG="$PaRaMeTrEs_PTG"" LISTE_RAYON=`calcul $_____FEpaisseur2*$_____Epaisseur2`"
$Z set PaRaMeTrEs_PTG="$PaRaMeTrEs_PTG"" LISTE_ROUGE=$_____Rouge2A"
$Z set PaRaMeTrEs_PTG="$PaRaMeTrEs_PTG"" LISTE_VERTE=$_____Verte2A"
$Z set PaRaMeTrEs_PTG="$PaRaMeTrEs_PTG"" LISTE_BLEUE=$_____Bleue2A"
$Z set PaRaMeTrEs_PTG="$PaRaMeTrEs_PTG"" isoles=VRAI"
$Z $xrv/particule.10$X \
$Z $PaRaMeTrEs_PTG \
$Z fond=VRAI F=$_____ImageR.4 \
$Z R=$_____ImageR.4 \
$Z $formatI
$Z # Trace du point de tangence... #
$Z $xrv/particule.10$X \
$Z $PaRaMeTrEs_TG \
$Z fond=VRAI F=$_____ImageR.1 \
$Z R=$_____ImageR.5 \
$Z $formatI
$Z # Trace de la tangente avec le cercle 1 seul... #
$Z $xrv/particule.10$X \
$Z $PaRaMeTrEs_PTG \
$Z fond=VRAI F=$_____ImageR.5 \
$Z R=$_____ImageR.5 \
$Z $formatI
$Z # Trace du point de tangence... #
$Z set CeNtRe_XY=`$xcg/DIVZ.01$X a=1 b=2`
$Z set PoIntP_X=`$xcg/ADD2.01$X a=$LaSt_X b=$CeNtRe_XY`
$Z set PoIntP_Y=`$xcg/ADD3.01$X a=$LaSt_Y b=$CeNtRe_XY c=0.080`
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" message='P'"
$Z set ArGuMeNtS="$ArGuMeNtS"" bibliotheque=0"
$Z set ArGuMeNtS="$ArGuMeNtS"" X=$PoIntP_X Y=$PoIntP_Y"
$Z set ArGuMeNtS="$ArGuMeNtS"" taille=2"
$Z set ArGuMeNtS="$ArGuMeNtS"" centrer=VRAI"
$Z set ArGuMeNtS="$ArGuMeNtS"" anti_aliasing=VRAI"
$Z execRVB $xci/message$X \
$Z A=$_____ImageR.4%s \
$Z $ArGuMeNtS \
$Z R=$_____ImageR.4%s \
$Z $formatI
$Z execRVB $xci/message$X \
$Z A=$_____ImageR.5%s \
$Z $ArGuMeNtS \
$Z R=$_____ImageR.5%s \
$Z $formatI
$Z FileTmpE FPoints