function block1 () funcstr = "block3;\n\ v = 2 * vr;\n\ a = block2 (v)"; evalstr = sprintf ("function __tmp__ ()\n%s\nendfunction", funcstr); eval (evalstr); __tmp__; clear __tmp__; endfunction