MaplePrimes Questions

Sum(a^(k/a^k), k= 1..n);

Hi,

 

I am new to Maple and have a problem when solving three equations with three variables. But when  I plug in into solve function then it gives no answer.

eqn1 := 24900 = A*exp(-X*1.293995859*10^22)+A*exp(-Y*1.293995859*10^22)+5852.27;

eqn2 := 6000 = A*exp(-X*1.293995859*10^22)+2422.929937;

eqn3 := 19100 = A*exp(-Y*1.293995859*10^22)+8275.199937;

Variables are [A,X,Y]

Hi there. I'm Student

i want to know how solve this problem.

please teach me! 

y'=(y-x)^2, y(0)=0, h=0.1

sol.y=x-tanh(x)

how solve this problem for maple? 

please teach me~

Hi!

I want to select 'Export using shapes for greater fidelity' under option, Export. But I can't find the tab ' Export to PDF-Format'. I'm using Maple 18 on a Mac-computer. 

Can anyone help?

Thanks

 

Esben 

Hello maple users,

I have 2 functions and each functions has 8 variables. I run a matlab code and get outputs for different values of these variables. I assumed 3 of them as constant because the combinations are too many. Anyway, I plot the results and I can see that one function is much better than the other. But I need to compare these functions mathematically. I need to show some proofs. Has anyone any idea what should I do? I wrote the functions on maple and take derivative with respect to one variable and try to see the reaction of the functions to that variable. i am confused.

 

Thanks

 

The details of the tasks are explained in the maple file attached but the aim is essentially to model the carbon cycle using first order diff eqs. I'm slightly confused as to how to exactly set up the equations for part a) and b). I've set up the required constants for the equations and the initial conditions as follows: 

#### initial conditions
atmos(0):=750;
bios(0):=600;
soil(0):=1500;


##### coefficients for rate of change
terrPhoto:=110/atmos(0);
terrResp:=110/bios(0);
plantDeath:=55/bios(0);
plantDecay:=55/soil(0);

and one of the equations as :

Diff(atmos(t),t):=terrPhoto*atmos(t); 

but I've been told that I would have to accommodate the direction of flow of carbon in the rates and also reconsider how many equations I would need.  hwk16.mw

I thought there is a way to set j as the imaginaryunit with a scope larger than the current file. There is a startup script or something ?

Anyone have a quick answer (other than no : ) ?

 

Thanks, cheers !!

what should I do with this error:

"the specified procedure could not be found"

"the Kernel loader cannot find maple engine library,maple.........."

This error appears at the beginning of  use ! 

I've created compiled and executed Fortran 77 code, and then created a .dll file - using g77, for calling as external function in MAPLE 18. I have received the following : Error loading external library. Details are below. Can anyone explain what is going wrong?

Below is the history the steps I have taken:

Here is the contenct of my FORTAN source code file: test2.for 

PROGRAM MAIN
REAL x,y, mult
x = 4.0
y = 3.0
OUT = mult(y,x)
WRITE(UNIT=*,FMT=11) OUT,x,y
11 FORMAT(1X,3E12.4)
END


function mult( a, b )
REAL a,b, mult
mult = a*b
END

The compile, execute and shared library creation steps are as follows  (using g77):

g77 -v -Wall -c -malign-double test2.for
g77 -v "test2.for" -o "test2" 
..execution ran successfully. Creation of dll:

g77 -s -o "test2.dll" "test2.for"

...this executed successfully

Defining as external function in MAPLE:
fmult := define_external('mult', LIB = "S:/MRBwork/IT/Fortran/projects/MAPLE - Fortran/CERN primes/test2.dll", FORTRAN, 'a'::(float[4]), 'b'::(float[4]), RETURN::(float[4]))

... but received following error.

Error, external linking: error loading external library S:/MRBwork/IT/Fortran/projects/MAPLE - Fortran/CERN primes/test2.dll: @�b%

Can someone take and look at the above and explain what may be causing the erroo ion the loading the .dll file?

Melvin

 

When I export to latex a matrix  <<a|b>,<c|d>>, the latex uses \begin[ and \end]

\left[ \begin {array}{cc} a&b\\ \noalign{\medskip}c&d\end {array} \right]
Is there a way to make Maple use () parenthesis instead of []? The screen display is not important for me in Maple, but I'd the latex to use () instead.  It will be nice if there is way to configure this. I looked but could not find an option.

 

hello guys , i have a metric and i want to find its non-zero components of ricci tensor but i have problem with writing the metric and maple gave me error.

 

non_zero_components_of_ricci_tensor.mw

Hello

I have some problem with " For loop". If i add more then one expression the, i recieve an error. Could you please help me to solve it? I have attached my file. Thank you.


