Ramakrishnan

Ramakrishnan Vaidyanathan

289 Reputation

6 Badges

5 years, 140 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.

MaplePrimes Activity


These are replies submitted by Ramakrishnan

@Preben Alsholm 

Thanks to the problem provided however it may look to any, and the final codes from Preben Alsholm  for check, gave many a lessons to me. I have learnt the art of using random numbers and function generators for checking typical situation like this. Thanks. Ramakrishnan V

A good post. Worth learning. Gives complex ideas. A detailed naration in awebinar will be useful to bright students. Congratulations to the author.

Ramakrishnan

@Ramakrishnan 

-2 on RHS with coef of x3 increased by 1 (i.e 42 to 43) gives a unique solution in maple.
 

restart
eq1 := 1752*x1+384*x2+384*x3+72*x4 = 0

1752*x1+384*x2+384*x3+72*x4 = 0

(1)

eq2 := 384*x1+366*x2+43*x3-144*x4 = -2

384*x1+366*x2+43*x3-144*x4 = -2

(2)

eq3 := 384*x1+42*x2+366*x3-144*x4 = 0

384*x1+42*x2+366*x3-144*x4 = 0

(3)

eq4 := 72*x1-144*x2-144*x3+216*x4 = 0

72*x1-144*x2-144*x3+216*x4 = 0

(4)

solve({eq1, eq2, eq3, eq4}, [x1, x2, x3, x4])

[[x1 = 1, x2 = -2, x3 = -2, x4 = -3]]

(5)

``

``


 

Download SimEquationsSolved.mwSimEquationsSolved.mw

@Kitonum 

is it because the frames chosen for solution (red) segments should be same as the plot frames for tandem operation (both visible on plot). I changed both frames to 120. It is ok. Only if they differ, one of them (graph or segment) disappears. Any other reason, please confirm

Hope i am correct.

Thanks.

Ramakrishnan V

@Kitonum 

Thank you. I will go through for frames = 121 and why not 120. Initial guess is so that 120/6 = 20, and therefore start afresh from a =1 ;

Thanks again. for response and clarification

Ramakrishnan V

@Kitonum 

I get a message output length exceeds for the first line alone where as it works in the programme. Any reason. Thanks for answer.

Ramakrishnan V

 

animate_
 

restart

plots:-animate(plot, [x^3+a*x+2, x = -4 .. 4, -15 .. 15, color = blue, thickness = 2], a = -6 .. 0, frames = 122)

 

restart; A := plots:-animate(plot, [x^3+a*x+2, x = -4 .. 4, -15 .. 15, color = blue, thickness = 2], a = -6 .. 0, frames = 120)

`[Length of output exceeds limit of 1000000]`

(1)

``


 

Download animate_assignment.mw

assignment.mw

@Kitonum 

The programme code displayed in your message is very good and appealing for a learner like me. It shows the usage of

procedure,

if command,

single plot,

display multiple plots,

plot options and]

animation.

A bright display of codes as well . Thank you very much.

Thanks also to Maxim for being a source to very interesting responses.

Ramakrishnan V

@_Maxim_ 

I followed your procedure to the extent i know. I got unque solution.

Hope it is correct as expected.
 

NULL``

y := seq(evalf[3](evalf[d]((exp((-1-I)*Pi))^(1+I))), d = 10 .. 3010, 300)

1.00-0.873e-10*I, 1.00-0.402e-310*I, 1.00+0.934e-610*I, 1.00-0.413e-910*I, 1.00+0.174e-1210*I, 1.00-0.116e-1510*I, 1.00+0.919e-1810*I, 1.00-0.925e-2110*I, 1.00-0.988e-2410*I, 1.00+0.412e-2710*I, 1.00+0.199e-3009*I

(1)

for i to 9 do printf("     %1.10Zg \n ", y[i]) end do

     1-8.73e-11I

      1-4.02e-311I
      1+9.34e-611I
      1-4.13e-911I
      1+1.74e-1211I
      1-1.16e-1511I
      1+9.19e-1811I
      1-9.25e-2111I
      1-9.88e-2411I
 

 

ABOVE ONE is OLD ANSWER

NULL
NEW*ANSWER; UNIQUE USING PROPER FORMAT SUGGESTED

 

y1 := seq(evalf[d](exp((-1-I)*Pi)), d = 10 .. 3010, 300)

y2 := seq(evalf[3](y1[i]^(1+I)), i = 1 .. 9)

