####################################################################################################################################### # # # G E N E R A T I O N D ' U N A R B R E : # # # # # # Author of '$xiirv/.QUAD.11.1.$U' : # # # # Jean-Francois Colonna (LACTAMME, 20150624093241). # # # ####################################################################################################################################### $Z setParam _____Exotique `GetParam $xci/valeurs_Arbre.01$X etiquettage_exotique` $Z # Parametre introduit le 20150625114459... # $Z setParam _____3D `GetParam $xci/valeurs_Arbre.01$X tridimensionnel` $Z setParam _____X0 `GetParam $xci/valeurs_Arbre.01$X X0` $Z setParam _____Y0 `GetParam $xci/valeurs_Arbre.01$X Y0` $Z setParam _____Z0 `GetParam $xci/valeurs_Arbre.01$X Z0` $Z setParam _____X1 `GetParam $xci/valeurs_Arbre.01$X X1` $Z setParam _____Y1 `GetParam $xci/valeurs_Arbre.01$X Y1` $Z setParam _____Z1 `GetParam $xci/valeurs_Arbre.01$X Z1` $Z setParam _____X1 `GetParam $xci/valeurs_Arbre.01$X X1` $Z setParam _____Y1 `GetParam $xci/valeurs_Arbre.01$X Y1` $Z setParam _____Z1 `GetParam $xci/valeurs_Arbre.01$X Z1` $Z setParam _____X2 `GetParam $xci/valeurs_Arbre.01$X X2` $Z setParam _____Y2 `GetParam $xci/valeurs_Arbre.01$X Y2` $Z setParam _____Z2 `GetParam $xci/valeurs_Arbre.01$X Z2` $Z setParam _____Iterations 1 $Z setParam _____NBranchesTheta 5 $Z setParam _____EvasementTheta $pis2 $Z setParam _____NBranchesPhi 1 $Z setParam _____EvasementPhi 0 $Z setParam _____Reduction 1 $Z setParam _____AGraine `GetParam $xci/valeurs_Arbre.01$X graine` $Z setParam _____BIBranchesTheta `GetParam $xci/valeurs_Arbre.01$X borne_inferieure_branches_theta` $Z setParam _____BSBranchesTheta `GetParam $xci/valeurs_Arbre.01$X borne_superieure_branches_theta` $Z setParam _____BIBranchesPhi `GetParam $xci/valeurs_Arbre.01$X borne_inferieure_branches_phi` $Z setParam _____BSBranchesPhi `GetParam $xci/valeurs_Arbre.01$X borne_superieure_branches_phi` $Z setParam _____BIRho `GetParam $xci/valeurs_Arbre.01$X borne_inferieure_rho` $Z setParam _____BSRho `GetParam $xci/valeurs_Arbre.01$X borne_superieure_rho` $Z setParam _____BITheta `GetParam $xci/valeurs_Arbre.01$X borne_inferieure_theta` $Z setParam _____BSTheta `GetParam $xci/valeurs_Arbre.01$X borne_superieure_theta` $Z setParam _____BIPhi `GetParam $xci/valeurs_Arbre.01$X borne_inferieure_phi` $Z setParam _____BSPhi `GetParam $xci/valeurs_Arbre.01$X borne_superieure_phi` $Z setParam _____BIZ `GetParam $xci/valeurs_Arbre.01$X borne_inferieure_Z` $Z setParam _____BSZ `GetParam $xci/valeurs_Arbre.01$X borne_superieure_Z` $Z FilSTmpB FiLeTmP_ARBRE $Z set ChiffresFlot=8 $Z $xci/valeurs_Arbre.01$X \ $Z tridimensionnel=$_____3D \ $Z etiquetter=VRAI \ $Z etiquettage_exotique=$_____Exotique \ $Z numeroter=VRAI \ $Z X0=$_____X0 \ $Z Y0=$_____Y0 \ $Z Z0=$_____Z0 \ $Z X1=$_____X1 \ $Z Y1=$_____Y1 \ $Z Z1=$_____Z1 \ $Z X2=$_____X2 \ $Z Y2=$_____Y2 \ $Z Z2=$_____Z2 \ $Z iterations=$_____Iterations \ $Z nombre_branches_theta=$_____NBranchesTheta \ $Z evasement_theta=$_____EvasementTheta \ $Z nombre_branches_phi=$_____NBranchesPhi \ $Z evasement_phi=$_____EvasementPhi \ $Z facteur_reduction=$_____Reduction \ $Z graine=$_____AGraine \ $Z borne_inferieure_branches_theta=$_____BIBranchesTheta \ $Z borne_superieure_branches_theta=$_____BSBranchesTheta \ $Z borne_inferieure_branches_phi=$_____BIBranchesPhi \ $Z borne_superieure_branches_phi=$_____BSBranchesPhi \ $Z borne_inferieure_rho=$_____BIRho \ $Z borne_superieure_rho=$_____BSRho \ $Z borne_inferieure_theta=$_____BITheta \ $Z borne_superieure_theta=$_____BSTheta \ $Z borne_inferieure_phi=$_____BIPhi \ $Z borne_superieure_phi=$_____BSPhi \ $Z borne_inferieure_Z=$_____BIZ \ $Z borne_superieure_Z=$_____BSZ \ $Z signer_valeurs=FAUX \ $Z ChiffresFlot=$ChiffresFlot \ $Z >> $FiLeTmP_ARBRE $Z # Le 20150628192615 a ete inhibe le signe de toutes les valeurs et ce a cause des tris # $Z # faits ensuite ('v $xiirv/.QUAD.11.2.$U 20150628181208709')... #