Subversion Repositories wimsdev

Rev

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

Rev 4330 Rev 7692
Line 19... Line 19...
19 
!distribute item $wims_read_parm into slib_data,slib_a, slib_b
 19 
!distribute item $wims_read_parm into slib_data,slib_a, slib_b
20 
slib_data=!declosing $slib_data
 20 
slib_data=!declosing $slib_data
21 
slib_n=!itemcnt $slib_data
 21 
slib_n=!itemcnt $slib_data
22 
 
 22 
 
23 
slib_out=!exec pari slib_u=gamma($slib_a); V=vector($slib_n,x,1-incgam($slib_a ,$slib_b*[$slib_data][x],slib_u)/slib_u);\
 23 
slib_out=!exec pari slib_u=gamma($slib_a); V=vector($slib_n,x,1-incgam($slib_a ,$slib_b*[$slib_data][x],slib_u)/slib_u);\
24 
for(slib_r =1, $slib_n, if ( [$slib_data][slib_r] <= 0, V[slib_r]=0)); V
24 
for(slib_r =1, $slib_n, if ( [$slib_data][slib_r] <= 0, V[slib_r]=0)); V
25 
 
 25 
 
26 
slib_out=!trim $slib_out
 26 
slib_out=!trim $slib_out
27 
 
 -