Select Code to Download

while (<>) {
   chomp;
...
      print("var: $name, expr: $expr\n");
   }
}

var: drsubc, expr: agauss(0, 1, 3)        <- Works
var: delm1, expr: 0 + 0.045u*distm1
...
var: e2t, expr: 4.0u + 0.5u*xde1mat
var: mat, expr: 4.0u + 0.4u*dmat
var: m1m2t, expr: 0.35u + 0.05u*dm1m2t