#######################################################################################################################################
# #
# C O N S T R U C T I O N D E L A F I G U R E U T I L E A #
# U N E D E M O N S T R A T I O N D U T H E O R E M E D E P Y T H A G O R E : #
# #
# #
# Author of '$xiirv/.PYTH.34.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20180312145906). #
# #
#######################################################################################################################################
$Z set DeCaLaGe1=0
$Z set DeCaLaGe2=0
$Z # Decalages de "superposition"... #
$Z _____include(_____xiirv/.PYTH.31.2._____U)
$Z # Definition de la geometrie : #
$Z # #
$Z # #
$Z # A ----------*-------------------------- B #
$Z # #
$Z # | E0 | #
$Z # | | #
$Z # | | #
$Z # | | #
$Z # | | #
$Z # | F0 * #
$Z # | | #
$Z # | | #
$Z # | | #
$Z # | | #
$Z # | | #
$Z # | | #
$Z # | | #
$Z # | | #
$Z # | | #
$Z # | | #
$Z # * H0 | #
$Z # | | #
$Z # | | #
$Z # | | #
$Z # | | #
$Z # | G0 | #
$Z # #
$Z # D ---------------------------*--------- C #
$Z # #
$Z # #
$Z SETParam _____TraceTR1 $NEXIST
$Z SETParam _____TraceGC $EXIST
$Z SETParam _____TracePC $EXIST
$Z setParam _____Grossissement 2.0
$Z setParam _____Rayon 0.01
$Z setParam _____Zoom 1.15
$Z FilSTmpB FCoOrDoNnEes
$Z if ($_____TraceTR1 == $EXIST) then
$Z Gsegment $X_PointD $Y_PointD $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointG0 $Y_PointG0 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointG0 $Y_PointG0 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z Gsegment $X_PointH0 $Y_PointH0 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z Gsegment $X_PointH0 $Y_PointH0 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointD $Y_PointD $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z # Trace du triangle bas-gauche. #
$Z else
$Z endif
$Z if ($_____TraceGC == $EXIST) then
$Z Gsegment $X_PointD $Y_PointD $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointG0 $Y_PointG0 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointG0 $Y_PointG0 $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z Gsegment $X_PointC $Y_PointC $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z Gsegment $X_PointC $Y_PointC $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z Gsegment $X_PointF0 $Y_PointF0 $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z Gsegment $X_PointF0 $Y_PointF0 $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z Gsegment $X_PointB $Y_PointB $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z Gsegment $X_PointB $Y_PointB $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z Gsegment $X_PointE0 $Y_PointE0 $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z Gsegment $X_PointE0 $Y_PointE0 $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z Gsegment $X_PointA $Y_PointA $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z Gsegment $X_PointA $Y_PointA $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z Gsegment $X_PointH0 $Y_PointH0 $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z Gsegment $X_PointH0 $Y_PointH0 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointD $Y_PointD $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z # Trace du grand carre exterieur. #
$Z else
$Z endif
$Z if ($_____TracePC == $EXIST) then
$Z Gsegment $X_PointG5 $Y_PointG5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z Gsegment $X_PointF5 $Y_PointF5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z Gsegment $X_PointF5 $Y_PointF5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z Gsegment $X_PointE5 $Y_PointE5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z Gsegment $X_PointE5 $Y_PointE5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z Gsegment $X_PointH5 $Y_PointH5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z Gsegment $X_PointH5 $Y_PointH5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z Gsegment $X_PointG5 $Y_PointG5 $RoUgE____5 $VeRtE____5 $BlEuE____5
$Z # Trace du petit petit carre interieur. #
$Z else
$Z endif
$Z set NpointsX=`$CA $FCoOrDoNnEes$COORD_X | $WCl`
$Z set NpointsY=`$CA $FCoOrDoNnEes$COORD_Y | $WCl`
#20220615121029____:$Z set Npoints=`$xcg/MAX2.01$X x=$NpointsX y=$NpointsY` #
$Z set Npoints=`$xcg/MIN2.01$X x=$NpointsX y=$NpointsY`
$Z set PaRaMeTrEsP="$K_VIDE"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" npoints=$Npoints"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_X=$FCoOrDoNnEes$COORD_X"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_Y=$FCoOrDoNnEes$COORD_Y"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_Z=0.5"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" grossissement=$_____Grossissement"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_ROUGE=$FCoOrDoNnEes$ROUGE"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_VERTE=$FCoOrDoNnEes$VERTE"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_BLEUE=$FCoOrDoNnEes$BLEUE"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" LISTE_RAYON=$_____Rayon"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" ZOOM=$_____Zoom"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" Lz=100"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" isoles=FAUX"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" Pajuster=VRAI equidistance=VRAI"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" couronne=2"
$Z # Introduit le 20200503111158 pour ameliorer la qualite... #
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" N_AU_CARRE=VRAI"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" chiffres=0"
$Z set PaRaMeTrEsP="$PaRaMeTrEsP"" R=$_____ImageR"
$Z $xrv/particule.10$X \
$Z $PaRaMeTrEsP \
$Z $formatI
$Z # Visualisation du contour... #
$Z FilSTmpE FCoOrDoNnEes
Copyright © Jean-François COLONNA, 2019-2024.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2019-2024.