Ramakrishnan

Dr. Ramakrishnan Vaidyanathan

259 Reputation

5 Badges

4 years, 358 days

Social Networks and Content at Maplesoft.com

I have retired as Professor-Mechanical in Sri Venkateswara College of Engineering and Technology under Anna University affiliated colleges in Tamil Nadu, India. I have 19 years of Industrial and 20 years of teaching experience. I am learning Maple for the past four and half years hoping to make at least one appreciable maple presentation.

MaplePrimes Activity


These are replies submitted by Ramakrishnan

@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

@Carl Love .

Thank you very much. It works.

@acer 

Dear sir, Though the following codes given by you , work well in a document directly when specified, I have found difficulties in using the same codes for my use inside procedure or module. The arrow operator does not work. Should I add anything like with(DocumentTools) or Statistics like that. The arrow oerator is copied as an operator  inside the procedurewhen I attempted to copy iin a sprocedure.

BTE := map(u->parse(sprintf("%.3f",u)),
           Matrix(BTE, datatype = anything)):

@tomleslie 

Please find attached doc with proc call which works andwhich does not where there is an error 0 and %1 are not evaluated in module. Hope these two documents help you find the issue and solution.

Thanks.

Ramakrishnan V


 

 

fun := proc (n) local a, b, i, x, dt; dt := .5; a := readstat("insert a"); Threads:-Sleep(dt); b := readstat("insert b"); for i to n do Threads:-Sleep(dt); x[i] := readstat("insert x") end do end proc

fun(3)

``


 

Download readstatExample1.mw

readstatExample1.mw

readstatExampleNW.mw

2 3 4 5 6 7 8 Page 4 of 10