2020-03-06 11:49:23 +01:00
|
|
|
: rr0m,zr0m,rpam ! rhot[m] = min(sqrt((r-rr0m)**2+(z-zr0m)**2), rpam); tor flux phi = pi*b0*rhot**2
|
|
|
|
|
: b0 ! Bphi[T] @ rr0m[m]
|
2023-09-22 15:55:29 +02:00
|
|
|
: q0,qa,alq ! q = q0 + (qa-q0)*rhot**alq
|
2020-03-06 11:49:23 +01:00
|
|
|
: nlim ! number of points in first wall (rlim,zlim) polygon
|
