Ramakrishnan

Ramakrishnan Vaidyanathan

399 Reputation

13 Badges

11 years, 87 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

@tomleslie 

Amazing. One command line added does the trick. 

Do(q = %MathContainer0);
  Do(p = eval(q));
  # Do(%Plot0 = plot(p, x = 0..2*Pi));
  Do(%Plot0 = plots:-animate(plot, [p, x =0..t], t=0..10));
  SetProperty("Plot0", ':-play', true, ':-refresh'=true);

I will try pause command also similarly to make the user use the same button to pause and play.

SetProperty("Plot0", ':-pause', true, ':-refresh'=true);

Thanks.

@Earl 

Thank you very much both of you involved in this conversation. I understood the importance of the Digits command and the accuracy of results. I added the command Digits:=15 and the results and plot tally. Thank you so much.

Download Int_Question_answer.mw
 

restart; with(plots); with(ScientificConstants); Digits := 15

15

(1)

g := GetValue(Constant(g))

9.80665

(2)

TP := proc (R, Vzero) sqrt((1/2)*R/g)*(int(1/sqrt(1+(1/2)*Vzero^2/(g*R)-cos(theta)), theta = 0 .. arccos(2/3+(1/3)*Vzero^2/(g*R)))) end proc

evalf(TP(3, 1.2*10^(-3)))

4.95088511960389

(3)

evalf(TP(3, 1.5*10^(-3)))

4.82746536424607

(4)

evalf(TP(3, 10^(-4)))

6.32528075210332

(5)

R := 3; plot(sqrt(R/(2*g))*(int(1/sqrt(1+Vzero^2/(2*g*R)-cos(theta)), theta = 0 .. arccos(2/3+Vzero^2/(3*g*R)))), Vzero = 10^(-4) .. 1.5*10^(-3))

 

TP(3, 0.2e-3); Vzero := 0.2e-3

5.94189995191646

 

0.2e-3

(6)

sqrt(R/(2*g))*(int(1/sqrt(1+Vzero^2/(2*g*R)-cos(theta)), theta = 0 .. arccos(2/3+Vzero^2/(3*g*R))))

Vzero := 0.4e-4

 

 

5.94189995191646

 

0.4e-4

(7)

sqrt(R/(2*g))*(int(1/sqrt(1+Vzero^2/(2*g*R)-cos(theta)), theta = 0 .. arccos(2/3+Vzero^2/(3*g*R))))

6.83209756585927

(8)

``


 

Download Int_Question_answer.mw

 

Ramakrishnan V

Thank you. Answer is clear now. Ramakrishnan.

@vv 

In line 5,  as shown below, it gives an error msg in doc mode. How do I rectify this?

v / sqrt(v^+ . v):
T := simplify(%)

Error, invalid power
Typesetting:-mambiguous(restartsemi  withApplyFunction(plots)colon  r Assign 

  (xApplyFunction(t)commafApplyFunction(xApplyFunction(t)))colon  v Assign diffApplyFunction

  (rcommat)colon  v sol sqrtApplyFunction(Typesetting:-mambiguous(

  vcirc + , Typesetting:-merror("invalid power")) period v)colon  T Assign simplifyApplyFunction

  (%)colon  N Assign ( uminus0T(2)comma T(1) )colon  F Assign (0

  commauminus0mastg)  +  nastN uminus0 muastnastTastsignumApplyF\

  unction(diffApplyFunction(xApplyFunction(t)commat))colon  mast

  diffApplyFunction(vcommat) equals;&tilde Fcolon  DE Assign 

  convertApplyFunction(%comma list)colon  solveApplyFunction(DE

  comma (diffApplyFunction(xApplyFunction(t)commatcommat)comma n)

  )colon  selectApplyFunction(hascomma %comma diffApplyFunction(x

  ApplyFunction(t)commatcommat))colon  de Assign %()colon   myde 

  Assign evalApplyFunction(decomma (f equals (x rarr xcirc2)comma

   mequals1comma gequals1comma muequals1sol10))colon  ic Assign x

  ApplyFunction(0)equals0comma DApplyFunction(x)ApplyFunction(0)

  equals1colon  dsol1 Assign dsolveApplyFunction((mydecomma ic)

  comma numericcomma outputequalslistprocedure)colon  ptAssignevalApplyFunction

  (tcomma dsol1)colon pxAssignevalApplyFunction(xApplyFunction(t)

  comma dsol1)colon  tmaxAssign13.55colon  parabAssignplotApplyF\

  unction((pxApplyFunction(t)commapxApplyFunction(t)circ2commat

  equals0period;&periodtmax)commacolorequalsblue)colon  animate

  ApplyFunction(plotcomma (((pxApplyFunction(t)commapx

  ApplyFunction(t)circ2))commastyleequalspointcommasymbolsize

  equals30)comma tequals0period;&periodtmaxcomma framesequals100

  comma backgroundequalsparab)semi)

@Joe Riel 

Dear Sir, Thanks for your procedure. It works outside, but when I take it inside textbox edit action, the string remains for one value and one gets converted. I am still working on it and hope to succeed calling the procedure from inside the textarea edit region. Cheers. Ramakrishnan V


 


NULL

NULL

NULL

NULL


 

Download I_gotNumericAnswerinTextArea.mw

 

@Carl Love 

