KobaWiki@RCNP research:memos:macros
https://172.16.12.30/~kobayash/dokuwiki/
2026-06-15T06:38:22+00:00
KobaWiki@RCNP
https://172.16.12.30/~kobayash/dokuwiki/
https://172.16.12.30/~kobayash/dokuwiki/lib/tpl/arctic/images/favicon.ico
-
text/html
2017-12-05T22:22:34+00:00
Anonymous (anonymous@undisclosed.example.com)
PAW macros
https://172.16.12.30/~kobayash/dokuwiki/doku.php?id=research:memos:macros:paw&rev=1512480154&do=diff
PAW macros
* VDC drift time to distance
macro main
hid1=gtdcx1
hid2=gtdcu1
hid3=gtdcx2
hid4=gtdcu2
do i = 1, 4
if ($hexist([hid[i]]) .ne. 1) then
hrin [hid[i]]
endif
enddo
mess 'exec hout#hout4 gtdcx1'
exec hout#hout4 gtdcx1
mess temp.hst was created!
do i = 1, 4
ymax = $hinfo([hid[i]],'max')
ymaxq = [ymax] / 6.
str = 'sub1 '//[hid[i]]//' '//[ymaxq]//' '//1
x1 = $exec($unquote([str]))
str = 'sub1 '//[hid[i]]//' '//[ymaxq]//' '//2
x…