restart 

with(ImageTools):NULL

with(FileTools):NULLNULL

Input Section

 

``

filelocation := "C:\\Users\\Mohammad\\Desktop\\ExerciseII\\1.jpg":

k := 3:``

 

zimage := Read(filelocation):

 

zwidth := Width(zimage):``

kernell := VectorCalculus:-`+`(VectorCalculus:-`*`(2, k), 1):NULLNULL

kerneld := `~`[`*`](Array(1 .. kernell, 1 .. kernell, 1), 1/kernell^2):

imheight := Height(zimage):NULL

imwidth := Width(zimage):````

Width(zimage, lower):

Width(zimage, upper):

View(zimage):NULL

new1zpic := Convolution(zimage, kerneld):

View(new1zpic)NULL``

aa := zimage(1 .. (), 1 .. (), 1):

bb := zimage(1 .. (), 1 .. (), 2):

cc := zimage(1 .. (), 1 .. (), 3):NULL

subimage := Matrix(VectorCalculus:-`+`(VectorCalculus:-`*`(2, k), 1), VectorCalculus:-`+`(VectorCalculus:-`*`(2, k), 1), 0):

newaa := aa:

"for i from k+1 to (RowDimension(aa)-k-1) do     for j from k+1 to (ColumnDimension(aa)-k-1) do     subimage:=aa(i-k..i+k,j-k..j+k).~kerneld     newaa(i,j):=add(add(subimage(m,n),m=1..(2 .k+1),n=1..(2*k+1))) end do; end do;"

Error, unterminated loop

"for i from k+1 to (RowDimension(aa)-k-1) do     for j from k+1 to (ColumnDimension(aa)-k-1) do  subimage:=aa(i-k..i+k,j-k..j+k).~kerneld    newaa(i,j):=add(add(subimage(m,n),m=1..(2 .k+1),n=1..(2*k+1))) end do; end do;"

 

 

``


Download pak2.mw

I have the following mathematical expression

where a=0.2, b=0.09, c=0.57, p=0.3 and q=1-p=0.7, Now i want to find the value of n for which the value of the expression will be 1, i.e., for what value of n , A_n will be 1?

Hej hej,

is there a way to obtain confidence intervals for the parameters in a NonlinearFit? To give you an impression of the problem which I was working on, I created a minimial working example (not sure wheather that actually helps). In this particular case, I have two parameters to fit the coefficients of a binomial series to some data I obtained. Beyond the values of the parameters (in a least square fit), I'm also interested in some kind of confidence interval, to get a feeling about how realiable my values are. Is there a direct (or even indirect) way to obtain such a thing. Either directly as a Maple function (confidenceintervals is not supported for NonlinearFit, if I'm not mistaken) or as something I can implement myself (within a reasonable time frame, as in hours rather than days).
Thanks in advance!

Cheer,

Sören

restart; with(plots); with(Statistics)

alpha[0] := 1.000000000:

m__max := 4:

model := Fit(pochhammer(z__1, m)*h__exp^m/factorial(m), [seq(m, m = 0 .. m__max)], [seq(alpha[m], m = 0 .. m__max)], m, output = [leastsquaresfunction, residuals], weights = [seq(1/abs(alpha[m]), m = 0 .. m__max)], iterationlimit = 10000)

model := [pochhammer(1.42349754368085, m)*16.2763580438677^m/factorial(m), Vector[row](5, {(1) = 0., (2) = -0.120508651249829e-1, (3) = 0.113910530162494e-1, (4) = 0.348907003220054e-3, (5) = -0.305508272150429e-2})]

(1)

plots[multiple](logplot, [{seq([m, alpha[m]], m = 0 .. m__max)}, style = point, color = black], [{seq([m, model[1]], m = 0 .. m__max)}])

 

``

Download nonlinearfit-problem.mw

I'm trying to use Maple to show that the Hilbert transform of the natural log of |H(jw)| is -arctan(H(jw))

for a minimum phase network; The network I choose is the simplest filter there exists i.e. a low pass RC-filter

with transfer function H(jw)=1/(1+tau*j*omega) therefore |H(jw)|=1/sqrt(1+(tau*omega)^2))

Here is what I did:

assume(omega > 0); assume(tau > 0); interface(showassumed = 0);

result5 := (int((1/2)*log(1+(tau*nu)^2)/(nu-omega), nu = -infinity .. infinity, CauchyPrincipalValue))/Pi

simplify(result5, symbolic)

 

unfortunately this does not give me the expected result: -arctan(w*tau*omega)

can anyone here tell me what the right way to do it is?

 

thanks in advance

hugo

First 1309 1310 1311 1312 1313 1314 1315 Last Page 1311 of 2434