Ramakrishnan

Ramakrishnan Vaidyanathan

389 Reputation

12 Badges

7 years, 245 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 questions asked by Ramakrishnan

Can any one disprove maple answer in the attached document?
If not, what is the conclusion?
 

restart

coulditbe(3*I > 0)

false

(1)

coulditbe(3*I > 0)

false

(2)

coulditbe(3*I < 0)

false

(3)

coulditbe(-2+3*I = 0)

false

(4)

coulditbe(abs(I) > 0)

true

(5)

true

(6)

coulditbe(2+3*I < 0)

true

(7)

``

``

What is your opinion?

My opinion from the above is : When a is real and b is complex, a and b can not be compared.

Like number of goats and number of lions  can not be added to give an answer in number of lions alone or number of goats alone!!
Riemann's function Zeta is a function of Complex number

 

solve(abs(Zeta(s+2*I)) = 0, s)

-2*I+RootOf(Zeta(_Z))

(8)

"(->)"

-2.0000-2.*I

(9)

NULL

solve(Zeta(s+2*I) = 0, s)

-2*I+RootOf(Zeta(_Z))

(10)

"(->)"

-2.0000-2.*I

(11)

What does the above results convey??

Am I correct if i state that 's' should be a complex number only and not a real number.


 

Download s_is_complex.mw

s_is_complex.mw

Doubt_ForLoopSemicolon_doesnot_function_A_ReactantValues.mwWhy the following two loops do not display the curves though they are obtained in these loops as verified by the 21 loops.(***) later in the end of this document!!?
for i to 9 do
for k to 7 do
p1[i, k] := plot(curve[i, k], x = 2.0 .. 5.0, labels = [xlabel, ylabel[k]], labeldirections = ["horizontal", "vertical"], color = [black], linestyle = Linestyle1[1], thickness = Thickness1[1], title = l[i], caption = cat("Fig.", i), legend = Legend[i]); p2[i, k] := plot(curvep[i, k], style = point, color = [black], symbol = [solidcircle, soliddiamond, solidbox, diamond, asterisk], symbolsize = 8);
plots:-display(p1[i, k], p2[i, k]) end do end do;
The following loop also does not display curves!
for i from 10 to 21 do
for k to 7 do
p1[i, k] := plot(curve[i, k], x = 2.0 .. 5.0, labels = [xlabel, ylabel[k]], labeldirections = ["horizontal", "vertical"], color = [black], linestyle = Linestyle1[2], thickness = Thickness1[2], title = l[i], caption = cat("Fig.", i), legend = Legend[i]); p2[i, k] := plot(curvep[i, k], style = point, color = [black], symbol = [solidcircle, soliddiamond, solidbox, diamond, asterisk], symbolsize = 8);
plots:-display(p1[i, k], p2[i, k]) end do end do;
The following loops dispaly the curves
(*** How come the following curves available did not show in the above for do loop?
for k to 7 do plots:-display(p1[1, k], p2[1, k]) end do;
for k to 7 do plots:-display(p1[2, k], p2[2, k]) end do;
for k to 7 do plots:-display(p1[3, k], p2[3, k]) end do;
for k to 7 do plots:-display(p1[4, k], p2[4, k]) end do;
for k to 7 do plots:-display(p1[5, k], p2[5, k]) end do;
for k to 7 do plots:-display(p1[6, k], p2[6, k]) end do;
for k to 7 do plots:-display(p1[7, k], p2[7, k]) end do;
for k to 7 do plots:-display(p1[8, k], p2[8, k]) end do;
for k to 7 do plots:-display(p1[9, k], p2[9, k]) end do;
for k to 7 do plots:-display(p1[10, k], p2[10, k]) end do;
for k to 7 do plots:-display(p1[11, k], p2[11, k]) end do;
for k to 7 do plots:-display(p1[12, k], p2[12, k]) end do;
for k to 7 do plots:-display(p1[13, k], p2[13, k]) end do;
for k to 7 do plots:-display(p1[14, k], p2[14, k]) end do;
for k to 7 do plots:-display(p1[15, k], p2[15, k]) end do;
for k to 7 do plots:-display(p1[16, k], p2[16, k]) end do;
for k to 7 do plots:-display(p1[17, k], p2[17, k]) end do;
for k to 7 do plots:-display(p1[18, k], p2[18, k]) end do;
for k to 7 do plots:-display(p1[19, k], p2[19, k]) end do;
for k to 7 do plots:-display(p1[20, k], p2[20, k]) end do;
for k to 7 do plots:-display(p1[21, k], p2[21, k]) end do;
 

I attach a file in which i get an error though it performs.

I made a for do statement which performs perfectly for one loop, but gives an error "unexpected ',' , though performs (i cld not find the errors!).
What does this error state then? How do i remove when I use semicolon to end statement? Can any one help me. Thanks.
 

Data made for Data[i,j] [k] where i =1,2; j=1..8. Each Data has 6 values. k = 1..6

For each data i got an output list of 6 values using a module;

I made a for do statement which performs but gives an error "unexpected ','.

Can any onr help to find my mistake. Thanks.

 

restart

R1 := "SE2"; BP__ref := 3.93; BTE__optimum := .334; BP := 2.36; BTE := .271; sfc := .308; Data[1, 1] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]
NULL

