Christopher2222

MaplePrimes Activity


These are answers submitted by Christopher2222

CMaple works indeed.  Which means the problem is directly related to the startup GUI interface.  Not that I need it anymore but is it possible to get the GUI interface working?

I don't expect seemless backward functionality, just wondering if someone had a solution and knows a workaround.

I did come across a possible explanation here http://lists.adeptscience.co.uk/mug/mug_Nov_2001/thid_148adb52188b8660cca7bedb11399218.html (the old MUG maple user group archive) which led me to this:

Question:Since I changed to a new PC with an Intel Pentium III 450 MHz CPU and 128 MBytes of RAM, I cannot start start R3 in Windows NT 4.0/SP 3 any longer. I get the following error message:

 

I tried to start R3 via the old program manager, the start/run menu of the NT task bar and also via the DOS shell.

Answer: At first I thought that the 128 MBytes RAM were the culprit. It turned out that quite obviously the PC is too fast for R3. This only matters during the startup phase of R3, after that I have not yet found any problems.

Andre Poenitz, TU Chemnitz, could provide an answer to why R3 does not start: `... As far as I can remember, the culprit is a loop that on fast CPUs is run in zero time units, and a successive division by these zero units.`

During startup of R3, the PC must be slowed down by running another application that keeps the CPU quite busy. So I wrote two DOS batch files that initiate a process, e.g. a do od-loop in R5 for some seconds and after one or two seconds - while the do od-loop is still running - start R3 through another process. Start this workaround by executing the batch file in a shell, the program manager, or by a link on the desktop.

 

-------- begin r3.bat --------------------------------------------

rem start a separate process and run a do od loop in R5 for
rem some seconds
start r3-2.bat
rem
rem call the QBASIC program sleep.bas that waits for one second
rem (it does not keep CPU busy, so it cannot be used instead 
rem of the do od-loop). This makes sure that R3 is started while 
rem the do od-loop is already running.
qbasic /run c:\tools\batch\sleep.bas
rem
rem start R3
start /b c:\maplev3\bin\wmaple53.exe

-------- end r3.bat ----------------------------------------------

-------- begin r3-2.bat ------------------------------------------

rem runs R5 command line version with a do od loop and exits 
rem thereafter
e:\maplev5\bin.wnt\cmaple -b e:\maplev5\lib -c"to 2000000 do od:" -cquit
exit

-------- end r3-2.bat --------------------------------------------

-------- begin sleep.bas -----------------------------------------

t = TIMER
WHILE TIMER - t < 1
WEND
SYSTEM

-------- end sleep.bas -------------------------------------------

You may need to adapt the stop value of the do od-loop and the sleep period (see file) to the characteristics of your PC.

This works in 90+ percent at the first attempt to start R3.

===========================================================================

 

Didn't have qbasic (that's old school), but didn't think that would actually work in the end anyway so I didn't try it.  I thought maybe a cleaner solution existed.  Just thinking now, ironically, maybe using a newer version of Maple to keep the processor busy might work to open an older version. 

Vitualizing would work nicely actually, I favour VMWare for that. 

Regarding the application center holding code that does not pass quality assurance (not sure what you mean by that) - The app center are applications submitted by people like you and I for others to enjoy wether the code is of quality or not - I should not think it should be rejected because it has not passed some quality assurance test.  What do you mean by quality assurance anyway?

 

**edit added** I thought I had to go back all the way to MapleV - Turns out I could go to Maple 7 which I already have installed on an old laptop with Windows 98 I dug out of the closet.   Regardless would there be a solution to installing Maple V on newer computers?  Maple 4 is just way too far back, it was 5 when things started to get interesting.  In fact nothing exists in the application center beyond Maple V anyways.

This application at the maplesoft application center might help Heat Exchanger and cooling liquids - http://www.maplesoft.com/applications/view.aspx?SID=6684

**edit add ** - Sorry unfortunately app center says this app is not found, I have it here Heat_Exchanger_and_c.mw

 

