mumps-demo/05-user-defined-routines/Main.m


  d hello^MyMathRoutines

  r "Enter n: ",n,!

  s areaCircle=$$areaCircle^MyMathRoutines(n)
  w "areaCircle(",n,") = ",areaCircle,!

  s fibonacci=$$fibonacci^MyMathRoutines(n)
  w "fibonacci(",n,") = ",fibonacci,!

  s factorialByVal=$$factorialByVal^MyMathRoutines(n)
  w "factorialByVal(",n,") = ",factorialByVal,!

  s m=n
  do factorialByRef^MyMathRoutines(.n)
  w "factorialByRef(",m,") = ",n,!
M routines are added 2019-09-26 10:04:21 -04:00
cleanup 2019-09-26 16:50:50 -04:00			`d hello^MyMathRoutines`
M routines are added 2019-09-26 10:04:21 -04:00
			`r "Enter n: ",n,!`

cleanup 2019-09-26 16:50:50 -04:00			`s areaCircle=$$areaCircle^MyMathRoutines(n)`
M routines are added 2019-09-26 10:04:21 -04:00			`w "areaCircle(",n,") = ",areaCircle,!`

cleanup 2019-09-26 16:50:50 -04:00			`s fibonacci=$$fibonacci^MyMathRoutines(n)`
M routines are added 2019-09-26 10:04:21 -04:00			`w "fibonacci(",n,") = ",fibonacci,!`

cleanup 2019-09-26 16:50:50 -04:00			`s factorialByVal=$$factorialByVal^MyMathRoutines(n)`
M routines are added 2019-09-26 10:04:21 -04:00			`w "factorialByVal(",n,") = ",factorialByVal,!`

			`s m=n`
cleanup 2019-09-26 16:50:50 -04:00			`do factorialByRef^MyMathRoutines(.n)`
M routines are added 2019-09-26 10:04:21 -04:00			`w "factorialByRef(",m,") = ",n,!`