MVR4
I,calcul_proj=6"%&falseGE\[l=%,orthogonaleG:6$%'lambdaG%$phiG6*%"xG%"yG%%coscG%
%coslG%(sinphi1G%(cosphi1G%'sinphiG%'cosphiGF$F$C*>8)-%$cosG6#""!>8(-%$sinGF:>8
+-F96#9%>8*-F?FC>8'*&-F96#9$"""FAFN>8&-%&evalfG6#,&*$F=""#FN*&F7FNFIFNFN@%1F;FP
C$>8$*&FAFN-F?FLFN>8%,&*&F7FNFFFNFN*&F=FNFIFN!"">FfnF;7$FfnFjnF$F$%3simple_poly
coniqueG:F)6&F-F.%#spG%%phitGF$F$C(>FIFD@$/FIF;>FI$FN!"#>FP-F?6#FI>Ffn*&-%$cotG
F_pFN-F?6#*&FMFNFPFNFN>Fjn,&FIFN*&FbpFN-F?6#,$Ffp#FNFVFVFVF`oF$F$%%testG:F)6$F-
F.F$F$C%>FfnFM>FjnFDF`oF$F$%@cylindrique_equivalente_LambertG:F)F`qF$F$C%>FjnFG
>FfnFMF`oF$F$%=sanson_flamsteed_equivalenteG:F)F`qF$F$C%>Ffn*&FMFNFBFN>FjnFDF`o
F$F$%1vue_de_satelliteG:6(F*F+%(lambda0G%%phi0G%-altitude_satG%,rayon_terreG6;F
-F.%#c1G%#c2G%#c3G%#c4G%#c5G%#c6G%#c7G%#c8G%#c9G%$c10G%$c11G%"lG%"kG%#xpG%#ypG%
#zpG%$cphG%$sphG%%sph0G%$sl0G%$cl0G%%cph0G%"dG6#%)rememberGF$C9>89-F?6#9&>8;-F9
6#9'>88-F?Fit>8:-F9Fdt>87FG>86FB>FP,$*$FbtF^oF^o>FI,$**F\uFNF_uFNFgtF^oFbtF^oF^
o>F=**9)FNF_uFNFgtF^oFbtF^o>F7*$FgtF^o>FF,$*(F]vFNF\uFNFgtF^oF^o>8-,&F]vFN9(FN>
8.*(FdvFNFgtFNF_uFN>8/*&FdvFNF\uFN>80*&F]vFN-%%sqrtG6#*&FfvFN,&FfvFNF]vFVF^oFN>
81,&*(FduFN-F96#,&FMFNFetF^oFNFgtFNFN*&FbuFNF\uFNFN>82*&FfvFN,&FdvFN*&F]vFNFfwF
NF^oF^o>83,&**F^xFNF]vFNFduFNFKFNFN*&,&FNFNF^xF^oFNFhvFNFN>85,&*(F^xFNF]vFNFbuF
NFN*&FgxFNF[wFNFN>Ffn,(*&FcxFNFPFNFN*&FixFNFIFNFNF=FN>Fjn,&*&FixFNF7FNFNFFFN@$2
Ffw*&F]vFNFdvF^oC%>8<*&F^wFN-Faw6#,&*$FfnFVFN*$FjnFVFNF^o>Ffn*&FfnFNFiyFN>Fjn*&
FjnFNFiyFNF`oF$F$%Hpseudo_cylindrique_equivalente_fournierG:F)6&F-F.%%unspG%%pi
s2GF^tF$C'>FP-FR6#*$-Faw6#%#PiGF^o>FI-FR6#,$F`[lF]q>Ffn*(FPFNFMFNFBFN>Fjn*(FPFN
FIFNFGFNF`oF$F$%@parabolique_equivalente_crasterG:F)6&F-F.%$pi3G%%phi3GF^tF$C'>
FP,$F`[l""$>FI,$FD#FNFa\l>Fjn*&-Faw6#FPFNF^pFN>Ffn,$*(FMFNF`[lF^o,&FNFN*&FjnFVF
PF^o!"%FN#Fa\lFVF`oF$F$%2cylindrique_braunG:F)6%F-F.FeoF$F$C&>FPFD>FfnFM>Fjn,$-
%$tanG6#,$FDF]qFVF`oF$F$%%gallG:6%F*F+FcrF`qF$F$C%>Ffn*&FMFNF`uFN>Fjn*&,&FNFNF`
uFNFNFh]lFNF`oF$F$%.briesemeisterG:F)6'F-F.%#pmG%#lmGF]tF$F$C(>FP-%'arcsinG6#*&
,&FGFN*&FBFNFKFNF^oFN-Faw6#FVF^o>FI-%'arccosG6#*(,&FGFNFa_lFNFNFb_lF^o-F9Fh\lF^
o>F=,$*$,&FNFN*&Fj_lFN-F96#,$FIF]qFNFNF^oFV>Ffn**-%%signGFLFN-Faw6#,$F=$"#NF^oF
NFj_lFN-F?Fa`lFN>Fjn*(-Faw6#,$F=FVFN-F?Fh\lFN-Faw6#$"$v"F\pF^oF`oF$F$%2peter_eq
uivalenteG:6%F*F+%%coefG6(F-F.Feo%(lambdatG%%ctshG%%pi12GF$F$C)>FPFD>FIFM>FP*&F
IFNFetFN>FI*&FGFNFetF^o>FjnFI>FfnFPF`oF$F$%/nettoie_lignesG:6#'%(areamapG%%PLOT
G6-%'newmapG%*allcurvesG%*numcurvesG%)datalistG%*numpointsG%&slistG%"iG%#iiGFcs
%*newpointsG%+delta_gridGF$F$C(>FfnFM@%/9#FN>Fhv"#]>Fhv&9"Fc_l>Fjn-%'selectG6%%
$hasG7#-%#opGFL%'CURVESG>FP-%%nopsG6#Fjn?(FFFNFNFP%%trueG?&FI7#-Fjdl6#&Fjn6#FFF
ael@$-%%typeG6$FI%%listGC'>F=-F^elF_p>F77#FN?(8,FVFNF=Fael@$34-Fgdl6$7$&FI6#Fcf
l&FI6#,&FcflFNF^oFN<$%%FAILG%*undefinedG52Fhv-%$absG6#,&&Fjfl6#FNFN&F\glFiglF^o
2Fhv-Fegl6#,&&FjflFc_lFN&F\glFc_lF^o>F77$-Fjdl6#F7Fcfl>F77$Fchl,&F=FNFNFN@$2FV-
F^elFdhlC$>Fdv-%$seqG6$&FI6#;&F76#,&FAFNF^oFN,&&F76#FAFNF^oFN/FA;FVFjhl>Ffn-%%s
ubsG6$/FIFdvFfn-%'RETURNG6#FfnF$F$%'millerG:F)F`qF$F$C%>FfnFM>Fjn,$-%#lnG6#-Fi]
l6#,&F`[l#FN""%FD$F`[mF^o$"++++]7!"*F`oF$F$%(wiechelG:F)F`qF$F$C%>Fjn,&*&FBFNFh
nFNFN*&,&FNFNFGF^oFNFKFNF^o>Ffn,&Fa_lFN*&F\\mFNFhnFNFNF`oF$F$%&bonneG:6&F*F+Fbr
Fcr6&F-F.%$rhoG%&thetaGF$F$C'>FP,(-FcpFitFNFjtFNFDF^o>FI*(FBFNF[xFNFPF^o>Ffn*&F
PFNF^pFN>Fjn,$*&FPFN-F9F_pFNF^oF`oF$F$%9conique_conforme_LambertG:6&F*F+%,paral
lele_1G%,parallele_2G68F-F.%$pc1G%$pc2GFeo%&pi180G%$pi2G%%cpl1G%%cpl2G%%spl1G%%
spl2G%$pl1G%$pl2G%%dpl1G%%dpl2G%%tpl1G%%tpl2G%"nG%$lt2G%$lttG%"rG%#thGF^tF$C7>F
[wFet>F^wFjt>F=FD@$2F=F;>F=F;>FFFb[l>FA,&FFFNF[wF^o>Fcfl,&FFFNF^wF^o>Fdv-FR6#-F
?Fhil>Fhv-FR6#-F?F[gl>Ffw-FR6#,$FAF]q>F^x-FR6#,$FcflF]q>Fcx-FR6#*&-F?6#FfwFN-F9
F\amF^o>84-FR6#*&-F?6#F^xFN-F9FdamF^o>Fix-FR6#*&,&-Fjjl6#FdvFN-Fjjl6#FhvF^oFN,&
-Fjjl6#FcxFN-Fjjl6#F_amF^oF^o>Fdu-FR6#,&FFF]qF=#F^oFV>Fbu-FR6#*&-F?6#FduFN-F9F^
cmF^o>F\u-FR6#*(FdvFNFixF^o)*&FbuFNFcxF^oFixFN>Fbt-FR6#*&FixFNFMFN>Ffn-FR6#*&F\
uFN-F?6#FbtFN>Fjn-FR6#*&F\uFN-F9F_dmFNF`oF$F$%*collignonG:F)6%F-F.%"sGF$F$C&>FP
-Faw6#F\\m>Ffn,$*(FMFNFPFNF^[lF^oFV>Fjn*&F^[lFN,&FNFNFPF^oFNF`oF$F$%3gnomonique
_polaireG:F)6'F-F.FeoF]blF^blF^tF$C)>FPFD>F=-FR6#,$F`[l#FN"#7@$2FPF=>FPF=>FI*&F
j_lFNFbalF^o>Ffn*&FIFNFKFN>Fjn*&FIFNFhnFNF`oF$F$%Gpolaire_azimuthale_equivalent
e_LambertG:F)6'F-F.FeoF]bl%$r45GF$F$C)>FPFD@$2FPF;>FPF;>F=-FR6#,$F`[lF_[m>FI-F?
6#,&F=FNFPFhbm>FfnFffm>FjnFdfmF`oF$F$%=conique_equidistante_LambertG:6%F*F+%2pa
rallele_contactG6*F-F.%#pcGFeoFj]m%&sinpcG%$sppG%#scGF$F$C+>FIFD@$2FIF;>FIF;>FP
Fet>F7Fbal>FF*&FMFNF7FN>FA*(Fa]mFNF7F^o-F96#,&FIFNFPF^oF^o>Ffn*&FAFN-F?FgelFN>F
jn*&FAFN-F9FgelFNF`oF$F$%:hammer_aitoff_equivalenteG:F)6'F-F.%%rac2GF4%)lambdas
2GF^tF$C(>FPFb_l>FIFB>F=,$FMF]q>Ffn,$**FPFNFIFN-F?6#F=FN-Faw6#,&FNFN*&FIFN-F9Fe
jmFNFNF^oFV>Fjn*(FPFNFGFNFfjmF^oF`oF$F$%'calculG:6%%&paramG%"tG%,liste_paramG66
%#tiG%#t1G%#t2G%%noptG%&noptiG%"jG%#xyGFeclF*Fbr%"RGFcrF+Fj]mFjalFdrFer%%pc_1G%
%pc_2GF_hmF^tF$C*>Ffw-FR6#,$F`[l#FN"$!=>Ffn-%&arrayG6#;FN-F^elFC>FIFj\n>Fjn%%NU
LLG>FPF]]n?(FAFNFNFIFael>&FfnFhil-%(convertG6$&FDFhilFg\n?(FAFNFNFIFaelC&>F=-%'
rowdimG6#Fa]n>FjnF]]n?(F7FNFNF=FaelCA>Fcfl&Fa]n6$F7FN>F^w&Fa]n6$F7FV@$/FM%)Merc
atorG>FF-%)mercatorG6$FcflF^w@$/FM%$UTMG>FF-%$utmGF[_n@$/FM%)LagrangeG>FF-%)lag
rangeGF[_n@$/FM%(CassiniG>FF-%(cassiniGF[_n@$/FM%*CollignonG>FF-FedmF[_n@$/FM%%
GallGC$>F[w&FetFigl>FF-F\^l6%FcflF^w*&F[wFNFfwFN@$/FM%2Cylindrique_BraunG>FF-F`
]lF[_n@$/FM%'MillerG>FF-FcjlF[_n@$/FM%:Cylindrique_Equiv_LambertG>FF-FdqF[_n@$/
FM%7Pseudo_Cylind_Equiv_IIG>FF-FdzF[_n@$/FM%=Pseudo_Cylindrique_FlamsteedG>FF-F
iqF[_n@$/FM%;Pseudo_Cylindrique_CrasterG>FF-Fi[lF[_n@$/FM%8Cylindrique_Equiv_Pe
terGC$>F^xFh`n>FF-Fgal6%FcflF^wF^x@$/FM%,OrthogonaleG>FF-F'F[_n@$/FM%0Stereogra
phiqueG>FF-%0stereographiqueGF[_n@$/FM%(WiechelG>FF-Fe[mF[_n@$/FM%@Polaire_Pers
pective_EquivalenteG>FF-FgfmF[_n@$/FM%3Gnomonique_PolaireG>FF-FcemF[_n@$/FM%1Vu
e_de_satelliteGC'>FdvFh`n>F[w&FetFc_l>Fcx&Fet6#Fa\l>F_am&Fet6#F`[m>FF-F_r6(Fcfl
F^w*&FdvFNFfwFNF\anFcxF_am@$/FM%3Simple_PolyconiqueG>FF-FaoF[_n@$/FM%9Polyconiq
ue_Equiv_HammerG>FF-FgimF[_n@$/FM%.BriesemeisterG>FF-Fe^lF[_n@$/FM%=Conique_Equ
idistante_LambertGC'>FixFh`n>FbuFix@$2Fbu"#:>FbuFegn>Fbu*&FbuFNFfwFN>FF-Fjgm6%F
cflF^wFbu@$/FM%8Conique_Lambert_SecanteGC%>Fix*&Fh`nFNFfwFN>Fdu*&FcenFNFfwFN>FF
-Fb]m6&FcflF^wFixFdu@$/FM%:Conique_Bonne_EquivalenteGC%>FdvFahn>F[wFchn>FF-F`\m
6&FcflF^wFdvF[w@$/FM%,AnaximandreG>FF-F^qF[_n>&FFFigl*&FfinFN-FR6#,$*$F`[lF^oFd
\nFN>&FFFc_l*&F]jnFNFhinFN>Fjn6$Fjn7$FfinF]jn>FP6$FP7#Fjn7#FPF$F$Fa_n:F)6*F-F.%
%phimG%'phimaxG%$sglG%$sgpGFi^l%%lmaxGF$F$C->FPFD>FIFb[l>F7-Ff`lFC>F=Fe`l>FFFM>
FA$"#8F^o@$2FA-FeglFgelC$>FFFA>FF*&FFFNF=FN@$2FI-FeglFh\lC$>FPFI>FP*&FPFN%#sgGF
N>Ffn,$-Fjjl6#*&,&FNFN*&Fj_lFNFcimFNFNFN,&FNFNF\]oF^oF^o$""&F^o>Fjn-%'arctanG6#
*&-Fi]lFh\lFN-%$secGFgelFNF`oF$F$Fg_n:F)6'F-F.%#p1G%"cGFa[nF$F$C(>FP-F]_l6#Fh]l
>FIFj_l>F=,&FNFN*&FIFN-F96#F`jmFNFN>Ffn*(FIFN-F?Fe^oFNF=F^o>Fjn*&FbalFNF=F^oF`o
F$F$F]dn:F)6&F-F.F]blFeoF$F$C(>FIFD@$Ffhm>FIF;>FP*&Fa]mFN,&F^pFNFNFNF^o>Ffn*&FP
FNFKFN>Fjn*&FPFNFhnFNF`oF$F$Fj^n:F)6'F-F.%'maxlatGFe\oFeoF$F$C)>F=FD>FP$"%@7!"$
>FI-Ff`lFejm@$2FP-FeglFejmC$>F=FP>F=F]o>FfnFM>Fjn-Fjjl6#-Fi]l6#,&FagmFN-FR6#,$F
=F]qFNF`oF$F$F]`n:F)F`qF$F$C%>Ffn-FR6#-F]_l6#Fj[m@%1Fb[l-FeglFC>Fjn-FR6#*&-%'si
gnumGFCFNF`[lFN>Fjn-FR6#,&-Fb]o6#*&-Fi]lFCFNFKF^oFN*&F`[lFN,&FNFN-Fbbo6#FKF^oFN
F]qF`oF$F$6"
