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 | - |