Application Center - Maplesoft
  Submit your work
Application Center Applications Design of Simple Nomogram by Maple Preview

App Preview:

Design of Simple Nomogram by Maple

You can switch back to the summary page by clicking here.

Learn about Maple
Download Application

Design of Simple Nomogram by Maple 

Dr.Balint Laczik 

> restart; with(plots); with(plottools)
 

The following pdf file open by double click in to the text region! 

 

> `assign`(f[1], `+`(`*`(3, `*`(`^`(u, Float(18, -1)))), sin(u))); `assign`(f[2], `+`(`*`(2, `*`(`+`(`^`(v, Float(15, -1)), 2))), `/`(`*`(cos(`/`(`*`(v), `*`(2)))), `*`(2)), 2)); `assign`(F, `+`(f[1], f...
 

`assign`(F, `+`(`*`(3, `*`(`^`(u, 1.8))), sin(u), `*`(2, `*`(`^`(v, 1.5))), 6, `*`(`/`(1, 2), `*`(cos(`+`(`/`(`*`(v), `*`(2)))))))) (1)
 

> `assign`(Ff, convert(F, string)); `assign`(cim, cat(
 

> `assign`(a, 135); `assign`(b, 105); `assign`(m[1], 5); `assign`(m[2], `/`(`*`(m[1], `*`(b)), `*`(a))); `assign`(m[3], `/`(`*`(m[1], `*`(m[2])), `*`(`+`(m[1], m[2]))))
 

> for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
for i from 0 to 30 do `assign`(u, `/`(`*`(2, `*`(i)), `*`(10))); `assign`(v, `*`(2, `*`(`+`(`/`(`*`(i), `*`(10)), 3)))); `assign`(x[i], evalf(`*`(m[1], `*`(f[1])))); `assign`(y[i], evalf(`*`(m[2], `*`...
 

> for i from 0 to 150 do `assign`(LLL[i], piecewise(`mod`(`+`(i, 5), 5) = 0, line([`+`(`-`(4)), `*`(`+`(35, i), `*`(m[3]))], [4, `*`(`+`(35, i), `*`(m[3]))], color = szin), line([`+`(`-`(1)), `*`(`+`(35...
for i from 0 to 150 do `assign`(LLL[i], piecewise(`mod`(`+`(i, 5), 5) = 0, line([`+`(`-`(4)), `*`(`+`(35, i), `*`(m[3]))], [4, `*`(`+`(35, i), `*`(m[3]))], color = szin), line([`+`(`-`(1)), `*`(`+`(35...
for i from 0 to 150 do `assign`(LLL[i], piecewise(`mod`(`+`(i, 5), 5) = 0, line([`+`(`-`(4)), `*`(`+`(35, i), `*`(m[3]))], [4, `*`(`+`(35, i), `*`(m[3]))], color = szin), line([`+`(`-`(1)), `*`(`+`(35...
for i from 0 to 150 do `assign`(LLL[i], piecewise(`mod`(`+`(i, 5), 5) = 0, line([`+`(`-`(4)), `*`(`+`(35, i), `*`(m[3]))], [4, `*`(`+`(35, i), `*`(m[3]))], color = szin), line([`+`(`-`(1)), `*`(`+`(35...
for i from 0 to 150 do `assign`(LLL[i], piecewise(`mod`(`+`(i, 5), 5) = 0, line([`+`(`-`(4)), `*`(`+`(35, i), `*`(m[3]))], [4, `*`(`+`(35, i), `*`(m[3]))], color = szin), line([`+`(`-`(1)), `*`(`+`(35...
 

> for i from 0 to 3 do `assign`(nn, `*`(10, `*`(i))); `assign`(n1, convert(`*`(2, `*`(i)), string)); `assign`(n2, convert(`+`(`*`(2, `*`(i)), 6), string)); `assign`(kep || i, textplot({[`+`(`-`(a), `-`(...
for i from 0 to 3 do `assign`(nn, `*`(10, `*`(i))); `assign`(n1, convert(`*`(2, `*`(i)), string)); `assign`(n2, convert(`+`(`*`(2, `*`(i)), 6), string)); `assign`(kep || i, textplot({[`+`(`-`(a), `-`(...
for i from 0 to 3 do `assign`(nn, `*`(10, `*`(i))); `assign`(n1, convert(`*`(2, `*`(i)), string)); `assign`(n2, convert(`+`(`*`(2, `*`(i)), 6), string)); `assign`(kep || i, textplot({[`+`(`-`(a), `-`(...
for i from 0 to 3 do `assign`(nn, `*`(10, `*`(i))); `assign`(n1, convert(`*`(2, `*`(i)), string)); `assign`(n2, convert(`+`(`*`(2, `*`(i)), 6), string)); `assign`(kep || i, textplot({[`+`(`-`(a), `-`(...
for i from 0 to 3 do `assign`(nn, `*`(10, `*`(i))); `assign`(n1, convert(`*`(2, `*`(i)), string)); `assign`(n2, convert(`+`(`*`(2, `*`(i)), 6), string)); `assign`(kep || i, textplot({[`+`(`-`(a), `-`(...
for i from 0 to 3 do `assign`(nn, `*`(10, `*`(i))); `assign`(n1, convert(`*`(2, `*`(i)), string)); `assign`(n2, convert(`+`(`*`(2, `*`(i)), 6), string)); `assign`(kep || i, textplot({[`+`(`-`(a), `-`(...
 

> `assign`(cimx, textplot({[`+`(`-`(a), `-`(20)), x[0],
 

> for i from 0 to 12 do `assign`(n, convert(`+`(40, `*`(10, `*`(i))), string)); `assign`(kepp || i, textplot({[10, `*`(`+`(40, `*`(10, `*`(i))), `*`(m[3])), n]})) end do
 

> `assign`(U, display({seq(kep || ii, ii = 0 .. 3), seq(kepp || ii, ii = 0 .. 12), cimx}, axes = none))
 

> `assign`(t[1], line([`+`(`-`(a)), x[0]], [`+`(`-`(a)), x[30]])); `assign`(t[2], line([b, y[0]], [b, y[30]])); `assign`(t[3], line([0, z[0]], [0, z[30]])); `assign`(KEP, display(U, seq(t[j], j = 1 .. 3...
`assign`(t[1], line([`+`(`-`(a)), x[0]], [`+`(`-`(a)), x[30]])); `assign`(t[2], line([b, y[0]], [b, y[30]])); `assign`(t[3], line([0, z[0]], [0, z[30]])); `assign`(KEP, display(U, seq(t[j], j = 1 .. 3...
 

 

The changeble values of u and v are:
 

> u,v:=4.738,8.421:
 

> print(
print(
 

Exacte value  
 

Plot_2d  
 

>