Hello,

I am working on a problem involving Newton's Law of Cooling in Maple, I want to:

1. Solve for the cooling constant k,
2. Find how long it takes for the pizza to cool to 300 F,

Here is the code I am currently using:

with(plots):

T__s := 75;  # Surrounding temperature
ode := diff(T(t), t) = k*(T(t) - T__s);

# General solution
general_solution := dsolve(ode, T(t));

# Initial condition: T(0) = 350
T := t -> 75 + exp(k*t)*c__1;
C := solve(350 = 75 + exp(0)*C__1, C__1);

# Solve for k using T(5) = 340
k := solve(340 = 75 + 275*exp(5*k), k);
k := evalf(k);

# Solve for time to reach T = 300
time_to_reach := solve(300 = 75 + 275*exp(k*t), t);
time_to_reach := evalf(time_to_reach);

# Define T(t) with solved constants
T := t -> 75 + 275*exp(k*t);

# Plot temperature over time
temp := plot(T, t = 0 .. 280, 75 .. 360, title = "Exponential Decay of Pizza Temperature", labels = ["t (minutes)", "T(t) (°F)"], color = blue);

# Plot T__s as a horizontal line
T__sur := plot(T__s, t = 0 .. 280, color = red, linestyle = dash);

# Combine and display plots
display([temp, T__sur]);

The code works, but I am wondering if there is a more efficient or genuine way.

I would greatly appreciate any advice or alternative approaches to solving and visualizing this in Maple.

Thank you in advance for your insights!

PDF ready for download.

Error occurred during PDF generation. Please refresh the page and try again

With the latest version of Maple I get an indenting space when I click "Shift+Enter".
For example 

But I don't like it: suggestion? Thanks

Hint: we can vanish the different power of x and t!

Download params.mw

params.mw

Hi,

I've just got interested in MapleFlow (and downloaded the trial). I looked at the previous post but I have seen very little activity for MapleFlow. Is it still alive?

Best regards,

Hi, how to rsolve this recursive sequence auto? 

The manual calculation is taking the reciprocal of both sides of the equation, and then do some simple calculations to get the answer:1/(3·2^n-5).

Download ask_recrusive_sequence_of_A[n].mw

I want to solve n nonlinear equations in n unknowns named lambda[1], lambda[2], ..., lambda[n]. For simplicity, I assume n=3. Each of the three equations includes matrices and dot products.

Running solve() takes forever...I assume this is because Maple is trying to find the explicit form. I am not sure, but I have reasons to believe that a solution exists.

Questions:

1. Did I set up the three equations correctly? Is there a simpler or smarter way to set up my problem?
2. Is it okay for Maple that lambda[i] sometimes appears isolated and sometimes as a component of a vector?  
3. Is there a way to keep my quantities (except the lambda vector I guess, since it containts the lambda[i] component I need to solve for) undefined/implicit while making sure Maple correctly deals with matrices and dot products?
   e.g., the solution should display terms like p^%T.R.w as such, rather than the corresponding explicit computation...

Worksheet:

Download dot_products.mw

I'm having some trouble finding how to do this: given some field with spacetime indices, say h[mu,nu] and a Lagrangian L of that field, I want to do a n+1 split to find the canonical momentum pi[~mu,~nu]. I can do the splitting fine, but it's calculating the canonical momentum that is the problem. I've tried a couple of different methods using diff and SubstituteTensorIndices but I can't get it to work: I either get the wrong answer or zero (also wrong). Anyone with any ideas or a working example of this, I'd appreciate to hear from!

The XMLTools:-Validate function can be called with a reference to a schema.

I am a bit unsure where the schema location should be, especially if I can have the .xsd file in a library location.

Have done some tests, and as far as I can see, Maple does not give any error messages if the schema is not found at all. So I'm a bit unsure how to check if the schema defintion actually is read at all.

Something has changed in the past weeks (not sure for how long) and I have not figured out what exactly.

Probably it is me doing something differently while editing an input line. Below is an example where the name data is not italic any more

Anybody else experiencing the same?

My interface seetings:

how do i replace equation in maple for istance i want to replace u_t , u_xx, and u_x in the equation "u_t=-au_xx+bu_x"

Hello to whomever this may concern. I am curently trying to estimate parameters and initial conditions for a system of ODEs. I have taken inspiration from the code given by Robert J. Lopez. I am having issues with minimizing the SSE (sum of squared errors) which I named as a procedure using the NLPSolve command from the Optimization package. It returns an error saying there are too many levels of recursion, which I do not understand where it is coming from or how to solve the issue and I was hoping to get an explination on how to solve it.

Below is the code up until the error. Any help or guidance would be greatly appreciated.

Parameter_estimation.mw

Hi, I am searching for an exercise in MapleLearn, which I would like to give to my students in the second year of a mathematics degree. The aim is to make them work only with Maple Learn during 15-20 minutes. So the exercise should be rather short. The original idea that I had was to give them the Fibonacci sequence equation to solve : F(n+2)=F(n+1)+F(n). I would like to transform the sequence using a 2x2 matrix, which is classical. Diagonalize the matrix, compute the powers and so on. This is very easy with Maple, but how can I do that with MapleLearn? I could enter the corresponding  2x2 matrix, compute its eigenvalues but that's it. I could not diagonalize it, compute its powers and so on. Maybe someone knows how to do that with MapleLearn? Else I would be happy to discover other exercises with MapleLearn. 

Apart from introducing the software to french universities, the aim is also to make a research experiment (it is an official collaboration with Maplesoft)

when i replace mu=0 in my equation mu[3] and mu[4] also become zero why ?

Download tester.mw

The local command is really horribly treated in the manual. Very difficult to figure out heads from tails.

What follows is Maple code to unprotect the metric tensor g_[], and alter the components. that part I figured out by trial and error where the manual fails to clearly describe how.

But, the problem I now have, is that the unprotected metric does not show the tensor "visual matrix" form anymore if I execute  g_[] . So it makes it all unusable.

How do I enter the unprotected and altered g_[] back into maple so it can be used to calculate the Ricci tensor, Einstein tensor and such ? I guess it will have to be protected again etc. ?

Here is the code

restart;
with(Physics);
g_[sc];
g_[];
_local(g_[]);
g_[1, 2] := 1;
g_[3, 3];
Physics:-g_[1, 1];
g_[1, 2];
Physics:-g_[1, 1];
g_[];
for x to 4 do
    for y to 4 do g_[x, y] := Physics:-g_[x, y]; end do;
end do;
g_[];

So the question is. How do you reverse a localalized metric back to being protected after you altered the metric ?

I am sure that this question must be answered. But when I do a search in the "Search" box, I always receive a page where it  is mentioned that there is an error of generating the page.  So this has been the case for more than a month, or maybe more. I don't know why this is happening.  So that is the reason why I ask a question here.

I would like to put an entry in the file maple.ini so that each time I do the command "plot", the size of the plot in the document will be a size=[300,300] in pixels.  That is supposed to give a plot of 8 cm by 8 cm.  So when I print the document, which will be the size of the plot on the printed page.  I want to do that because if I do not modify the size of the plot by default in the document, it takes up too much space in the page.  I want to do it in maple.ini so I don't have to do it manually each time I plot a function.

Thank you in advance for your help.