Another application of interest is Heat transfer through multilayered walls in the application center - (Although critical information is missing on newer Maple versions using the standard GUI, I have updated the worksheet here so it is displayed properly with newer Maple versions)  but it displays fine in Classic Maple.

 

Heat Transfer Through a Multilayer Wall

© 1998 Waterloo Maple Inc.

 

NOTE: This worksheet demonstrates how MapleV can be used in a problem of the heat transfer through a multilayer wall.

Introduction

 

In this worksheet we calculate the heat transfer through a multilayer wall.

 

 

                                                                                              

restart:

Description of the Problem

 

An exterior wall of a cold store may be approximated by a 0.5m layer of common brick , followed by a 0.1m layer of rock-wool insulation, and an inner 0.05m layer of gypsum plaster. The outside ambient fluid temperature T[outside] is 25°C, the inside ambient fluid temperature T[inside] is -5°C. The outside convection heat transfer coefficient is  alpha[outside], the inside convection heat transfer coefficient is  alpha[inside]. In this worksheet the heat loss per unit area is found along with the layer temperatures. We plot the temperature distribution in the wall.

Solution

 

Consider the heat flow to the inside:

Q_inside := alpha[inside]*A*(T[inside]-T[1])

Q_inside := alpha[inside]*A*(T[inside]-T[1])

(3.1)

The heat flow in the wall is described by:

Q_i := lambda[i]*A*(T[i]-T[i+1])/d[i];

Q_i := lambda[i]*A*(T[i]-T[i+1])/d[i]

(3.2)

The heat flow from the outer fluid:

Q_outside := alpha[outside]*A*(T[4]-T[outside])

Q_outside := alpha[outside]*A*(T[4]-T[outside])

(3.3)

Therefore the heat flow through a multilayered wall is given by the equation:

eq := (T[inside]-T[outside])/(1/(alpha[inside]*A)+sum(d[i]/(lambda[i]*A), i = 1 .. n)+1/(alpha[outside]*A))

eq := (T[inside]-T[outside])/(1/(alpha[inside]*A)+sum(d[i]/(lambda[i]*A), i = 1 .. n)+1/(alpha[outside]*A))

(3.4)

Definition of the parameters of the problem

 

The thermal conductivity of the three layers lambda in [W/(m*K)], the thickness of the three layers in m, the inside temperature, the outside temperature, the inside convection heat transfer coefficient alpha[inside] and the outside convection heat transfer coefficient alpha[outside] in [W/(m^2*K)] are:

lambda := [1, 0.4e-1, .75]; d := [0.5e-1, .1, .5]; T[inside] := -5; T[outside] := 25; alpha[inside] := 7; alpha[outside] := 20

lambda := [1, 0.4e-1, .75]

d := [0.5e-1, .1, .5]

T[inside] := -5

T[outside] := 25

alpha[inside] := 7

alpha[outside] := 20

(3.1.1)

A := 1; n := 3

A := 1

n := 3

(3.1.2)

Computation of the heat flow and the temperatures

 

The heat heat flow per unit area A through the multilayered wall due to convection is calculated and assigned to q:

q := eq

q := -8.798882680

(3.2.1)

Substituting this into the first equation we get the surface temperatures of the inner layers in °C.

T[1] := solve(Q_inside = q, T[1])

T[1] := -3.743016760

(3.2.2)

Substituting the calculated values recursively into the second equations we get the temperature at the connection of the layers and at the surface of the outer layer in °C.

for i to n do T[i+1] := solve(Q_i = q, T[i+1]) end do

T[2] := -3.303072626

T[3] := 18.69413408

T[4] := 24.56005587

(3.2.3)

Graphical display of the solution

 

Graphical display of  the temperature distribution in the wall as well as the inside and outside ambient fluid temperatures.

with(plottools): with(plots):

boundary:=[0]:
for i from 1 to n do boundary:=[op(boundary),boundary[i]+d[i]]: od:
pl1:=plot([[0,T[inside]],[boundary[n+1],T[outside]]],
          style=point, symbol=circle, color=green):
