Ramakrishnan

Ramakrishnan Vaidyanathan

399 Reputation

13 Badges

11 years, 154 days

Social Networks and Content at Maplesoft.com

With twenty years of Industrial experience and twenty years of teaching experience, I am now as retired Professor, using Maple to teach mathematics subject for students studying X to XII standards. Published XII Mathematics books.

MaplePrimes Activity


These are replies submitted by Ramakrishnan

Hope it is not too late:

I attach a checkboxembedded component examples i made which works. Please see if you can its worth for teaching/use.

Thanks for using.

Ramakrishnan V

CheckBox_ExecutionExample_byVRK_for_forPrime.mw

@John Fredsted 

Thanks to my Professor Robert, I got the answer for my question I want a number of calculations under arithmatic ( a+b and a-b)

adding and subtracting in one statement in module
 

 

action := module () export arithmatic, times;  arithmatic := proc (a, b) options operator, arrow; [a+b, a-b] end proc; times := proc (a, b) options operator, arrow; `mod`(a*b, 5) end proc end module

NULLNULL

NULL

action:-arithmatic(2, 5) = [7, -3]NULL

action:-times(2, 6) = times(2, 6)NULL

``

``

``Thank you all.

Ramakrishnan V

 

NULL


 

Download 2_problems_in_module.mw

@John Fredsted 

Dear John Fredsted, I did not know about usage of 'module inside module' also. I understood from your answer about the term export and how to use export with module. I found an app very useful and was tying to make one similar for curve fitting in my project. I enclose herewith the same though it was from clod i got it. It involves startup code where in everything was programmed using module 'action'. Therefore I wanted to know about it. No problem if this could not be taken up further.

Thank you.RequestHelp_regression_curve_fixing_forData.mw

Ishall

@John Fredsted 

Thank. How is it used. What is the answer ? How is the problem framed for this answer?

n(10) = 20 is the answer ok.

will m1 give the same answer.

will m2 also give the same answer 20. To be specific I want a command to plot sin(x) in a plot0 area embedded area using this.

Hope I am not more confusing. Thanks.

Congratulations. MapleCloud improvements should invite more participants and knowledge sharing among the users.

With more translations, Maple has all the power and potential cover a wider world network.

Cheers.

Ramakrishnan v

@Gillee 

Thanks.

Ramakrishnan V

@Rouben Rostamian  

Your 3 line command was very useful in my understanding the logic behind solving coupled odes.

1. Each second order differential equation (for solving),  needs just two known quantities: initial values and initial slope

2. Even coupled equations the above requirements are sufficient.

3. For n number of equations to be solved, 2 n quantities are required.  Here 3 equations and hence 6 initial conditions.

Thank you very much.

Ramakrishnan V

@kambiz1199 

plot command is seen in your doc. Thanks.

rhs is visibly F(t) and not the expression. This is one case where maple (behaves like a human) has rightly nterpretted the middle term as rhs and gives the required plot (y vs t and not F vs t).

Thanks.

Ramakrishnan V.

@kambiz1199 

use of for loop may help.

I am not getting the answer shown in your message. hence i assumed a function (in place of yr rhs of solution
 

y := proc (x) options operator, arrow; x^2 end proc

proc (x) options operator, arrow; x^2 end proc

(1)

y(1)

1

(2)

y(2)

4

(3)

for x from 0 to 8 do y(x) end do

64

(4)

plot(y(x1), x1 = 0 .. 8)

 

``


 

Download UseOfForLoop.mwUseOfForLoop.mw

)and did my code. Enclosed doc for reference. Hope it is useful.

Ramakrishnan V

@kambiz1199 

Yes. F is a function of time. I am stupid to have realised that maple is smart and will not teach me to be careful.

F(t) is different from F for Maple. i did not realise it.

Thanks for pointing.

Ramakrishnnv

@tomleslie 

I get an error as illegal use of object as a name.

Could you send me the doc for reference

Thanks.

Ramakrishnan V
 

Parse:-ConvertTo1D, "first argument to _Inert_ASSIGN must be assignable"

