Programatically set profiler simulator distributions

fugalnc

I'm trying to make a Profiler with simulator options turned on and some of the inputs have random distributions. The type of distribution and parameters of that distribution are saved as table variables to be querried as necessary. But the JSL inside the Profiler() function doesn't seem to recognize if statements.

 

For example, this code works fine

Profiler(
  Y( :a, :b ),
  Profiler(
    1,
    Simulator(
      1,
      Factors( 
        c << Fixed( 3.5 ), 
        d << Random( Normal( :dist_p1, :dist_p2 ) )
      ),
      Resimulate
    )
  )
)

but this code doesn't load the distribution info for "d"

Profiler(
  Y( :a, :b ),
  Profiler(
    1,
    Simulator(
      1,
      Factors( 
        c << Fixed( 3.5 ), 
        if(
          dist_type == "Normal", d << Random( Normal( :dist_p1, :dist_p2 ) ),
          dist_type == "Weibull", d << Random( Weibull( :dist_p1, :dist_p2 ) )
        )
      ),
      Resimulate
    )
  )
)

 

programatically_set_profiler_simulator_distributions.jmp

fugalnc

Ok, if I go back to the highest level function (Profiler in this case) and wrap it with with Eval, Substitute, and Expr I can get the behavior I want. It was confusing to me because I thought that the if should be evaluated first, then used as the argument of the function it was inside of, but I can understand now why that wouldn't work.

 

Eval(
  Substitute(
    Expr(
      Profiler(
        Y( :a, :b ),
        Simulator(
          Factors( 
            c << Fixed( 3.5 ), 
            d_
          ),
          Resimulate
        )
      )
    ),
    Expr( _d_ ), 
    if (:dist_type == "Normal", Parse( "d << Random( Normal( :dist_p1, :dist_p2 ))" ),
        :dist_type == "Weibull", Parse( "d << Random( Weibull( :dist_p2, :dist_p1 ))" )
    )
  )
)