% TeXgraph version 1.94 beta-7.1 % Fenetre Xmin Xmax Ymin Ymax Xscale Yscale 100#-0.1#3.1#-3.7#3.6#4.64016128688885#3.12704109589041## % Marges gauche droite haut bas cadre gestion_couleur comptgraph 101#1#1#0.5#0.5#0#1#6## % Affectation des Variables theta et phi et type de perspective 18##[theta:=0.5236, phi:=1.0472,OriginalCoord(1),IdMatrix(),IdMatrix3D(),ModelView(ortho)]## % Déclaration des Variables Globales 15#gridcolor#black## 15#subgridcolor#Rgb(0.66,0.66,0.5)## % Déclaration des Macros 16#g#Solve(0.5+Int(exp(-u^2/2),u,0,x)/sqrt(2*pi)-%1,x,-5,5)## 16#log#ln(%1)/ln(10)## 16#Init#[$x:=0, Bouton( RefPoint+x, "GaussoLog", "[Hide(), Show(GaussoLog), ReCalc(GaussoLog),]", "Papier Gausso-logarithmique"), Inc(x,DeltaB), Bouton( RefPoint+x, "GaussoArith", "[Hide(), Show(GaussoArith), ReCalc(GaussoArith),]", "Papier Gausso-arithmétique"), Inc(x,DeltaB), Bouton( RefPoint+x, "Log sur Ox", "[Hide(), Show(Logx), ReCalc(Logx),]", "Papier semi-logarithmique sur Ox"), Inc(x,DeltaB), Bouton( RefPoint+x, "Log sur Oy", "[Hide(), Show(Logy), ReCalc(Logy),]", "Papier semi-logarithmique sur Oy"), Inc(x,DeltaB), Bouton( RefPoint+x, "Log sur Ox et Oy", "[Hide(), Show(Logxy), ReCalc(Logxy),]", "Papier logarithmique"), Inc(x,DeltaB) ]## % Déclaration des Eléments graphiques % GaussoLog (Utilisateur) 18##[Width:=1,IsVisible:=0,tMin:=-1,tMax:=32,LabelSize:=0]## 14#GaussoLog#[view(-0.1,3.1,-3.7,3.6), Marges(1,1,0.5,0.5), $haut:=23.8274, $yscale:=(haut-1)/(Ymax-Ymin), $xscale:=(haut/sqrt(2)-2)/(Xmax-Xmin), Fenetre( Xmin+i*Ymax, Xmax+i*Ymin, xscale+i*yscale), {subgrid} $ymax:=g(0.9998), $ymin:=g(0.0002), $H:=[0.03,0.04,0.06,0.07,0.08,0.09,0.15,0.25,0.30,0.35,0.40,0.45,0.6,0.7,0.8,0.9, 1.2,1.4,1.6,1.8,2.5,3.5,4.5,6,7,8,9,11,12,13,14,15,16,17,18,19,21,22,23,24, 25,26,27,28,29,31,32,33,34,35,36,37,38,39,41,42,43,44,45,46,47,48,49], $V:=[1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9,2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9,3.1,3.2,3.3,3.4,3.5,3.6, 3.7,3.8,3.9,4.1,4.2,4.3,4.4,4.5,4.6,4.7,4.8,4.9,5.2,5.4,5.6,5.8,6.2,6.4,6.6,6.8,7.2,7.4,7.6,7.8, 8.2,8.4,8.6,8.8,9.2,9.4,9.6,9.8], Color:=subgridcolor, Ligne( for z in H do $y:=g(z/100), i*y, 3+i*y, jump, -i*y, 3-i*y, jump od, 0), Ligne( for z in V do $x:=\log(z), x+i*ymin, x+ymax*i, jump, 1+x+i*ymin, 1+x+ymax*i, jump, 2+x+i*ymin, 2+x+ymax*i, jump od, 0), {Grid} Color:=gridcolor, Width:=2, $dy:=ymin-0.1/Yscale, $dx:=0.1/Xscale, Ligne( for k from 1 to 10 do $x:=\log(k), x+i*dy,x+ymax*i, jump, 1+x+i*dy, 1+x+ymax*i, jump, 2+x+i*dy, 2+x+ymax*i, jump od, 0), $H:=[0.02,0.05,0.1,0.2,0.5,1,2,3,4,5,10,20,30,40,50,60,70,80,90,95,96, 97,98,99,99.5,99.8,99.9,99.95,99.98], Ligne( for z in H do $y:=g(z/100), -dx+i*y, 3+dx+i*y, jump od, 0), Ligne( for z in [15,25,35,45] do $y:=g(z/100), i*y, 3+i*y, jump, -i*y, 3-i*y, jump od, 0), Color:=black,LabelStyle:=right, LabelSize:=tiny, for z in H do $y:=g(z/100), Label(-0.15/Xscale+i*y,["$",z,"$"]) od, LabelStyle:=left, for z in H do $y:=g(z/100), Label(3+0.15/Xscale+i*y,["$",z,"$"]) od, LabelStyle:=top, for k from 1 to 9 do $x:=\log(k)+(ymin-0.15/Yscale)*i, Label( x, ["$",k,"$"]), Label( 1+x, ["$",k,"$"]), Label( 2+x, ["$",k,"$"]) od, Label(3+(ymin-0.15/Yscale)*i,"$1$"), {Axes} {Width:=4, Arrows:=1, Ligne( [i*ymin, i*Ymax],0) ,Arrows:=0, Ligne([0-3.54*i,3-3.54*i], 0),} {m+s, m-s} $y:=g(0.8413), LineStyle:=dashed, Ligne([i*y,3+i*y, jump, -i*y,3-i*y],0), LabelStyle:=right, Label(-0.15/Xscale+i*y, "$\phi(m+\sigma)$", -0.25/Xscale-i*y, "$\phi(m-\sigma)$") ]#-1## % GaussoArith (Utilisateur) 18##[Width:=2,tMin:=-0.025,tMax:=4.025,LabelSize:=3]## 14#GaussoArith#[view(-1,30.5,-3.6,3.6), Marges(1,1,0.5,0.5), $haut:=23.8274, $yscale:=(haut-1)/(Ymax-Ymin), $xscale:=(haut/sqrt(2)-2)/(Xmax-Xmin), Fenetre( Xmin+i*Ymax, Xmax+i*Ymin, xscale+i*yscale), {subgrid} $ymax:=g(0.9998), $G:=[0.03,0.04,0.06,0.07,0.08,0.09,0.15,0.25,0.30,0.35,0.40,0.45,0.6,0.7,0.8,0.9, 1.2,1.4,1.6,1.8,2.5,3.5,4.5,6,7,8,9,11,12,13,14,15,16,17,18,19,21,22,23,24, 25,26,27,28,29,31,32,33,34,35,36,37,38,39,41,42,43,44,45,46,47,48,49], Color:=subgridcolor, Ligne( for z in G do $y:=g(z/100), i*y, Xmax-0.5+i*y, jump, -i*y, Xmax-0.5-i*y, jump od, 0), Ligne( for k from 0 to Xmax -0.5 step 0.2 do k+i*Ymin, k+ymax*i, jump od, 0), {Grid} Color:=gridcolor, Width:=2, Ligne( for k from 0 to Xmax do k+i*Ymin, k+ymax*i, jump od, 0), $L:=[0.02,0.05,0.1,0.2,0.5,1,2,3,4,5,10,20,30,40,50,60,70,80,90,95,96, 97,98,99,99.5,99.8,99.9,99.95,99.98], Ligne( for z in L do $y:=g(z/100), Xmin+0.75+i*y, Xmax-0.25+i*y, jump od, 0), Ligne( for z in [15,25,35,45] do $y:=g(z/100), i*y, Xmax-0.5+i*y, jump, -i*y, Xmax-0.5-i*y, jump od, 0), Color:=black, LabelSize:=tiny, LabelStyle:=right, for z in L do $y:=g(z/100), Label(Xmin+0.25+i*y,z) od, LabelStyle:=left, for z in L do $y:=g(z/100), Label(Xmax-0.125+i*y,z) od, {Axes Width:=4, Arrows:=1, Ligne( [i*Ymin, i*Ymax],0) ,Arrows:=0, Ligne([0-3.54*i,Xmax-0.5-3.54*i], 0),} {m+s, m-s} $y:=g(0.8413), LineStyle:=dashed, Ligne([i*y,Xmax-0.5+i*y, jump, -i*y,Xmax-0.5-i*y],0), LabelStyle:=right, Label(Xmin+0.25+i*y, "$\phi(m+\sigma)$", Xmin+0.25-i*y, "$\phi(m-\sigma)$") ]#-1## % Logx (Utilisateur) 14#Logx#[ $large:=16, {largeur en cm hors marges, on prendra [0,4] sur Oy et [0,3] sur Ox} $xscale:=large/3, $yscale:=large*sqrt(2)/4, {il faut un ratio de sqrt(2) entre Oy et Ox (format A4) et tenir compte des marges gauches et droites pour la largeur du graphique} Fenetre( -0.1/xscale+i*(4+0.1/yscale), 3+0.1/xscale+i*(-0.325/yscale), xscale+i*yscale), {on ajoute 1mm de dépassement pour les graduations principales et les labels} {subgrid} $xmin:=0, xmax:=3, ymin:=0, ymax:=4, Color:= subgridcolor, {liste des abscisses pour un module logarithmique} $H:=[1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9, 2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9, 3.1,3.2,3.3,3.4,3.5,3.6, 3.7,3.8,3.9, 4.1,4.2,4.3,4.4,4.5,4.6,4.7,4.8,4.9, 5.2,5.4,5.6,5.8,6.2,6.4,6.6,6.8, 7.2,7.4,7.6,7.8,8.2,8.4,8.6,8.8,9.2,9.4,9.6,9.8], {traits verticaux, on traite les 3 modules en même temps} Ligne( for z in H do $x:=ln(z)/ln(10), i*ymin+x, i*ymax+x, jump, i*xmin+(x+1), i*ymax+(x+1), jump, i*ymin+(x+2), i*ymax+(x+2), jump od, 0), {traits horizontaux, avec un pas de 1/20} Ligne( for $k from 0.05 to 4 step 0.05 do $y:=k, i*y+xmin, i*y+xmax, jump od, 0), {Grid} Color:=gridcolor, Width:=2, $dx:=-0.1/Xscale, {traits horizontaux principaux avec un pas de 1/4} Ligne( for k from 0 to 4 step 0.25 do $y:=k, y*i+dx,y*i+Xmax, jump od, 0), {traits verticaux principaux dans chaque module logarithmique} Ligne( for k from 1 to 10 do $x:=ln(k)/ln(10), x, x +i*ymax, jump, (x+1), (x+1) +i*ymax, jump, (x+2), (x+2) +i*ymax, jump od, 0), {labels sur Ox en bas} Color:=black, LabelStyle:=bottom, LabelSize:=tiny, for k from 1 to 9 do $x:=ln(k)/ln(10)+i*(Ymin), Label( x, ["$",k,"$"]), if k=1 then Label( 1+x, ["$10$"]) else Label( 1+x, ["$",k,"$"]) fi, if k=1 then Label( 2+x, ["$10^2$"]) else Label( 2+x, ["$",k,"$"]) fi od, Label(3+i*Ymin,"$10^3$"), {labels sur Ox en haut} LabelStyle:=bottom, for k from 1 to 9 do $x:=ln(k)/ln(10)+i*Ymax, Label( x, ["$",k,"$"]), if k=1 then Label( 1+x, ["$10$"]) else Label( 1+x, ["$",k,"$"]) fi, if k=1 then Label( 2+x, ["$10^2$"]) else Label( 2+x, ["$",k,"$"]) fi od, Label(3+i*Ymax,"$10^3$") ]#-1## % Logy (Utilisateur) 18##[tMin:=-0.1,tMax:=3.1]## 14#Logy#[$large:=16, {largeur en cm hors marges, on prendra [0,3] sur Oy et [0,4] sur Ox} $xscale:=large/4, $yscale:=large*sqrt(2)/3, {il faut un ratio de sqrt(2) entre Oy et Ox (format A4) et tenir compte des marges gauches et droites pour la largeur du graphique} Fenetre( -0.1/xscale+i*(3+0.1/yscale), 4+0.1/xscale+i*(-0.1/yscale), xscale+i*yscale), {on ajoute 1mm de dépassement pour les graduations principales et les labels} {subgrid} $xmin:=0, xmax:=4, ymin:=0, ymax:=3, Color:= subgridcolor, {liste des ordonnéees pour un module logarithmique} $H:=[1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9, 2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9, 3.1,3.2,3.3,3.4,3.5,3.6, 3.7,3.8,3.9, 4.1,4.2,4.3,4.4,4.5,4.6,4.7,4.8,4.9, 5.2,5.4,5.6,5.8,6.2,6.4,6.6,6.8, 7.2,7.4,7.6,7.8,8.2,8.4,8.6,8.8,9.2,9.4,9.6,9.8], {traits horizontaux, on traite les 3 modules en même temps} Ligne( for z in H do $y:=ln(z)/ln(10), xmin+i*y, xmax+i*y, jump, xmin+i*(y+1), xmax+i*(y+1), jump, xmin+i*(y+2), xmax+i*(y+2), jump od, 0), {traits verticaux, avec un pas de 1/20} Ligne( for $k from 0.05 to 4 step 0.05 do $x:=k, x+i*ymin, x+ymax*i, jump od, 0), {Grid} Color:=gridcolor, Width:=2, $dy:=-0.1/Yscale, {traits verticaux principaux avec un pas de 1/4} Ligne( for k from 0 to 4 step 0.25 do $x:=k, x+i*dy,x+Ymax*i, jump od, 0), {traits horizontaux principaux dans chaque module logarithmique} Ligne( for k from 1 to 10 do $y:=ln(k)/ln(10), i*y, i*y +xmax, jump, i*(y+1), i*(y+1) +xmax, jump, i*(y+2), i*(y+2) +xmax, jump od, 0), {labels sur Oy à  gauche} Color:=black, LabelStyle:=right, LabelSize:=tiny, for k from 1 to 9 do $y:=i*ln(k)/ln(10)+Xmin, Label( y, ["$",k,"$"]), if k=1 then Label( i+y, ["$10$"]) else Label( i+y, ["$",k,"$"]) fi, if k=1 then Label( 2*i+y, ["$10^2$"]) else Label( 2*i+y, ["$",k,"$"]) fi od, Label(3*i+Xmin,"$10^3$"), {labels sur Oy à  droite} LabelStyle:=left, for k from 1 to 9 do $y:=i*ln(k)/ln(10)+Xmax, Label( y, ["$",k,"$"]), if k=1 then Label( i+y, ["$10$"]) else Label( i+y, ["$",k,"$"]) fi, if k=1 then Label( 2*i+y, ["$10^2$"]) else Label( 2*i+y, ["$",k,"$"]) fi od, Label(3*i+Xmax,"$10^3$") ]#-1## % Logxy (Utilisateur) 18##[tMin:=-0.025,tMax:=4.025]## 14#Logxy#[$large:=16, {largeur en cm hors marges, on prendra [0,3] sur Oy et [0,3] sur Ox} $xscale:=large/3, $yscale:=large*sqrt(2)/3, {il faut un ratio de sqrt(2) entre Oy et Ox (format A4) et tenir compte des marges gauches et droites pour la largeur du graphique} Fenetre( -0.1/xscale+i*(3+0.1/yscale), 3+0.1/xscale+i*(-0.325/yscale), xscale+i*yscale), {on ajoute 1mm de dépassement pour les graduations principales et les labels} {subgrid} $xmin:=0, xmax:=3, ymin:=0, ymax:=3, Color:=subgridcolor, {liste des ordonnéees pour un module logarithmique} $H:=[1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9, 2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8,2.9, 3.1,3.2,3.3,3.4,3.5,3.6, 3.7,3.8,3.9, 4.1,4.2,4.3,4.4,4.5,4.6,4.7,4.8,4.9, 5.2,5.4,5.6,5.8,6.2,6.4,6.6,6.8, 7.2,7.4,7.6,7.8,8.2,8.4,8.6,8.8,9.2,9.4,9.6,9.8], {traits horizontaux, on traite les 3 modules en même temps} Ligne( for z in H do $y:=ln(z)/ln(10), xmin+i*y, xmax+i*y, jump, xmin+i*(y+1), xmax+i*(y+1), jump, xmin+i*(y+2), xmax+i*(y+2), jump od, 0), {traits verticaux, on traite les 3 modules en même temps} Ligne( for z in H do $x:=ln(z)/ln(10), i*ymin+x, i*ymax+x, jump, i*xmin+(x+1), i*ymax+(x+1), jump, i*ymin+(x+2), i*ymax+(x+2), jump od, 0), {Grid} Color:=gridcolor, Width:=2, {traits verticaux principaux dans chaque module logarithmique} Ligne( for k from 1 to 10 do $x:=ln(k)/ln(10), x, x +i*ymax, jump, (x+1), (x+1) +i*ymax, jump, (x+2), (x+2) +i*ymax, jump od, 0), {traits horizontaux principaux dans chaque module logarithmique} Ligne( for k from 1 to 10 do $y:=ln(k)/ln(10), i*y, i*y +xmax, jump, i*(y+1), i*(y+1) +xmax, jump, i*(y+2), i*(y+2) +xmax, jump od, 0), {labels sur Oy à  gauche} Color:=black, LabelStyle:=right, LabelSize:=tiny, for k from 1 to 9 do $y:=i*ln(k)/ln(10)+Xmin, Label( y, ["$",k,"$"]), if k=1 then Label( i+y, ["$10$"]) else Label( i+y, ["$",k,"$"]) fi, if k=1 then Label( 2*i+y, ["$10^2$"]) else Label( 2*i+y, ["$",k,"$"]) fi od, Label(3*i+Xmin,"$10^3$"), {labels sur Oy à  droite} LabelStyle:=left, for k from 1 to 9 do $y:=i*ln(k)/ln(10)+Xmax, Label( y, ["$",k,"$"]), if k=1 then Label( i+y, ["$10$"]) else Label( i+y, ["$",k,"$"]) fi, if k=1 then Label( 2*i+y, ["$10^2$"]) else Label( 2*i+y, ["$",k,"$"]) fi od, Label(3*i+Xmax,"$10^3$"), {labels sur Ox en bas} Color:=black, LabelStyle:=bottom, LabelSize:=tiny, for k from 1 to 9 do $x:=ln(k)/ln(10)+i*(Ymin), Label( x, ["$",k,"$"]), if k=1 then Label( 1+x, ["$10$"]) else Label( 1+x, ["$",k,"$"]) fi, if k=1 then Label( 2+x, ["$10^2$"]) else Label( 2+x, ["$",k,"$"]) fi od, Label(3+i*Ymin,"$10^3$"), {labels sur Ox en haut} LabelStyle:=bottom, for k from 1 to 9 do $x:=ln(k)/ln(10)+i*Ymax, Label( x, ["$",k,"$"]), if k=1 then Label( 1+x, ["$10$"]) else Label( 1+x, ["$",k,"$"]) fi, if k=1 then Label( 2+x, ["$10^2$"]) else Label( 2+x, ["$",k,"$"]) fi od, Label(3+i*Ymax,"$10^3$") ]#-1##