BEPby random varible

globals [
q var fix p
mar z
tr tc
bep
]

to Setup
  ca
  reset-ticks
end 

to Go


  set p  random-normal mu-p sigma-p
  set q  random-normal mu-q sigma-q
  set fix random-normal mu-f sigma-f
  set var random-normal mu-var sigma-var
  set mar p - var
  set z tr - (fix + (q * mar))
  set tr q * p
  set tc fix + (q * var)
  set bep fix / (p - var)
  if ticks > tekrar [stop]


  tick
end