\documentclass{article} 
\usepackage{pst-plot,color} 
\usepackage{graphicx} 
\begin{document}
\input fltkcol.tex
%file /home/stephane/Documents/Mathématiques/Lycée - Terminale S/Révisions Noel/exo5.tex
% Generated by xcas
\noindent
\begin{pspicture}(-3.8310,-2.3966)(8.1690,2.3966)
\psset{unit=4.3380cm}
\psset{xunit=4.3380cm}
\psset{yunit=4.3575cm}
\psset{linewidth=.5pt}
\psset{arrowsize=2pt 4}
\psset{linecolor=black}
\psline[linestyle=dashed]{->}(-0.8831,0.0000)(1.8831,0.0000)
\psline[linestyle=dashed]{->}(0.0000,-0.5500)(0.0000,0.5500)
\psset{linecolor=black}
\psset{linewidth=0.5000pt}
\psline[fillcolor=black](     0.704041,    -0.456473)(     0.748593,    -0.433822)
\psline[fillcolor=black](     0.748593,    -0.433822)(     0.790661,    -0.406837)
\psline[fillcolor=black](     0.790661,    -0.406837)(     0.829825,    -0.375787)
\psline[fillcolor=black](     0.829825,    -0.375787)(     0.865693,    -0.340982)
\psline[fillcolor=black](     0.865693,    -0.340982)(     0.897907,    -0.302770)
\psline[fillcolor=black](     0.897907,    -0.302770)(     0.926146,    -0.261533)
\psline[fillcolor=black](     0.926146,    -0.261533)(     0.950127,    -0.217683)
\psline[fillcolor=black](     0.950127,    -0.217683)(     0.969610,    -0.171657)
\psline[fillcolor=black](     0.969610,    -0.171657)(     0.984401,    -0.123917)
\psline[fillcolor=black](     0.984401,    -0.123917)(     0.994352,    -0.074939)
\psline[fillcolor=black](     0.994352,    -0.074939)(     0.999364,    -0.025211)
\psline[fillcolor=black](     0.999364,    -0.025211)(     0.999386,     0.024768)
\psline[fillcolor=black](     0.999386,     0.024768)(     0.994419,     0.074500)
\psline[fillcolor=black](     0.994419,     0.074500)(     0.984511,     0.123487)
\psline[fillcolor=black](     0.984511,     0.123487)(     0.969762,     0.171240)
\psline[fillcolor=black](     0.969762,     0.171240)(     0.950320,     0.217283)
\psline[fillcolor=black](     0.950320,     0.217283)(     0.926378,     0.261154)
\psline[fillcolor=black](     0.926378,     0.261154)(     0.898176,     0.302416)
\psline[fillcolor=black](     0.898176,     0.302416)(     0.865996,     0.340657)
\psline[fillcolor=black](     0.865996,     0.340657)(     0.830158,     0.375494)
\psline[fillcolor=black](     0.830158,     0.375494)(     0.791022,     0.406579)
\psline[fillcolor=black](     0.791022,     0.406579)(     0.748978,     0.433601)
\psline[fillcolor=black](     0.748978,     0.433601)(     0.704446,     0.456291)
\psline[fillcolor=black](     0.704446,     0.456291)(     0.657872,     0.474422)
\psline[fillcolor=black](     0.657872,     0.474422)(     0.609720,     0.487813)
\psline[fillcolor=black](     0.609720,     0.487813)(     0.560472,     0.496330)
\psline[fillcolor=black](     0.560472,     0.496330)(     0.510619,     0.499887)
\psline[fillcolor=black](     0.510619,     0.499887)(     0.460661,     0.498450)
\psline[fillcolor=black](     0.460661,     0.498450)(     0.411095,     0.492033)
\psline[fillcolor=black](     0.411095,     0.492033)(     0.362418,     0.480699)
\psline[fillcolor=black](     0.362418,     0.480699)(     0.315116,     0.464562)
\psline[fillcolor=black](     0.315116,     0.464562)(     0.269661,     0.443784)
\psline[fillcolor=black](     0.269661,     0.443784)(     0.226507,     0.418571)
\psline[fillcolor=black](     0.226507,     0.418571)(     0.186086,     0.389176)
\psline[fillcolor=black](     0.186086,     0.389176)(     0.148801,     0.355893)
\psline[fillcolor=black](     0.148801,     0.355893)(     0.115026,     0.319053)
\psline[fillcolor=black](     0.115026,     0.319053)(     0.085097,     0.279026)
\psline[fillcolor=black](     0.085097,     0.279026)(     0.059314,     0.236211)
\psline[fillcolor=black](     0.059314,     0.236211)(     0.037934,     0.191036)
\psline[fillcolor=black](     0.037934,     0.191036)(     0.021170,     0.143952)
\psline[fillcolor=black](     0.021170,     0.143952)(     0.009191,     0.095429)
\psline[fillcolor=black](     0.009191,     0.095429)(     0.002116,     0.045953)
\psline[fillcolor=black](     0.002116,     0.045953)(     0.000016,    -0.003982)
\psline[fillcolor=black](     0.000016,    -0.003982)(     0.002911,    -0.053877)
\psline[fillcolor=black](     0.002911,    -0.053877)(     0.010773,    -0.103234)
\psline[fillcolor=black](     0.010773,    -0.103234)(     0.023524,    -0.151559)
\psline[fillcolor=black](     0.023524,    -0.151559)(     0.041035,    -0.198370)
\psline[fillcolor=black](     0.041035,    -0.198370)(     0.063132,    -0.243199)
\psline[fillcolor=black](     0.063132,    -0.243199)(     0.089593,    -0.285598)
\psline[fillcolor=black](     0.089593,    -0.285598)(     0.120156,    -0.325144)
\psline[fillcolor=black](     0.120156,    -0.325144)(     0.154514,    -0.361441)
\psline[fillcolor=black](     0.154514,    -0.361441)(     0.192324,    -0.394126)
\psline[fillcolor=black](     0.192324,    -0.394126)(     0.233208,    -0.422873)
\psline[fillcolor=black](     0.233208,    -0.422873)(     0.276758,    -0.447396)
\psline[fillcolor=black](     0.276758,    -0.447396)(     0.322538,    -0.467448)
\psline[fillcolor=black](     0.322538,    -0.467448)(     0.370091,    -0.482829)
\psline[fillcolor=black](     0.370091,    -0.482829)(     0.418943,    -0.493386)
\psline[fillcolor=black](     0.418943,    -0.493386)(     0.468604,    -0.499013)
\psline[fillcolor=black](     0.468604,    -0.499013)(     0.518579,    -0.499655)
\psline[fillcolor=black](     0.518579,    -0.499655)(     0.568369,    -0.495304)
\psline[fillcolor=black](     0.568369,    -0.495304)(     0.617475,    -0.486004)
\psline[fillcolor=black](     0.617475,    -0.486004)(     0.665407,    -0.471848)
\psline[fillcolor=black](     0.665407,    -0.471848)(     0.711687,    -0.452977)
\psline[fillcolor=black](     0.711687,    -0.452977)(     0.755852,    -0.429581)
\psline[fillcolor=black](     0.755852,    -0.429581)(     0.797460,    -0.401892)
\psline[fillcolor=black](     0.797460,    -0.401892)(     0.836097,    -0.370188)
\psline[fillcolor=black](     0.836097,    -0.370188)(     0.871375,    -0.334785)
\psline[fillcolor=black](     0.871375,    -0.334785)(     0.902942,    -0.296037)
\psline[fillcolor=black](     0.902942,    -0.296037)(     0.930483,    -0.254331)
\psline[fillcolor=black](     0.930483,    -0.254331)(     0.953723,    -0.210084)
\psline[fillcolor=black](     0.953723,    -0.210084)(     0.972430,    -0.163737)
\psline[fillcolor=black](     0.972430,    -0.163737)(     0.986416,    -0.115755)
\psline[fillcolor=black](     0.986416,    -0.115755)(     0.995542,    -0.066616)
\psline[fillcolor=black](     0.995542,    -0.066616)(     0.999717,    -0.016812)
\psline[fillcolor=black](     0.999717,    -0.016812)(     0.998899,     0.033161)
\psline[fillcolor=black](     0.998899,     0.033161)(     0.993096,     0.082802)
\psline[fillcolor=black](     0.993096,     0.082802)(     0.982366,     0.131616)
\psline[fillcolor=black](     0.982366,     0.131616)(     0.966817,     0.179115)
\psline[fillcolor=black](     0.966817,     0.179115)(     0.946603,     0.224824)
\psline[fillcolor=black](     0.946603,     0.224824)(     0.921927,     0.268286)
\psline[fillcolor=black](     0.921927,     0.268286)(     0.893035,     0.309069)
\psline[fillcolor=black](     0.893035,     0.309069)(     0.860216,     0.346763)
\psline[fillcolor=black](     0.860216,     0.346763)(     0.823798,     0.380992)
\psline[fillcolor=black](     0.823798,     0.380992)(     0.784145,     0.411414)
\psline[fillcolor=black](     0.784145,     0.411414)(     0.741652,     0.437726)
\psline[fillcolor=black](     0.741652,     0.437726)(     0.696745,     0.459664)
\psline[fillcolor=black](     0.696745,     0.459664)(     0.649873,     0.477010)
\psline[fillcolor=black](     0.649873,     0.477010)(     0.601502,     0.489589)
\psline[fillcolor=black](     0.601502,     0.489589)(     0.552118,     0.497276)
\psline[fillcolor=black](     0.552118,     0.497276)(     0.502213,     0.499995)
\psline[fillcolor=black](     0.502213,     0.499995)(     0.452286,     0.497718)
\psline[fillcolor=black](     0.452286,     0.497718)(     0.402835,     0.490468)
\psline[fillcolor=black](     0.402835,     0.490468)(     0.354355,     0.478318)
\psline[fillcolor=black](     0.354355,     0.478318)(     0.307331,     0.461388)
\psline[fillcolor=black](     0.307331,     0.461388)(     0.262232,     0.439848)
\psline[fillcolor=black](     0.262232,     0.439848)(     0.219508,     0.413913)
\psline[fillcolor=black](     0.219508,     0.413913)(     0.179587,     0.383843)
\psline[fillcolor=black](     0.179587,     0.383843)(     0.142867,     0.349937)
\psline[fillcolor=black](     0.142867,     0.349937)(     0.109716,     0.312535)
\psline[fillcolor=black](     0.109716,     0.312535)(     0.080464,     0.272011)
\psline[fillcolor=black](     0.080464,     0.272011)(     0.055404,     0.228768)
\psline[fillcolor=black](     0.055404,     0.228768)(     0.034787,     0.183240)
\psline[fillcolor=black](     0.034787,     0.183240)(     0.018818,     0.135880)
\psline[fillcolor=black](     0.018818,     0.135880)(     0.007656,     0.087163)
\psline[fillcolor=black](     0.007656,     0.087163)(     0.001414,     0.037576)
\psline[fillcolor=black](     0.001414,     0.037576)(     0.000153,    -0.012388)
\psline[fillcolor=black](     0.000153,    -0.012388)(     0.003887,    -0.062227)
\psline[fillcolor=black](     0.003887,    -0.062227)(     0.012578,    -0.111445)
\psline[fillcolor=black](     0.012578,    -0.111445)(     0.026139,    -0.159549)
\psline[fillcolor=black](     0.026139,    -0.159549)(     0.044435,    -0.206059)
\psline[fillcolor=black](     0.044435,    -0.206059)(     0.067282,    -0.250510)
\psline[fillcolor=black](     0.067282,    -0.250510)(     0.094453,    -0.292459)
\psline[fillcolor=black](     0.094453,    -0.292459)(     0.125677,    -0.331485)
\psline[fillcolor=black](     0.125677,    -0.331485)(     0.160640,    -0.367199)
\psline[fillcolor=black](     0.160640,    -0.367199)(     0.198994,    -0.399244)
\psline[fillcolor=black](     0.198994,    -0.399244)(     0.240356,    -0.427299)
\psline[fillcolor=black](     0.240356,    -0.427299)(     0.284312,    -0.451086)
\psline[fillcolor=black](     0.284312,    -0.451086)(     0.330423,    -0.470365)
\psline[fillcolor=black](     0.330423,    -0.470365)(     0.378228,    -0.484945)
\psline[fillcolor=black](     0.378228,    -0.484945)(     0.427250,    -0.494679)
\psline[fillcolor=black](     0.427250,    -0.494679)(     0.476999,    -0.499471)
\psline[fillcolor=black](     0.476999,    -0.499471)(     0.526978,    -0.499272)
\psline[fillcolor=black](     0.526978,    -0.499272)(     0.576687,    -0.494084)
\psline[fillcolor=black](     0.576687,    -0.494084)(     0.625630,    -0.483960)
\psline[fillcolor=black](     0.625630,    -0.483960)(     0.673318,    -0.469000)
\psline[fillcolor=black](     0.673318,    -0.469000)(     0.719274,    -0.449354)
\psline[fillcolor=black](     0.719274,    -0.449354)(     0.763039,    -0.425218)
\psline[fillcolor=black](     0.763039,    -0.425218)(     0.804176,    -0.396834)
\psline[fillcolor=black](     0.804176,    -0.396834)(     0.842273,    -0.364485)
\psline[fillcolor=black](     0.842273,    -0.364485)(     0.876951,    -0.328493)
\psline[fillcolor=black](     0.876951,    -0.328493)(     0.907863,    -0.289220)
\psline[fillcolor=black](     0.907863,    -0.289220)(     0.934699,    -0.247057)
\psline[fillcolor=black](     0.934699,    -0.247057)(     0.957192,    -0.202425)
\psline[fillcolor=black](     0.957192,    -0.202425)(     0.975116,    -0.155771)
\psline[fillcolor=black](     0.975116,    -0.155771)(     0.988294,    -0.107560)
\psline[fillcolor=black](     0.988294,    -0.107560)(     0.996592,    -0.058275)
\psline[fillcolor=black](     0.996592,    -0.058275)(     0.999929,    -0.008407)
\psline[fillcolor=black](     0.999929,    -0.008407)(     0.998271,     0.041545)
\psline[fillcolor=black](     0.998271,     0.041545)(     0.991634,     0.091081)
\psline[fillcolor=black](     0.991634,     0.091081)(     0.980085,     0.139708)
\psline[fillcolor=black](     0.980085,     0.139708)(     0.963739,     0.186938)
\psline[fillcolor=black](     0.963739,     0.186938)(     0.942760,     0.232301)
\psline[fillcolor=black](     0.942760,     0.232301)(     0.917356,     0.275343)
\psline[fillcolor=black](     0.917356,     0.275343)(     0.887783,     0.315633)
\psline[fillcolor=black](     0.887783,     0.315633)(     0.854335,     0.352770)
\psline[fillcolor=black](     0.854335,     0.352770)(     0.817346,     0.386382)
\psline[fillcolor=black](     0.817346,     0.386382)(     0.777187,     0.416134)
\psline[fillcolor=black](     0.777187,     0.416134)(     0.734258,     0.441727)
\psline[fillcolor=black](     0.734258,     0.441727)(     0.688989,     0.462907)
\psline[fillcolor=black](     0.688989,     0.462907)(     0.641831,     0.479462)
\psline[fillcolor=black](     0.641831,     0.479462)(     0.593256,     0.491226)
\psline[fillcolor=black](     0.593256,     0.491226)(     0.543749,     0.498082)
\psline[fillcolor=black](     0.543749,     0.498082)(     0.493806,     0.499962)
\psline[fillcolor=black](     0.493806,     0.499962)(     0.443924,     0.496846)
\psline[fillcolor=black](     0.443924,     0.496846)(     0.394602,     0.488765)
\psline[fillcolor=black](     0.394602,     0.488765)(     0.346334,     0.475801)
\psline[fillcolor=black](     0.346334,     0.475801)(     0.299600,     0.458083)
\psline[fillcolor=black](     0.299600,     0.458083)(     0.254870,     0.435788)
\psline[fillcolor=black](     0.254870,     0.435788)(     0.212588,     0.409139)
\psline[fillcolor=black](     0.212588,     0.409139)(     0.173178,     0.378401)
\psline[fillcolor=black](     0.173178,     0.378401)(     0.137034,     0.343883)
\psline[fillcolor=black](     0.137034,     0.343883)(     0.104516,     0.305929)
\psline[fillcolor=black](     0.104516,     0.305929)(     0.075950,     0.264918)
\psline[fillcolor=black](     0.075950,     0.264918)(     0.051621,     0.221260)
\psline[fillcolor=black](     0.051621,     0.221260)(     0.031772,     0.175392)
\psline[fillcolor=black](     0.031772,     0.175392)(     0.016601,     0.127771)
\psline[fillcolor=black](     0.016601,     0.127771)(     0.006260,     0.078873)
\psline[fillcolor=black](     0.006260,     0.078873)(     0.000853,     0.029187)
\psline[fillcolor=black](     0.000853,     0.029187)(     0.000432,    -0.020790)
\psline[fillcolor=black](     0.000432,    -0.020790)(     0.005004,    -0.070560)
\psline[fillcolor=black](     0.005004,    -0.070560)(     0.014521,    -0.119625)
\psline[fillcolor=black](     0.014521,    -0.119625)(     0.028889,    -0.167494)
\psline[fillcolor=black](     0.028889,    -0.167494)(     0.047964,    -0.213690)
\psline[fillcolor=black](     0.047964,    -0.213690)(     0.071556,    -0.257751)
\psline[fillcolor=black](     0.071556,    -0.257751)(     0.099428,    -0.299236)
\psline[fillcolor=black](     0.099428,    -0.299236)(     0.131303,    -0.337732)
\psline[fillcolor=black](     0.131303,    -0.337732)(     0.166862,    -0.372853)
\psline[fillcolor=black](     0.166862,    -0.372853)(     0.205749,    -0.404248)
\psline[fillcolor=black](     0.205749,    -0.404248)(     0.247577,    -0.431605)
\psline[fillcolor=black](     0.247577,    -0.431605)(     0.291927,    -0.454649)
\psline[fillcolor=black](     0.291927,    -0.454649)(     0.338355,    -0.473150)
\psline[fillcolor=black](     0.338355,    -0.473150)(     0.386399,    -0.486924)
\psline[fillcolor=black](     0.386399,    -0.486924)(     0.435578,    -0.495832)
\psline[fillcolor=black](     0.435578,    -0.495832)(     0.485400,    -0.499787)
\psline[fillcolor=black](     0.485400,    -0.499787)(     0.535369,    -0.498747)
\psline[fillcolor=black](     0.535369,    -0.498747)(     0.584984,    -0.492725)
\psline[fillcolor=black](     0.584984,    -0.492725)(     0.633749,    -0.481779)
\psline[fillcolor=black](     0.633749,    -0.481779)(     0.681179,    -0.466020)
\psline[fillcolor=black](     0.681179,    -0.466020)(     0.726798,    -0.445604)
\psline[fillcolor=black](     0.726798,    -0.445604)(     0.770151,    -0.420735)
\psline[fillcolor=black](     0.770151,    -0.420735)(     0.810805,    -0.391663)
\psline[fillcolor=black](     0.810805,    -0.391663)(     0.848353,    -0.358678)
\psline[fillcolor=black](     0.848353,    -0.358678)(     0.882421,    -0.322109)
\psline[fillcolor=black](     0.882421,    -0.322109)(     0.912668,    -0.282321)
\psline[fillcolor=black](     0.912668,    -0.282321)(     0.938791,    -0.239713)
\psline[fillcolor=black](     0.938791,    -0.239713)(     0.960530,    -0.194709)
\psline[fillcolor=black](     0.960530,    -0.194709)(     0.977668,    -0.147760)
\psline[fillcolor=black](     0.977668,    -0.147760)(     0.990033,    -0.099335)
\psline[fillcolor=black](     0.990033,    -0.099335)(     0.997502,    -0.049917)
\psline[fillcolor=black](     0.997502,    -0.049917)(     1.000000,     0.000000)
\psline[fillcolor=black](     1.000000,     0.000000)(     0.997502,     0.049917)
\psline[fillcolor=black](     0.997502,     0.049917)(     0.990033,     0.099335)
\psline[fillcolor=black](     0.990033,     0.099335)(     0.977668,     0.147760)
\psline[fillcolor=black](     0.977668,     0.147760)(     0.960530,     0.194709)
\psline[fillcolor=black](     0.960530,     0.194709)(     0.938791,     0.239713)
\psline[fillcolor=black](     0.938791,     0.239713)(     0.912668,     0.282321)
\psline[fillcolor=black](     0.912668,     0.282321)(     0.882421,     0.322109)
\psline[fillcolor=black](     0.882421,     0.322109)(     0.848353,     0.358678)
\psline[fillcolor=black](     0.848353,     0.358678)(     0.810805,     0.391663)
\psline[fillcolor=black](     0.810805,     0.391663)(     0.770151,     0.420735)
\psline[fillcolor=black](     0.770151,     0.420735)(     0.726798,     0.445604)
\psline[fillcolor=black](     0.726798,     0.445604)(     0.681179,     0.466020)
\psline[fillcolor=black](     0.681179,     0.466020)(     0.633749,     0.481779)
\psline[fillcolor=black](     0.633749,     0.481779)(     0.584984,     0.492725)
\psline[fillcolor=black](     0.584984,     0.492725)(     0.535369,     0.498747)
\psline[fillcolor=black](     0.535369,     0.498747)(     0.485400,     0.499787)
\psline[fillcolor=black](     0.485400,     0.499787)(     0.435578,     0.495832)
\psline[fillcolor=black](     0.435578,     0.495832)(     0.386399,     0.486924)
\psline[fillcolor=black](     0.386399,     0.486924)(     0.338355,     0.473150)
\psline[fillcolor=black](     0.338355,     0.473150)(     0.291927,     0.454649)
\psline[fillcolor=black](     0.291927,     0.454649)(     0.247577,     0.431605)
\psline[fillcolor=black](     0.247577,     0.431605)(     0.205749,     0.404248)
\psline[fillcolor=black](     0.205749,     0.404248)(     0.166862,     0.372853)
\psline[fillcolor=black](     0.166862,     0.372853)(     0.131303,     0.337732)
\psline[fillcolor=black](     0.131303,     0.337732)(     0.099428,     0.299236)
\psline[fillcolor=black](     0.099428,     0.299236)(     0.071556,     0.257751)
\psline[fillcolor=black](     0.071556,     0.257751)(     0.047964,     0.213690)
\psline[fillcolor=black](     0.047964,     0.213690)(     0.028889,     0.167494)
\psline[fillcolor=black](     0.028889,     0.167494)(     0.014521,     0.119625)
\psline[fillcolor=black](     0.014521,     0.119625)(     0.005004,     0.070560)
\psline[fillcolor=black](     0.005004,     0.070560)(     0.000432,     0.020790)
\psline[fillcolor=black](     0.000432,     0.020790)(     0.000853,    -0.029187)
\psline[fillcolor=black](     0.000853,    -0.029187)(     0.006260,    -0.078873)
\psline[fillcolor=black](     0.006260,    -0.078873)(     0.016601,    -0.127771)
\psline[fillcolor=black](     0.016601,    -0.127771)(     0.031772,    -0.175392)
\psline[fillcolor=black](     0.031772,    -0.175392)(     0.051621,    -0.221260)
\psline[fillcolor=black](     0.051621,    -0.221260)(     0.075950,    -0.264918)
\psline[fillcolor=black](     0.075950,    -0.264918)(     0.104516,    -0.305929)
\psline[fillcolor=black](     0.104516,    -0.305929)(     0.137034,    -0.343883)
\psline[fillcolor=black](     0.137034,    -0.343883)(     0.173178,    -0.378401)
\psline[fillcolor=black](     0.173178,    -0.378401)(     0.212588,    -0.409139)
\psline[fillcolor=black](     0.212588,    -0.409139)(     0.254870,    -0.435788)
\psline[fillcolor=black](     0.254870,    -0.435788)(     0.299600,    -0.458083)
\psline[fillcolor=black](     0.299600,    -0.458083)(     0.346334,    -0.475801)
\psline[fillcolor=black](     0.346334,    -0.475801)(     0.394602,    -0.488765)
\psline[fillcolor=black](     0.394602,    -0.488765)(     0.443924,    -0.496846)
\psline[fillcolor=black](     0.443924,    -0.496846)(     0.493806,    -0.499962)
\psline[fillcolor=black](     0.493806,    -0.499962)(     0.543749,    -0.498082)
\psline[fillcolor=black](     0.543749,    -0.498082)(     0.593256,    -0.491226)
\psline[fillcolor=black](     0.593256,    -0.491226)(     0.641831,    -0.479462)
\psline[fillcolor=black](     0.641831,    -0.479462)(     0.688989,    -0.462907)
\psline[fillcolor=black](     0.688989,    -0.462907)(     0.734258,    -0.441727)
\psline[fillcolor=black](     0.734258,    -0.441727)(     0.777187,    -0.416134)
\psline[fillcolor=black](     0.777187,    -0.416134)(     0.817346,    -0.386382)
\psline[fillcolor=black](     0.817346,    -0.386382)(     0.854335,    -0.352770)
\psline[fillcolor=black](     0.854335,    -0.352770)(     0.887783,    -0.315633)
\psline[fillcolor=black](     0.887783,    -0.315633)(     0.917356,    -0.275343)
\psline[fillcolor=black](     0.917356,    -0.275343)(     0.942760,    -0.232301)
\psline[fillcolor=black](     0.942760,    -0.232301)(     0.963739,    -0.186938)
\psline[fillcolor=black](     0.963739,    -0.186938)(     0.980085,    -0.139708)
\psline[fillcolor=black](     0.980085,    -0.139708)(     0.991634,    -0.091081)
\psline[fillcolor=black](     0.991634,    -0.091081)(     0.998271,    -0.041545)
\psline[fillcolor=black](     0.998271,    -0.041545)(     0.999929,     0.008407)
\psline[fillcolor=black](     0.999929,     0.008407)(     0.996592,     0.058275)
\psline[fillcolor=black](     0.996592,     0.058275)(     0.988294,     0.107560)
\psline[fillcolor=black](     0.988294,     0.107560)(     0.975116,     0.155771)
\psline[fillcolor=black](     0.975116,     0.155771)(     0.957192,     0.202425)
\psline[fillcolor=black](     0.957192,     0.202425)(     0.934699,     0.247057)
\psline[fillcolor=black](     0.934699,     0.247057)(     0.907863,     0.289220)
\psline[fillcolor=black](     0.907863,     0.289220)(     0.876951,     0.328493)
\psline[fillcolor=black](     0.876951,     0.328493)(     0.842273,     0.364485)
\psline[fillcolor=black](     0.842273,     0.364485)(     0.804176,     0.396834)
\psline[fillcolor=black](     0.804176,     0.396834)(     0.763039,     0.425218)
\psline[fillcolor=black](     0.763039,     0.425218)(     0.719274,     0.449354)
\psline[fillcolor=black](     0.719274,     0.449354)(     0.673318,     0.469000)
\psline[fillcolor=black](     0.673318,     0.469000)(     0.625630,     0.483960)
\psline[fillcolor=black](     0.625630,     0.483960)(     0.576687,     0.494084)
\psline[fillcolor=black](     0.576687,     0.494084)(     0.526978,     0.499272)
\psline[fillcolor=black](     0.526978,     0.499272)(     0.476999,     0.499471)
\psline[fillcolor=black](     0.476999,     0.499471)(     0.427250,     0.494679)
\psline[fillcolor=black](     0.427250,     0.494679)(     0.378228,     0.484945)
\psline[fillcolor=black](     0.378228,     0.484945)(     0.330423,     0.470365)
\psline[fillcolor=black](     0.330423,     0.470365)(     0.284312,     0.451086)
\psline[fillcolor=black](     0.284312,     0.451086)(     0.240356,     0.427299)
\psline[fillcolor=black](     0.240356,     0.427299)(     0.198994,     0.399244)
\psline[fillcolor=black](     0.198994,     0.399244)(     0.160640,     0.367199)
\psline[fillcolor=black](     0.160640,     0.367199)(     0.125677,     0.331485)
\psline[fillcolor=black](     0.125677,     0.331485)(     0.094453,     0.292459)
\psline[fillcolor=black](     0.094453,     0.292459)(     0.067282,     0.250510)
\psline[fillcolor=black](     0.067282,     0.250510)(     0.044435,     0.206059)
\psline[fillcolor=black](     0.044435,     0.206059)(     0.026139,     0.159549)
\psline[fillcolor=black](     0.026139,     0.159549)(     0.012578,     0.111445)
\psline[fillcolor=black](     0.012578,     0.111445)(     0.003887,     0.062227)
\psline[fillcolor=black](     0.003887,     0.062227)(     0.000153,     0.012388)
\psline[fillcolor=black](     0.000153,     0.012388)(     0.001414,    -0.037576)
\psline[fillcolor=black](     0.001414,    -0.037576)(     0.007656,    -0.087163)
\psline[fillcolor=black](     0.007656,    -0.087163)(     0.018818,    -0.135880)
\psline[fillcolor=black](     0.018818,    -0.135880)(     0.034787,    -0.183240)
\psline[fillcolor=black](     0.034787,    -0.183240)(     0.055404,    -0.228768)
\psline[fillcolor=black](     0.055404,    -0.228768)(     0.080464,    -0.272011)
\psline[fillcolor=black](     0.080464,    -0.272011)(     0.109716,    -0.312535)
\psline[fillcolor=black](     0.109716,    -0.312535)(     0.142867,    -0.349937)
\psline[fillcolor=black](     0.142867,    -0.349937)(     0.179587,    -0.383843)
\psline[fillcolor=black](     0.179587,    -0.383843)(     0.219508,    -0.413913)
\psline[fillcolor=black](     0.219508,    -0.413913)(     0.262232,    -0.439848)
\psline[fillcolor=black](     0.262232,    -0.439848)(     0.307331,    -0.461388)
\psline[fillcolor=black](     0.307331,    -0.461388)(     0.354355,    -0.478318)
\psline[fillcolor=black](     0.354355,    -0.478318)(     0.402835,    -0.490468)
\psline[fillcolor=black](     0.402835,    -0.490468)(     0.452286,    -0.497718)
\psline[fillcolor=black](     0.452286,    -0.497718)(     0.502213,    -0.499995)
\psline[fillcolor=black](     0.502213,    -0.499995)(     0.552118,    -0.497276)
\psline[fillcolor=black](     0.552118,    -0.497276)(     0.601502,    -0.489589)
\psline[fillcolor=black](     0.601502,    -0.489589)(     0.649873,    -0.477010)
\psline[fillcolor=black](     0.649873,    -0.477010)(     0.696745,    -0.459664)
\psline[fillcolor=black](     0.696745,    -0.459664)(     0.741652,    -0.437726)
\psline[fillcolor=black](     0.741652,    -0.437726)(     0.784145,    -0.411414)
\psline[fillcolor=black](     0.784145,    -0.411414)(     0.823798,    -0.380992)
\psline[fillcolor=black](     0.823798,    -0.380992)(     0.860216,    -0.346763)
\psline[fillcolor=black](     0.860216,    -0.346763)(     0.893035,    -0.309069)
\psline[fillcolor=black](     0.893035,    -0.309069)(     0.921927,    -0.268286)
\psline[fillcolor=black](     0.921927,    -0.268286)(     0.946603,    -0.224824)
\psline[fillcolor=black](     0.946603,    -0.224824)(     0.966817,    -0.179115)
\psline[fillcolor=black](     0.966817,    -0.179115)(     0.982366,    -0.131616)
\psline[fillcolor=black](     0.982366,    -0.131616)(     0.993096,    -0.082802)
\psline[fillcolor=black](     0.993096,    -0.082802)(     0.998899,    -0.033161)
\psline[fillcolor=black](     0.998899,    -0.033161)(     0.999717,     0.016812)
\psline[fillcolor=black](     0.999717,     0.016812)(     0.995542,     0.066616)
\psline[fillcolor=black](     0.995542,     0.066616)(     0.986416,     0.115755)
\psline[fillcolor=black](     0.986416,     0.115755)(     0.972430,     0.163737)
\psline[fillcolor=black](     0.972430,     0.163737)(     0.953723,     0.210084)
\psline[fillcolor=black](     0.953723,     0.210084)(     0.930483,     0.254331)
\psline[fillcolor=black](     0.930483,     0.254331)(     0.902942,     0.296037)
\psline[fillcolor=black](     0.902942,     0.296037)(     0.871375,     0.334785)
\psline[fillcolor=black](     0.871375,     0.334785)(     0.836097,     0.370188)
\psline[fillcolor=black](     0.836097,     0.370188)(     0.797460,     0.401892)
\psline[fillcolor=black](     0.797460,     0.401892)(     0.755852,     0.429581)
\psline[fillcolor=black](     0.755852,     0.429581)(     0.711687,     0.452977)
\psline[fillcolor=black](     0.711687,     0.452977)(     0.665407,     0.471848)
\psline[fillcolor=black](     0.665407,     0.471848)(     0.617475,     0.486004)
\psline[fillcolor=black](     0.617475,     0.486004)(     0.568369,     0.495304)
\psline[fillcolor=black](     0.568369,     0.495304)(     0.518579,     0.499655)
\psline[fillcolor=black](     0.518579,     0.499655)(     0.468604,     0.499013)
\psline[fillcolor=black](     0.468604,     0.499013)(     0.418943,     0.493386)
\psline[fillcolor=black](     0.418943,     0.493386)(     0.370091,     0.482829)
\psline[fillcolor=black](     0.370091,     0.482829)(     0.322538,     0.467448)
\psline[fillcolor=black](     0.322538,     0.467448)(     0.276758,     0.447396)
\psline[fillcolor=black](     0.276758,     0.447396)(     0.233208,     0.422873)
\psline[fillcolor=black](     0.233208,     0.422873)(     0.192324,     0.394126)
\psline[fillcolor=black](     0.192324,     0.394126)(     0.154514,     0.361441)
\psline[fillcolor=black](     0.154514,     0.361441)(     0.120156,     0.325144)
\psline[fillcolor=black](     0.120156,     0.325144)(     0.089593,     0.285598)
\psline[fillcolor=black](     0.089593,     0.285598)(     0.063132,     0.243199)
\psline[fillcolor=black](     0.063132,     0.243199)(     0.041035,     0.198370)
\psline[fillcolor=black](     0.041035,     0.198370)(     0.023524,     0.151559)
\psline[fillcolor=black](     0.023524,     0.151559)(     0.010773,     0.103234)
\psline[fillcolor=black](     0.010773,     0.103234)(     0.002911,     0.053877)
\psline[fillcolor=black](     0.002911,     0.053877)(     0.000016,     0.003982)
\psline[fillcolor=black](     0.000016,     0.003982)(     0.002116,    -0.045953)
\psline[fillcolor=black](     0.002116,    -0.045953)(     0.009191,    -0.095429)
\psline[fillcolor=black](     0.009191,    -0.095429)(     0.021170,    -0.143952)
\psline[fillcolor=black](     0.021170,    -0.143952)(     0.037934,    -0.191036)
\psline[fillcolor=black](     0.037934,    -0.191036)(     0.059314,    -0.236211)
\psline[fillcolor=black](     0.059314,    -0.236211)(     0.085097,    -0.279026)
\psline[fillcolor=black](     0.085097,    -0.279026)(     0.115026,    -0.319053)
\psline[fillcolor=black](     0.115026,    -0.319053)(     0.148801,    -0.355893)
\psline[fillcolor=black](     0.148801,    -0.355893)(     0.186086,    -0.389176)
\psline[fillcolor=black](     0.186086,    -0.389176)(     0.226507,    -0.418571)
\psline[fillcolor=black](     0.226507,    -0.418571)(     0.269661,    -0.443784)
\psline[fillcolor=black](     0.269661,    -0.443784)(     0.315116,    -0.464562)
\psline[fillcolor=black](     0.315116,    -0.464562)(     0.362418,    -0.480699)
\psline[fillcolor=black](     0.362418,    -0.480699)(     0.411095,    -0.492033)
\psline[fillcolor=black](     0.411095,    -0.492033)(     0.460661,    -0.498450)
\psline[fillcolor=black](     0.460661,    -0.498450)(     0.510619,    -0.499887)
\psline[fillcolor=black](     0.510619,    -0.499887)(     0.560472,    -0.496330)
\psline[fillcolor=black](     0.560472,    -0.496330)(     0.609720,    -0.487813)
\psline[fillcolor=black](     0.609720,    -0.487813)(     0.657872,    -0.474422)
\psline[fillcolor=black](     0.657872,    -0.474422)(     0.704446,    -0.456291)
\psline[fillcolor=black](     0.704446,    -0.456291)(     0.748978,    -0.433601)
\psline[fillcolor=black](     0.748978,    -0.433601)(     0.791022,    -0.406579)
\psline[fillcolor=black](     0.791022,    -0.406579)(     0.830158,    -0.375494)
\psline[fillcolor=black](     0.830158,    -0.375494)(     0.865996,    -0.340657)
\psline[fillcolor=black](     0.865996,    -0.340657)(     0.898176,    -0.302416)
\psline[fillcolor=black](     0.898176,    -0.302416)(     0.926378,    -0.261154)
\psline[fillcolor=black](     0.926378,    -0.261154)(     0.950320,    -0.217283)
\psline[fillcolor=black](     0.950320,    -0.217283)(     0.969762,    -0.171240)
\psline[fillcolor=black](     0.969762,    -0.171240)(     0.984511,    -0.123487)
\psline[fillcolor=black](     0.984511,    -0.123487)(     0.994419,    -0.074500)
\psline[fillcolor=black](     0.994419,    -0.074500)(     0.999386,    -0.024768)
\psline[fillcolor=black](     0.999386,    -0.024768)(     0.999364,     0.025211)
\psline[fillcolor=black](     0.999364,     0.025211)(     0.994352,     0.074939)
\psline[fillcolor=black](     0.994352,     0.074939)(     0.984401,     0.123917)
\psline[fillcolor=black](     0.984401,     0.123917)(     0.969610,     0.171657)
\psline[fillcolor=black](     0.969610,     0.171657)(     0.950127,     0.217683)
\psline[fillcolor=black](     0.950127,     0.217683)(     0.926146,     0.261533)
\psline[fillcolor=black](     0.926146,     0.261533)(     0.897907,     0.302770)
\psline[fillcolor=black](     0.897907,     0.302770)(     0.865693,     0.340982)
\psline[fillcolor=black](     0.865693,     0.340982)(     0.829825,     0.375787)
\psline[fillcolor=black](     0.829825,     0.375787)(     0.790661,     0.406837)
\psline[fillcolor=black](     0.790661,     0.406837)(     0.748593,     0.433822)
\psline[fillcolor=black](     0.748593,     0.433822)(     0.704041,     0.456473)

\end{pspicture} 

\end{document}