1.00-0.323e-3*I, 1.00-0.323e-3*I, 1.00-0.323e-3*I, 1.00-0.323e-3*I, 1.00-0.323e-3*I, 1.00-0.323e-3*I, 1.00-0.323e-3*I, 1.00-0.323e-3*I, 1.00-0.323e-3*I

(2)

for i to 9 do printf("     %1.10Zg \n ", y2[i]) end do

     1-0.000323I
      1-0.000323I
      1-0.000323I
      1-0.000323I
      1-0.000323I
      1-0.000323I
      1-0.000323I
      1-0.000323I
      1-0.000323I
 

 

``


 

Download Unique_Answer.mw

Unique_Answer.mw

@Ramakrishnan I have uploaded a wrong doc. Enclosed is doc that gives the answer you wanted in specified widths. Ali

gnment??
 

NULL

``

seq(evalf[3](Re(evalf[d]((exp((-1-I)*Pi))^(1+I)))), d = 10 .. 3010, 300)

0.187e-2, 0.187e-2, 1.00, 1.00, 0.187e-2, 0.187e-2, 0.187e-2, 0.187e-2, 1.00, 0.187e-2, 1.00

(1)

``

``

seq(evalf[3](evalf[d]((exp((-1-I)*Pi))^(1+I))), d = 10 .. 3010, 300)

1.00-0.873e-10*I, 1.00-0.402e-310*I, 1.00+0.934e-610*I, 1.00-0.413e-910*I, 1.00+0.174e-1210*I, 1.00-0.116e-1510*I, 1.00+0.919e-1810*I, 1.00-0.925e-2110*I, 1.00+0.816e-2409*I, 0.187e-2-0.738e-2712*I, 1.00+0.199e-3009*I

(2)

``

y := seq(evalf[3](evalf[d]((exp((-1-I)*Pi))^(1+I))), d = 10 .. 3010, 300)

1.00-0.873e-10*I, 1.00-0.402e-310*I, 1.00+0.934e-610*I, 1.00-0.413e-910*I, 1.00+0.174e-1210*I, 1.00-0.116e-1510*I, 1.00+0.919e-1810*I, 1.00-0.925e-2110*I, 1.00-0.988e-2410*I, 1.00+0.412e-2710*I, 1.00+0.199e-3009*I

(3)

for i to 9 do printf("     %1.10Zg \n ", y[i]) end do

     1-8.73e-11I

      1-4.02e-311I
      1+9.34e-611I
      1-4.13e-911I
      1+1.74e-1211I
      1-1.16e-1511I
      1+9.19e-1811I
      1-9.25e-2111I
      1-9.88e-2411I
 

 

``

``

 

Download Real_Re_part.mw

 

Real_Re_part.mw

 

Excellent presentation of the document. Examples are easy to understand though not in english.

Congratulations. Thank you for letting us know the way of teaching.

Ramakrishnan V

@bouhafsmaple 

Thank you. I shall use embedded components to make this work more attractive and easy to follow. Concept understanding can be made easy with Maple.Unfortunately, I did not do anything further on it for the past two years . Your appreciation motivates me to work on it further. Thanks very much.

Sincerely 

Ramakrishnan. V

@Kitonum 

Dear Sir,
 

``

plot([37320/(.44)-1.1*y, 37320-y], y = 30000 .. 45000, color = ["Red", "Green"], legend = ["R" = z, "G" = x])

 

``

 

 

``


 

Download Two_equnsThreeUnknowns.mwTwo_equnsThreeUnknowns.mw

I want to draw a vertical line in the graph in my document which gives pair of x and z values for a given y. Could you find a way out? Thanks.

 

@acer 

I think I did not make the variable name changed inside the map argument. I have made a perfect workbook and enclosed now with your codes..

Can you help me in removing the y label from column graph in this document. Thanks again.

Ramakrishnan V

DataAnalysis-FindCurveandOptimumPoints.maple

Expt1_Data.xlsx

@acer 

Dear Sir, Early in the morning now, after posting the full example to you, I tried and surprisingly found it working!. But I donot know how it happened yesterday. It gave an error once. I was working with few other programmes at that time.In case you happened to diagnose I will be very thankful.In case you also found it working without problem, please let me know. Thanks.

Ramakrishnan V

@acer 

Hope you would pursuee the attached workbook for help.

Thanks.There is a ComoBox ChCB where in I have called the module to import the excel data. The data table on top of the doc displays the data in the format i need. The rest of the repeated codes also may be commented for my improvement. This doc gives you option to select parameters and report analysis.

Thanks for your help.

DataAnalysis-FindCurveandOptimumPoints.maple

Ramakrishnan V

3 4 5 6 7 8 9 Page 5 of 11