R2 := "SE2"; BP__ref := 3.93; BTE__optimum := .334; BP := 2.75; BTE := .298; sfc := .282; Data[1, 2] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

R3 := "SE2"; BP__ref := 3.93; BTE__optimum := .334; BP := 3.14; BTE := .318; sfc := .264; Data[1, 3] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

R4 := "SE2"; BP__ref := 3.93; BTE__optimum := .334; BP := 3.53; BTE := .330; sfc := .253; Data[1, 4] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

R5 := "SE2"; BP__ref := 3.93; BTE__optimum := .334; BP := 3.88; BTE := .334; sfc := .249; Data[1, 5] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

R6 := "SE2"; BP__ref := 3.93; BTE__optimum := .334; BP := 3.93; BTE := .334; sfc := .249; Data[1, 6] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

R7 := "SE2"; BP__ref := 3.93; BTE__optimum := .334; BP := 4.32; BTE := .330; sfc := .253; Data[1, 7] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

R8 := "SE2"; BP__ref := 3.93; BTE__optimum := .334; BP := 4.71; BTE := .318; sfc := .264; Data[1, 8] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

NULL

R1 := "4S"; BP__ref := 3.88; BTE__optimum := .383; BP := 2.36; BTE := .323; sfc := .258; Data[2, 1] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

R2 := "4S"; BP__ref := 3.88; BTE__optimum := .383; BP := 2.75; BTE := .350; sfc := .239; Data[2, 2] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

R3 := "4S"; BP__ref := 3.88; BTE__optimum := .383; BP := 3.14; BTE := .369; sfc := .229; Data[2, 3] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

R4 := "4S"; BP__ref := 3.88; BTE__optimum := .383; BP := 3.53; BTE := .380; sfc := .219; Data[2, 4] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

R5 := "4S"; BP__ref := 3.88; BTE__optimum := .383; BP := 3.88; BTE := .383; sfc := .217; Data[2, 5] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

R6 := "4S"; BP__ref := 3.88; BTE__optimum := .383; BP := 3.88; BTE := .383; sfc := .217; Data[2, 6] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

R7 := "4S"; BP__ref := 3.88; BTE__optimum := .383; BP := 4.32; BTE := .378; sfc := .221; Data[2, 7] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

R8 := "4S"; BP__ref := 3.88; BTE__optimum := .383; BP := 4.71; BTE := .365; sfc := .229; Data[2, 8] := [R1, BP__ref, BTE__optimum, BP, BTE, sfc]

 

``

Data[1, 8][4]

4.71

(1)

``

``

for i to 2 do for j to 8 do y[i, j] := action1:-Mproc(Data[i, j]); print(Data[i, j], y[i, j]) end do end do

["4S", 3.88, .383, 4.71, .365, .229], ["4S", .4311313490, 0.5411807293e-1, 0.3357509744e-1, .4235561571, 0.6183000001e-1]

(2)

NULL

N1 := NULL; for j to 8 do N1 := N1, Data[1, j][4] end do; print(N1)

2.36, 2.75, 3.14, 3.53, 3.88, 3.93, 4.32, 4.71

(3)

for i to 2 do N[i] := NULL; for j to 8 do N[i] := N[i], Data[i, j][4] end do end do; print(N[2])

Error, `,` unexpected

 

N[2]

2.36, 2.75, 3.14, 3.53, 3.88, 3.88, 4.32, 4.71

(4)

N[1]

2.36, 2.75, 3.14, 3.53, 3.88, 3.93, 4.32, 4.71

(5)

``


 

Download Doubt_A_ReactantValues.mw

Doubt_A_ReactantValues.mw

Please find my error in the doc which produces outputlines always. Is there any otherway (other than view -  show contents and uncheck output which hides all other outputs as well in a programm) by commands, which can suppress these output lines.

Also is there any other way of giving continuously varying inputs (and visible in RotaryGauge ) like sin wave form (0 to 8 to 0 in a period) ?

                                                                                         
with(DocumentTools); for i to 12 do SetProperty("RotaryGauge0", value, 6); SetProperty("RotaryGauge1", value, .66*GetProperty("RotaryGauge0", value))*time*[]; 3^100; GetProperty("RotaryGauge0", value); SetProperty("RotaryGauge0", value, 4); SetProperty("RotaryGauge1", value, .7*GetProperty("RotaryGauge0", value))*time[real](); 3^100; SetProperty("RotaryGauge0", value, 2); SetProperty("RotaryGauge1", value, .5*GetProperty("RotaryGauge0", value))*time[real](); 3^100 end do

515377520732011331036461129765621272702107522001

(1)

``


 

Download varying_input.mwvarying_input.mw

?

Can any one correct my code in module for it to work. The procedure is just add 2 and return.My_Module_Mistake.mw
 

restartaction1:-Mproc(2)

Error, `action1` does not evaluate to a module

 

action1:-Mproc(2)

Error, `action1` does not evaluate to a module

 

with(MathematicalFunctions);
action1:=module ()
        export Mproc,y;
                Mproc:= proc (n)
                        y:=n+2;                
                end proc;
end module()


 

Download My_Module_Mistake.mw

 

5 6 7 8 9 10 11 Page 7 of 12