Another easy question from a newbie:

Say I have a procedure which, along the its execution, needs to pass a parameter to a different procedure (which, in this case, would be a subroutine) to be elaborated and returned to go on.

This process may happen a few times during the execution and the passing parameter, which may have the same name but different value, needs to be worked on by the subrooutine.

My question is: how do I invoke a procedure from a parent procedure passing one or more parameters and have them returned?

Thank you

Hi,

I am trying to use implicit plot. The plot is OK but I want to put labels such as what Latex produces :

$\frac{\Omega}{\omega_n}$ for x axis and $a_0 \mathrm{(m)}$ for y axis

How can I apply this in my maple code as below:

plot1:=implicitplot(a3, Omega_r=1.5..2.5, a=0.00000001..0.1, labeldirections=[horizontal, horizontal], axes=boxed, labels**=["W/w_n",typeset("a_0 (m)")], labelfont=[SYMBOL]**):

What I have put as bold does not work for me, it is making everything in Greek :) . I want combination of Greek and math.

Thasnks,

Bahareh

I am trying to design a question, where studenst have to find the equation of a linear function given its graph. For this to work, I have to be able to draw gridlines, which for some reason is not possible in Maple TA with the ordinary plot function. I know it should be possible using an applet; given the problems this is going to create with all the different browsers, however, this is not a viable solution. I have found another solution which is unreasonably complex but should work. The problem is that sometimes it doesn't work. When I press Refresh algorithm preview in the Question Designer I get "Broken Maple plot. Verify your plot statement" roughly every third time I refresh the preview. Any help would be greatly appreciated.

The algorithm is here:

$a1=range(-4,4,1);

$a2=range(1,4,1);

condition:not(eq($a1,$a2));

$px=range(0,5,1);

$y0=range(0,5,1);

$x0=if(gt($a1,0),$px,-$px);

$f=$a1/$a2*(x-$x0)+$y0;

$G=plotmaple("

plots[display](

[plots[coordplot](cartesian, [-10 .. 10, -10 .. 10], grid = [11, 11], color = grey),

plot($f, x = -10 .. 10, y = -10 .. 10, color = [green, blue, red], thickness = 2, tickmarks = [[1], [1]], labels = [``, ``]),

plots[textplot]([0, 10, 'y'], align = {above, right}),

plots[textplot]([10, 0, 'x'], align = {above, right})

],

labels = [``, ``], axes = normal, view = [-10 .. 10, -10 .. 10]),

plotoptions='width=350,height=350'");

$g=gcd($a1,$a2);

$at=$a1/$g;

$an=$a2/$g;

$a=if(eq($an,1),$at,$at/$an);

$ans=$a*x+($y0-$a*$x0);