18 setfontsize
-1.9 1.9 setxrange
-1.9 1.9 setyrange

100 setxunit
[1 1 .5 .5 .1 .1] {noir} Quadrillage
.7 setlinewidth

/g {Sin} def

tracerepere
marks
setTimesItalic
   (O) O drtext

<tex>
$$
  \Gamma
$$
</tex>

bleu
-1.4 0.8 neg [1.5 dup] cctexlabel
 
<tex>
$$
  \Delta\;:\;y=x
$$
</tex>  
noir
1.5 1.3 [1.5 dup]{45} cctexlabel

1.5 setlinewidth
gsave
   bleu

pi neg 2 div pi 2 div {g} Courbe
pointilles noir
1.8 neg  1.8 {} Courbe
grestore



%%%% L'équation différentielle y'=F(x,y) et y0=y(x0) sur l'intervalle %[a;b]

/F {
2 dict begin
   /y exch def
   /x exch def
#rpn# 1/ (sqrt (1-x^2))
end
} def

/x0 {0} def
/y0 {0} def
/a  {1 neg} def
/b  {1} def
 %%%%%%%%% calcul des sommets et tracés %e'approxparméthoded'Euler%%%%%
/pas {0.25} def
rouge
[a b {F} x0 y0 pas Euler ] ligne  

0 setlinewidth
boxit
/fillstyle {blanc fill} def
#tex# $$y' = {1\over \sqrt {1-x^2}}$$
0 -1.5 [1.5 dup] cctexlabel