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
 
-