Download
1 / 7
70 likes | 393 Vues
NSTX. Supported by. NSTX Centerstack Upgrade Project Meeting November 4 2009. Monte Carlo Results for October 8 Influence Coefficients Peter H. Titus. Current Assignment Routines. ! limits if rnd<.5 then let cur(1)=-24!OH else let cur(1)=14 !OH end if if rnd<.5 then let cur(2)=-3
E N D
NSTX Supported by NSTX Centerstack Upgrade Project Meeting November 4 2009 Monte Carlo Results for October 8 Influence Coefficients Peter H. Titus
Current Assignment Routines ! limits if rnd<.5 then let cur(1)=-24!OH else let cur(1)=14 !OH end if if rnd<.5 then let cur(2)=-3 else let cur(2)=9 end if if rnd<.5 then let cur(3)=0 else let cur(3)=1 end if if rnd<.5 then let cur(4)=0 else let cur(4)=2 end if if rnd<.5 then let cur(5)=-14 else let cur(5)=16 end if if rnd<.5 then let cur(6)=-16 else let cur(6)=13 end if if rnd<.5 then let cur(7)=0 else let cur(7)=16 end if Pegged at Max or Min Limits Random if rnd<.5 then let cur(8)=0 else let cur(8)=32 end if if rnd<.5 then let cur(9)=-3 else let cur(9)=11 end if if rnd<.5 then let cur(10)=0 else let cur(10)=1 end if if rnd<.5 then let cur(11)=0 else let cur(11)=2 end if if rnd<.5 then let cur(12)=-14 else let cur(12)=16 end if if rnd<.5 then let cur(13)=-16!OH else let cur(13)=13 !OH end if ! limits let cur(1)=-24+rnd*38 !OH let cur(2)=(-3+rnd*14) !PF1aU let cur(3)=(0+rnd*1) !PF1bu let cur(4)=(0+rnd*2) !PF1cu let cur(5)= -14+rnd*30 !PF2u: -0/+20kA let cur(6)=-16+rnd*29 !PF3u: -16/+8kA let cur(7)=rnd*16 !PF4u: -20/+15kA let cur(8)=rnd*34 !PF5u: -32/+0kA let cur(9)=(-3+rnd*14) !PF1al let cur(10)=(0+rnd*1) !PF1bl let cur(11)=(0+rnd*2) !PF1cl let cur(12)= -14+rnd*30 !PF2l: -0/+20kA let cur(13)=-16+rnd*29 !PF3l: -16/+8kA let cur(14)=cur(7) !PF4: -20/+15kA !PF4l in series with PF4u let cur(15)=cur(8) !PF5l in series with PF5u: -32/+0kA