Oh! It is an excellent one line command I used inside the edit changed textbox(0 and 1) content 's and it worked fine. I have not used the word macro (deleted the word macro) and it still works. Why the word macro is there? 

Thanks.

Regards.

RamakrishnanV

 

@Carl Love 

Thanks. Awaiting an example for procedure and module combination. Cheers. Ramki..

 

@Zeineb 

Dear Sir,

I give below the command obtained using explorer (it is a simple exercise in maple)

Explore(evalf(3/13+16/13*x), parameters = [[x = 0 .. 30, controller = slider]], loop = never, size = NoUserValue, numeric = false, echoexpression = true)

I also attach the document for your use.

Make the best use of it for any value of x 


                               x (30) = 483/13 = 37.15 for my data.


 


y := a*x+b; d := [[3, 4], [5, 6], [6, 8], [8, 10]]; c := CurveFitting[LeastSquares](d, x, curve = y); Printf(c)

Printf(3/13+(16/13)*x)

(1)

plot(c, x = 0 .. 10)

 

``

Explore(3/13+(16/13)*x, parameters = [[x = 0 .. 30, controller = slider]], loop = never, size = NoUserValue, numeric = false, echoexpression = true)

(2)

Explore(evalf(3/13+(16/13)*x), parameters = [[x = 0 .. 30, controller = slider]], loop = never, size = NoUserValue, numeric = false, echoexpression = true)

``

NULL

 

Download Fix_plot_stLineData.mw

 

Fix_plot_stLineData.mw


 

 

@Carl Love 

Thank you very much for the detailed clarification. This will be useful very much. Ramakrishnan.V

@Carl Love 

Thank you very much. It works fine both ways now radian to degree and degree to radian.

Why is the if in if statement inside single quotes.

Can we use if statement to assign before the set property statement?

I will be using a procedure outside the table, use 'if else' statement and try to achieve the same results. Hope I will get it..

radianToDegree.mw
 

NULL

``

``

 

``Degrees

``Radians

``

``

To verify 1800  = 6.28 radians

To verify 6.28 radians = 1800  

 

 

``


 

Download radianToDegree.mw

 

Thanks.

Ramakrishnan V 

Dear group member,

In the first place, I request you not to react immediately to my my message. The caption and the message are contradicting as it indicates that there is a maple account and there is another account of yours in the group. Let me not take this issue at all.

I also felt like deleting myself from different groups, but after me getting deleted (not myself, but by the group itself), I felt bad with an inferiority complex.

Ask yourself, what was your expectation when you joined the group. Certainly we were not and in fact no one, was an expert in maths and maple at the time of joining the group. Therefore the purpose was mainly to learn and share peer views apart from many other like getting good friends and knowing solutions to problems that we did not even know existed in maths.

I was doing a probe why I should quit?

First, I thought I am unfit and did not understand anything in the questions and answers. Then my mind said that is the main reason you should still continue in the group to improve yourself over time.

Next, I thought I am much superior to those participating in the group and know every thing. Then again my mind said that is main reason you should still continue in the group to contribute your approach to solutions, get pride and win thousands of hearts .

Either way, I find no reason why I should delete myself wheen I donot know how to do now Wait. Watch. You will see the light and bright future ahead. All the best.

Ramakrishnan V

@acer 

Thanks.

Now I understand the difference between the use of open brackets and square brackets.

Thanks again.

Ramakrishnan V

Just have a procedure to vary the range till y approximately equal to zero (y < 1 e -12).
 

restart; de := diff(y(t), t, t) = -1; ic := y(0) = 1, (D(y))(0) = 0; Events := [y(t) = 0, diff(y(t), t) = -.5*(diff(y(t), t))]; dsol := dsolve({de, ic}, numeric, events = [Events], range = 0 .. 4); plots[odeplot](dsol, thickness = 3, color = red)

 

dsol

dsol

(1)

``


 

Download bouncingBall.mw

Hope attached doc helps you to an extent. Please note, the function values, only you can determine with values of constants and variable r values.
 

Let r = r1, r2, r3, r4 and r5

At r, find V and E0

V := [1, 2, 3, 4, 5, 6]; E0 := [6, 5, 4, 3, 2, 1]

[6, 5, 4, 3, 2, 1]

(1)

E0B0 := [12, 20, 8, 12, 4, 4]

Plot of V vs E0 is given below. Only points are plotted

plot(`<|>`(`<,>`(1, 2, 3, 4, 5, 6), `<,>`(6, 5, 4, 3, 2, 1)), style = point)

 

NULL

B0 := [2, 4, 2, 4, 2, 4]

[2, 4, 2, 4, 2, 4]

(2)

Plot of V vs B0 is given below.

plot(`<|>`(`<,>`(1, 2, 3, 4, 5, 6), `<,>`(2, 4, 2, 4, 2, 4)), style = line)

 

``

Plot of V vs E0 is given below.

NULL

NULLSimilarly, find E0*B0 as a list and plot as below

plot(`<|>`(`<,>`(1, 2, 3, 4, 5, 6), `<,>`(12, 20, 8, 12, 4, 4)), style = pointline)

 

NULL


 

Download howDoIplot.mw

Cheers. Ramakrishnan V

@Preben Alsholm 

it is great. Nice way for using it in a session. But any way out for only few lines in a session?

Cheers. Thanks.

Ramakrishnan V

2 3 4 5 6 7 8 Last Page 4 of 13