'' 
'' COPYRIGHT (C) 1987, CACI, INC. - FEDERAL, LA JOLLA
''
'' Model: dynhist   
''
'' Comments: see Preamble
''-----------------------------------------------------------------------

main

   let IconName1 = "dyn1"
   let IconName2 = "dyn2"
   let NumSamp = 500

   show histogram DynU with IconName1
   show histogram DynN with IconName2
   show K with "samplvl"

   for K = 1 to NumSamp
   do
     '' values for lo, hi are retrieved from the icon definition file
     '' so the icon definition prescribes the ranges for the sampling

      let UDyn = UNIFORM.F(ULO, UHI, 1)                  '' uniform dist
      let NDyn = NORMAL.F(                               '' normal dist
                 (NHI-NLO) / 2.0 + NLO + NDELTA / 2.0,
                 (NHI - NLO) / 9.0,
                  5)  
   loop

   ''*** read as /
   ''-- doesn't work right when the program is called from a script

end