pl2:=plot([seq([boundary[i],T[i]],i=1..n+1)],style=line, thickness=2):
pl3 := seq(line([boundary[i],-6], [boundary[i],26], color=blue,              linestyle=3),i=1..n+1):
pl4 := textplot([ seq([boundary[i]/2,10, convert(i-1,string)],
      i=2..n+1)], color=blue):
plots[display](pl1,pl2,pl3,pl4,
      title="Temperature Distribution in Multilayered Wall",
      labels=["       Distance from Inner Wall [m]","Temp. [°C] "]);

 

 

 

Download Heat_transfer_throug.mws

If you mean Maple, navigate to it's folder go to the uninstall folder and run the uninstall application. 

If it is neither, then it is some other software.  You mention it's a new i-mac in which case Maple would not be installed.  However if you bought it from someonelse and consider it new then it's possible the other person installed it. 

Another address to the same page is this

http://online.wsj.com/mdc/public/page/2_3024-AsianStocks_HONG_KONG.html?mod=topnav_2_3000

Remember though using ? in HTTP[Get] on older versions of Maple requires ?? to work.  However the address I show above seems to work no different than the original one you have.

 

No luck so far....

Hm, it appears HTTP[Get] is having trouble extracting the information from that page.  I cannot locate the problem. 

I can view the information when I look at the source of the webpage, so if HTTP[Get] could extract that information then all that is needed is string surgery to wean it out, but I don't know why HTTP[Get] is not getting all the information.

I see HTTP[Get] errors near the bottom of the extracted info and some try catch statements.  I'm not sure why, but I'll keep trying to figure it out with HTTP[Get] perhaps someone else has some insight?

You could include the applications center DVD in a new release version of Maple.  It would be a plus for marketing as well.  Something like "Also included - Bonus DVD - the complete application center fully updatable with the click of a button."   All of those included applications I'm sure would open some eyes.

I know I am just one voice speaking.  How would you determine if there was significant demand for it?  You would need to set up a polling question.  Mapleprimes used to have polls, so you'd have to set up a polling question on the maplesoft site or some sort of questionaire which, in my opinion, is one of the best ways to gather quick input from outside the company.

 

Post your code in the Matlab forum.  Posting code here we might help but I think generally posting in the forum you want to convert to is best.  We prefer to convert code to Maple here.  However, there is probably a lot of people in the Matlab forum who don't understand Maple code.

They are both good. Which one you should use I think depends on your situation and intentions for the software.

Matlab is stronger at large volumes of number calulations FEM etc  Maple is stronger at alebraic calculations.

Personally, without knowing exactly what you intend to use it for, I would suggest Maple.

Unless there is an ingenious way to get Maple to do it, it is not possible. 

I should submit a software change request.   However I haven't because I have made suggestions here in mapleprimes.  I will now be submitting a software change request.

I will try to figure out a way to do it in the meantime.

**edit added** software change request submitted 

Not exactly sure what you mean, maybe something like this

a := [seq(1 .. 25)]
                a := [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25]

map(modp, a, 5);
                            [1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0, 1, 2, 3, 4, 0]

This could be a way that works for you. 

a:=powerset([1,2,3])

                    [[], [1], [2], [1, 2], [3], [1, 3], [2, 3], [1, 2, 3]]

sort(map(sort, a), length)

                     [[], [1], [2], [3], [1, 2], [1, 3], [2, 3], [1, 2, 3]]

** edit ** ooops sorry looks like you already have that

resizing the plot without a mouse has been asked many times but I do not think an official software change request has been submitted for it. 

5 plots in one line can be done using Array.  Something like this

with(plots):
a:=sin(x):
b:=cos(x):
c:=x^2:
d:=x-5:
e:=x^3+x:
display(Array([a,b,c,d,e])

This link should help

http://www.mapleprimes.com/questions/125062-Play-Audio-File-From-Maple

Unfortunately I cannot replicate the converging iteration in the original problem. 

Using your method I keep getting this error instead

Error, (in pdsolve/numeric/process_PDEs) PDEs can only contain dependent variables with direct dependence on the independent variables of the problem, got {T(.22, t), T4(.22, t)}

First 22 23 24 25 26 27 28 Last Page 24 of 48