Subversion Repositories wimsdev

Rev

Rev 18513 | Rev 18529 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18513 Rev 18522
Line 23... Line 23...
23 
 
 23 
 
24 
  !!!<br>On peut appliquer la transformation de Moebius z->(a*z+b)/(\bar{b}z+\bar{a})\
 24 
  !!!<br>On peut appliquer la transformation de Moebius z->(a*z+b)/(\bar{b}z+\bar{a})\
25 
  !!!codé par [a,b,0] ou z->(a*\bar{z}+b)/(\bar{b}\bar{z}+\bar{a}) codé par [a,b,1]\
 25 
  !!!codé par [a,b,0] ou z->(a*\bar{z}+b)/(\bar{b}\bar{z}+\bar{a}) codé par [a,b,1]\
26 
  !!!avec |a|>|b|; elle envoie 0 sur b/\bar{a} et le point 1 de l'horizon sur\
 26 
  !!!avec |a|>|b|; elle envoie 0 sur b/\bar{a} et le point 1 de l'horizon sur\
27 
  !!!a/\bar{a}.
 27 
  !!!a/\bar{a}.
28 
slib_example=[4,8,6,4,6,6],0.01,html\
 - 
 
29 
[8,8,4,8],0.01,html color=blue\
 28 
slib_example=[8,8,4,8],0.01,html color=blue\
30 
[4,8,10],0.01,html\
 29 
[4,8,10],0.01,html\
- 
 
 30 
[4,8,6,4,6,6],0.01,html\
31 
[8,8,4,8],0.01,html color=blue\
 31 
[8,8,4,8],0.01,html color=blue\
- 
 
 32 
[34,5,34],0.1,html fill=[1]\
32 
[6,8,10],0.1,html color=[blue,grey] fill\
 33 
[6,8,10],0.1,html color=[blue,grey] fill\
33 
[6,8,10],0.1,color=blue html depl=0.5+I*0.5\
 34 
[6,8,10],0.1,color=blue html depl=0.5+I*0.5\
34 
[6,8,10],6,html color=blue\
 35 
[6,8,10],6,html color=blue\
35 
[5,8,3,8],0.04,color=black html\
 36 
[5,8,3,8],0.04,color=black html\
36 
[5,8,3,8],0.04,color=black html depl=-0.5+I*0.5\
 37 
[5,8,3,8],0.04,color=black html depl=-0.5+I*0.5\
37 
[6,8,10],0.1,html fill=[1,5,7]\
 38 
[6,8,10],0.1,html fill=[1,5,7]\
38 
[34,5,34],0.1,html fill=[1]\
 39 
[34,5,34],0.1,html fill=[1]\
39 
[5,8],0.01,html color=black type=regular\
 40 
[5,8],0.01,html color=black type=regular\
40 
[4,8],0.01,html color=black type=regular\
 41 
[4,8],0.01,html color=black type=regular\
41 
[6,8,10],0.1,html fill=[1,5,7]\
 42 
[6,8,10],0.1,html fill=[1,5,7]\
42 
[4,8,9,8,6],0.01,html
 43 
[4,8,9,8,6],0.01,html
Line 47... Line 48...
47 
!distribute items $wims_read_parm into slib_data,slib_bound,slib_option
 48 
!distribute items $wims_read_parm into slib_data,slib_bound,slib_option
48 
!set slib_gpprog=hyptiling
 49 
!set slib_gpprog=hyptiling
49 
!if $slib_bound<0.01
 50 
!if $slib_bound<0.01
50 
  !!reset slib_bound
 51 
  !!reset slib_bound
51 
!endif
 52 
!endif
- 
 
 53 
!set wims_multiexec=$wims_multiexec pari
52 
!default slib_bound=0.01
 54 
!default slib_bound=0.01
53 
!set slib_size=!getopt size in $slib_option
 55 
!set slib_size=!getopt size in $slib_option
54 
!default slib_size=600
 56 
!default slib_size=600
55 
!set slib_color=!getopt color in $slib_option
 57 
!set slib_color=!getopt color in $slib_option
56 
!set slib_color=!declosing $slib_color
 58 
!set slib_color=!declosing $slib_color
Line 88... Line 90...
88 
!set slib_testint=!exec pari t=[$slib_pqr]; t-round(t)==0
 90 
!set slib_testint=!exec pari t=[$slib_pqr]; t-round(t)==0
89 
!if $slib_testint!=1
 91 
!if $slib_testint!=1
90 
  slib_out=Error integers
 92 
  slib_out=Error integers
91 
  !exit
 93 
  !exit
92 
!endif
 94 
!endif
93 
!set wims_multiexec=$wims_multiexec pari
 - 
 
94 
!if $slib_header_hyptiling=
 95 
!if $(slib_header_$slib_gpprog)=
95 
  !readproc gp/$slib_gpprog.gp
 96 
  !readproc gp/$slib_gpprog.gp
96 
  !set slib_hyptiling=!exec pari tikz=0;$(slib_header_$slib_gpprog);
 97 
  !set slib_hyptiling=!exec pari tikz=0;$(slib_header_$slib_gpprog);
97 
!endif
 98 
!endif
98 
!set slib_hyptiling=!exec pari wwww=catalan([$slib_pqr],$slib_bound,$slib_depl)[1];default(realprecision,3);wims_export(wwww)
 99 
!set slib_hyptiling=!exec pari wwww=catalan([$slib_pqr],$slib_bound,$slib_depl)[1];default(realprecision,3);wims_export(wwww)
99 
!set slib_data=!trim $slib_hyptiling
 100 
!set slib_data=!trim $slib_hyptiling