Hello, so while I am toying with Maple and some excersizes, I have realized my skills aren't what I thought they were from when I last used Maple 8. I swear the program gets smarter and returns more errors now that I cannot properly define some functions.

For example, I have attempted to plot the vector function r(t)=<cos(t), sin(t), exp(sin(t))>. Required, in the same plot region, same graph, is to plot A) the function r(t), B) the derivative r'(t) AND the C...

I have a more relavant form of a question regarding procedures. I need to write a procedure with parameter f(x) and result in the plot of the function f(x) along with the plot of the curvature of f on the same graph. Ideally, parameter f(x) could be requested to be any function, such as x^2 or cos(x). I am new to procedures and do now know where to begin, even at such a basic level.

Any assistance greatly appreciated.

I am using Maple 14 and struggling with writing procedures. Here is an example of what I need to be able to program. I require a procedure which will receive as a parameter a function f(x) and plot that function (say in red) along with the curvature function (say in blue) on the same graph. Sample parameters include the functions f(x)=x^2 or sin(x) or exp(-x^2).

I feel somewhat confident in my maple commands, but procedures are a whole new thing to me. If even a basic...

Hi,

I have those questions:

1) set

When I write these inputs,

x:={1,3,2}; y:={b,a,d,c}; z:={a[1],a[1,1],b[0],d[0],c[0],a[0],2};

the results are x := {1, 2, 3}, y := {a, b, c, d}, z := {2, a[0], a[1], a[1,1], b[0], c[0], d[0]}

Is there a way to get what I input

2) This problem in ordering numbers and words is verry important and hard when solving a large system of equations with:

restart:with(SolveTools): eqns:=[a[0...

The following simple procedure: 
SubsColumn: = proc (A, V, k) 
local B, m; 
with (LinearAlgebra); 
m: = ColumnDimension (A); 
B: = <A[..,1..m]|V>; 
B: = ColumnOperation (B, [k, m +1]); 
B: = DeleteColumn (B, m +1); 
B; 
end proc; 

solve the problem of...

Hello!

Could you please tell me, how can I model a varying stiffness spring using MapleSim 4?

I think, this can realized using a varying "c" parameter of a standard spring from the MapleSim library, but I don't know, how I can change the "c"-stiffness value during the modeling process.

Thank you.

Dear friends,

My following commands (MAPLE 14), generate the matrix zz1 (see below).

How could I get a plot with "n" (first column) in the "X-coordinate" and second/third and fouth columns in "Y-coordinate"?,

Thanks for your attention,

Jean-Jacques

restart:
interface(rtablesize=50):
f1 :=  (w1, w2,n) -> add(add(
 `if` (1/2 <= w1+j*w2+((1/n)*(1-w1-w2))*k and

why the results of two BessLk function is wrong? The results I got is negative,but it shouldn't be less than zero。For the same  integration expression, I use the mathematica, can get the right results.But when use maple,with the variable value's increasing,the results ranges from positive to negative.In fact, the result I got is outage probability,it should be positive.

What can be said about this divergent series:

 sum((cos(m)+I*sin(m))*(cosh(w)+sinh(w)),n=1 ..infinity) where m=Pi*n and w = ln(n)/n?

Calculate

int(cos(100*(x^4-x)), x = -infinity .. infinity)

with the relative error less than  10 percentages.

Hello,

I use 'SystemConnect' command to connect two transfer function, as the following codes illustrated.

with(DynamicSystems);
sys1 := TransferFunction(10/(s*(s+10)));
sys2 := TransferFunction(k*s^2/(s+20));
Warning, improper transfer-function, degree(num) > degree(den)
sys3 := SystemConnect(sys1, sys2, connection = negativefeedback, outputtype = tf);
Error, (in unknown) cannot convert improper transfer function to state-space model

Dear all,

does anybody have experience with solving heat conduction for multi-layer domain?

the following command gives unrealistic results:

pdsolve(PDE,IBC, numerics)

Thanks,

Mo

I'm currently implementing the Poker test to determine whether a binary sequence possesses some specific characteristics that a truly random sequence would be likely to exhibit.

Maple can't solve the inequation `assuming`([solve(floor(160/m)>=5*2^m,[m])],[m::posint]);

However, `assuming`([solve((160/m)>=5*2^m,[m])],[m::posint]); works.

Is there a way to rewrite...

Hi friends,

I have this piecewise function:

restart:assume(n,integer):h := piecewise(n::odd, n^2, n^3);

I can not get explicitly the derivative:

diff(h,n);

But, with

restart:h1 := piecewise(And(n::integer, n::odd), n^2, n^3);

I can get the derivative explicitly:

diff(h1,n);

Why ?

Thanks in advance

k := 1:
alpha := vector([x*cos(theta), x*sin(theta), k*x]);

e1 := map(diff, alpha, theta);
e2 := map(diff, alpha, x);

G := matrix([[simplify(e1[1]^2 + e1[2]^2 + e1[3]^2), 0],[0, simplify(e2[1]^2 + e2[2]^2 + e2[3]^2)]]);

inv_e1 := evalm(1/G[1,1]*e1);
inv_e2 := evalm(1/G[2,2]*e2);

e11 := map(diff, e1, theta);
e12 := map(diff, e1, x);
e22 := map(diff, e2, x);

gamma_1_11 := simplify(evalm(e11&*inv_e1));
gamma_1_12 := simplify(evalm(e12&*inv_e1));