Rev 5736 | Rev 8321 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 5736 | Rev 7692 | ||
|---|---|---|---|
| Line 48... | Line 48... | ||
| 48 | slib_height=!exec pari slib_n=$slib_n;slib_niveau=Mat([$slib_niveau]);slib_k=slib_n;for(slib_i=1,slib_n,if(slib_niveau[slib_i,]==0,slib_k=slib_i-1;break));print(slib_k); |
48 | slib_height=!exec pari slib_n=$slib_n;slib_niveau=Mat([$slib_niveau]);slib_k=slib_n;for(slib_i=1,slib_n,if(slib_niveau[slib_i,]==0,slib_k=slib_i-1;break));print(slib_k); |
| 49 | 49 | ||
| 50 | slib_width =!exec pari slib_niveau=Mat([$slib_niveau]); vecmax(vector($slib_height,i, sum(j=1,$slib_n, slib_niveau[i,j]))) |
50 | slib_width =!exec pari slib_niveau=Mat([$slib_niveau]); vecmax(vector($slib_height,i, sum(j=1,$slib_n, slib_niveau[i,j]))) |
| 51 | 51 | ||
| 52 | #hauteur des paraboles sur lesquelles sont mis les points |
52 | #hauteur des paraboles sur lesquelles sont mis les points |
| 53 | slib_listeb= !values ($slib_width/2+1-x)*0.98111111/$slib_width for x= 1 to $[ceil($slib_width/2)] |
53 | slib_listeb= !values ($slib_width/2+1-x)*0.98111111/$slib_width for x= 1 to $[ceil($slib_width/2)] |
| 54 | slib_listeb =!makelist x,-x for x in $slib_listeb |
54 | slib_listeb =!makelist x,-x for x in $slib_listeb |
| 55 | slib_niveau =!exec pari slib_niveau=Mat([$slib_niveau]); matrix($slib_height,$slib_n,i,j,slib_niveau[i,j]) |
55 | slib_niveau =!exec pari slib_niveau=Mat([$slib_niveau]); matrix($slib_height,$slib_n,i,j,slib_niveau[i,j]) |
| 56 | slib_position= !exec pari matrix($slib_n,2) |
56 | slib_position= !exec pari matrix($slib_n,2) |
| 57 | slib_position=!translate internal ; to $\ |
57 | slib_position=!translate internal ; to $\ |
| 58 | $ in $slib_position |
58 | $ in $slib_position |
| Line 65... | Line 65... | ||
| 65 | slib_test=0 |
65 | slib_test=0 |
| 66 | slib_total =!replace internal , by + in $slib_ligne |
66 | slib_total =!replace internal , by + in $slib_ligne |
| 67 | slib_total=$[$slib_total] |
67 | slib_total=$[$slib_total] |
| 68 | !if $slib_total=1 |
68 | !if $slib_total=1 |
| 69 | slib_sign=$[-$slib_sign] |
69 | slib_sign=$[-$slib_sign] |
| 70 | !endif |
70 | !endif |
| 71 | 71 | ||
| 72 | slib_dist= $[round($slib_width/$slib_total)] |
72 | slib_dist= $[round($slib_width/$slib_total)] |
| 73 | !for slib_j = 1 to $slib_n |
73 | !for slib_j = 1 to $slib_n |
| 74 | slib_pt=!item $slib_j of $slib_ligne |
74 | slib_pt=!item $slib_j of $slib_ligne |
| 75 | !if $slib_pt <>0 |
75 | !if $slib_pt <>0 |
| 76 | !advance slib_test |
76 | !advance slib_test |
| 77 | slib_bb=!item $[($slib_test)*$slib_dist] of $slib_listeb |
77 | slib_bb=!item $[($slib_test)*$slib_dist] of $slib_listeb |
| 78 | slib_position=!replace internal line number $slib_j by $[$slib_i-1], $[$slib_sign*$slib_bb*$slib_i*($slib_height -$slib_i)] in $slib_position |
78 | slib_position=!replace internal line number $slib_j by $[$slib_i-1], $[$slib_sign*$slib_bb*$slib_i*($slib_height -$slib_i)] in $slib_position |
| 79 | !endif |
79 | !endif |
| 80 | !next slib_j |
80 | !next slib_j |
| 81 | !next slib_i |
81 | !next slib_i |