#######################################################################################################################################
# #
# 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.31.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20130316140106). #
# #
#######################################################################################################################################
$Z SETParam _____TraceGC $EXIST
$Z # Parametre introduit le 20130321172331... #
$Z SETParam _____TracePC $EXIST
$Z # Parametre introduit le 20130321172331... #
$Z SETParam _____TraceTR $EXIST
$Z # Parametre introduit le 20130321172331... #
$Z setParam _____Rayon 0.01
$Z setParam _____Zoom 1.15
$Z SETParam _____Surface $NEXIST
$Z # Parametre introduit le 20130324165222... #
$Z SETParam _____LumSurface 0.3
$Z # Parametre introduit le 20130324165222... #
$Z FilSTmpB FCoOrDoNnEes
$Z set DeCaLaGe1=0.02
$Z set DeCaLaGe2=0.03
$Z # Decalages de "non superposition". #
$Z _____include(_____xiirv/.PYTH.31.2._____U)
$Z # Definition de la geometrie (mise sous cette forme le 20170426090717)... #
$Z if ($_____TraceGC == $EXIST) then
$Z # Test introduit le 20130321172331... #
$Z Gsegment $X_PointD $Y_PointD $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_PointB $Y_PointB $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z Gsegment $X_PointB $Y_PointB $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_PointD $Y_PointD $RoUgE____0 $VeRtE____0 $BlEuE____0
$Z # Trace du grand carre exterieur. #
$Z else
$Z endif
$Z if ($_____TracePC == $EXIST) then
$Z # Test introduit le 20130321172331... #
$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 if ($_____TraceTR == $EXIST) then
$Z # Test introduit le 20130321172331... #
$Z Gsegment $X_PointD4 $Y_PointD4 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointG4 $Y_PointG4 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointG4 $Y_PointG4 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointH4 $Y_PointH4 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointH4 $Y_PointH4 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointD4 $Y_PointD4 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z # Trace du premier triangle rectangle. #
$Z Gsegment $X_PointC3 $Y_PointC3 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointF3 $Y_PointF3 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointF3 $Y_PointF3 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointG3 $Y_PointG3 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointG3 $Y_PointG3 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointC3 $Y_PointC3 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z # Trace du second triangle rectangle. #
$Z Gsegment $X_PointB2 $Y_PointB2 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointE2 $Y_PointE2 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointE2 $Y_PointE2 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointF2 $Y_PointF2 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointF2 $Y_PointF2 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointB2 $Y_PointB2 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z # Trace du troisieme triangle rectangle. #
$Z Gsegment $X_PointA1 $Y_PointA1 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointH1 $Y_PointH1 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointH1 $Y_PointH1 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointE1 $Y_PointE1 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointE1 $Y_PointE1 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z Gsegment $X_PointA1 $Y_PointA1 $RoUgE_1234 $VeRtE_1234 $BlEuE_1234
$Z # Trace du quatrieme triangle rectangle. #
$Z else
$Z endif
$Z set NpointsX=`$CA $FCoOrDoNnEes$COORD_X | $WCl`
$Z set NpointsY=`$CA $FCoOrDoNnEes$COORD_Y | $WCl`
#20220615121341____:$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"" 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 20200503110952 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 if ($_____Surface == $EXIST) then
$Z # Test introduit le 20130324165222... #
$Z $xci/luminance.01$X \
$Z A=$_____ImageR \
$Z $formatI | \
$Z $xci/seuil$X \
$Z $formatI | \
$Z $xci/contours.12$X \
$Z $formatI | \
$Z $xci/complement$X \
$Z $formatI | \
$Z $xci/dilate.01$X \
$Z eroder=VRAI \
$Z points=49 \
$Z $formatI | \
$Z $xci/scale$X \
$Z a=$_____LumSurface \
$Z R=$xTV/SURFACE \
$Z $formatI
$Z execRVB $xci/neutre$X \
$Z A=$xTV/SURFACE \
$Z R=$xTV/SURFACE%s \
$Z $formatI
$Z $xrv/particule.10$X \
$Z fond=VRAI \
$Z F=$xTV/SURFACE \
$Z $PaRaMeTrEsP \
$Z $formatI
$Z # Visualisation finale... #
$Z else
$Z endif
$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.