Error, illegal use of an object as a name

" F:= t-> piecewise( t < 0, 0,  `                 ` ` ` ` ` ` ` ` ` ` ` `  ` ` ` t < 1, 100,  `                 ` ` ` ` ` ` ` ` ` ` ` `  ` ` ` t < 2, 200,  `                   ` ` ` ` ` ` ` ` ` ` ` `  ` t < 3, 50   `                             ` );  ` ` sol:= dsolve( [` ` diff(y(t),t$2)+4*diff(y(t),t)-3=F(t),  `                            ` y(0)=0,  `               ` ` ` ` ` ` ` ` ` ` ` `  ` D(y)(0)=1   `             ` ` ` ` ` ` ` ` ` `  ` ]   `            ` ` ` ` ` ` ` `  ` );  ` ` plot(rhs(sol), t=0..5);"

 

``


 

Download illegalUse_ObjectAsName.mwillegalUse_ObjectAsName.mw

Assign a name for each plot separately say p1 and p2.

p2 := plot([seq(d[k], k = 1 .. 4)], style = point, color = [black, red, green, blue], symbol = solidcircle, symbolsize = 15)

Then use display plots command as follows.

 

plots:-display(p1, p2)

You can also plot command as follows stating all equation separated by comma and appropriate parameters in order correctly.

I have attached documents for both.

Hope they are useful and give you more ideas craetively.

Ramakrishnan  VdisplaycommandUse.mwmultiplotExample.mw
 

 

d[1] := [[1000, 20], [2000, 21], [3000, 32], [4000, 23], [5000, 23]]

d[2] := [[1000, 25], [2000, 26], [3000, 33], [4000, 25], [5000, 24]]

d[3] := [[1000, 26], [2000, 27], [3000, 34], [4000, 26], [5000, 25]]

d[4] := [[1000, 27], [2000, 28], [3000, 25], [4000, 27], [5000, 25]]

 

 

 

d[5] := [[1000, 30], [2000, 31], [3000, 42], [4000, 33], [5000, 43]]

d[6] := [[1000, 35], [2000, 36], [3000, 43], [4000, 35], [5000, 44]]

d[7] := [[1000, 36], [2000, 37], [3000, 44], [4000, 36], [5000, 45]]

d[8] := [[1000, 37], [2000, 38], [3000, 45], [4000, 37], [5000, 45]]

 

 

``

p1 := plot([seq(d[k], k = 1 .. 4)], style = point, color = [black, red, green, blue], symbol = solidcircle, symbolsize = 15); p2 := plot([seq(d[k], k = 5 .. 8)], style = point, color = [black, red, green, blue], symbol = solidcircle, symbolsize = 15)

 

p1 := plot([seq(d[k], k = 1 .. 4)], style = point, color = [black, red, green, blue], symbol = solidcircle, symbolsize = 15)

 

plots:-display(p1, p2)

 

``


 

Download displaycommandUse.mw
 

equn1 := 2*x+3

2*x+3

(1)

equn2 := 3*x+6

3*x+6

(2)

equn3 := 6*x+12

6*x+12

(3)

equn4 := 12*x+2

12*x+2

(4)

plot([equn1, equn2, equn3, equn4], x = 1000 .. 5000, color = [red, blue, green, gold], size = [800, 500], scaling = unconstrained, discont)

 

``


 

Download multiplotExample.mw

 

 

@9009134 

pdsolve each pd equation separately and then solve the three equations for final solution.

For each pdsolve sepending on the type choose the solution. I attach the maple examples for each pdsolve of different types.

Hope this is useful

Ramakrishnan V

PDEsolve.mw

pdsolve2.mw

@Gillee 

It is very simple to get the answer in floating point mode. In the for statement replace 0 with 0.0.

Maple understands that you want the answer in floating point mode and gives you the best answer. It will also give in the number of decimal points you want!

Hope you like this.

Thanks. Ramakrishnannplanets_forLOOP.mw

 

Download nplanets_forLOOP.mw

 

First 6 7 8 9 10 11 12 Page 8 of 13