Thomas Dean

125 Reputation

7 Badges

14 years, 346 days

MaplePrimes Activity


These are replies submitted by Thomas Dean

@Rouben Rostamian  

Linux, Maple 2016, 4.2GHz I7.

All I see is the cone with the minimal height cylinder.  Any ideas?

@Rouben Rostamian  

I use X with twm.  I do not use a desktop.

When an application's window is minimized, it is displayed as an icon.  This is not a maple toolbar thing.

The icon used for maple is maple2016/bin/Maple2016.png.  There is no maple2016/data/start directory.  There is a maple2016/data/start

searching the maple2016 directory tree for *.png finds 241 files.  only one file has maple in its file name, of any case, and that is maple2016/bin/Maple2016.png.

Most, if not all, the icons in the maple2016 tree appear to be for toolbars or the start page.  The largest is 75x75 pixels.

@rlopez 

The Tools/Options dialog has a setting for large icons on the toolbar.

If I start maple, choose Help, then minimize (iconize) the window, the displayed icon is very small.  Same for maple.  Start maple, then minimize (iconize) the window, the displayed icon is very small. 

I think the help icon is built into maple help??

The maple icon is maple2016/bin/Maple2016.png.    If I could find a larger version of that icon, it would make my use easier.

I do not think the polynomial you specify, with all coefficients positive, has a positive root.  Assuming positive does not include zero or complex.

restart
assume(a > 0, b > 0, c > 0, b^2 >= 4*a*c)
eqn := a*x^2+b*x+c = 0
soln := solve(eqn, x)
for s in soln do
  if verify(s, 0, greater_than) then
    print("Greater than", s)
  else
    print("Negative", s)
  end if
end do

 

@Preben Alsholm The NASA paper,

https://ntrs.nasa.gov/archive/nasa/casi.ntrs.nasa.gov/19690021375.pdf

was aimed at deriving constants for use in RK methods.  How the 'exact solution' was determined was not mentioned.  The problem I was looking at is given on page 38. 

A second PDE example if given on page 40 of the paper.  But, pdetest does not verify that this is a solution...

Tom Dean

Use 'create a new document block or enclose the current section in one' followed by 'insert a maple prompt after the current execution group'

Sorry for the noise.

Tom Dean

@Carl Love I am on x64 Linux. (core i7, OC 4.2GHz, 16G RAM)

I have default axes names defined in .mapleinit.

I use emacs as my interface to command line maple.  So, the double underscore remains a double underscore.  With xmaple,  the double underscore produces subscript, visually.  This should be a keyboard shortcut.  But, in xmaple, using

p__1 - p[1];

does not result in zero.  I wonder why, since they are visually the same.

p__1 := 7; p[1];

Shows that things that are visually the same are not.

This is the same with command line maple.

@Carl Love Old UNIX habit...

(a,b) := op(calcView(relBrgLinePlot,relTgtPositPlot,relTgtLinePlot));
                    a, b := 0. .. 95., -61.58179461 .. 16.

viewArg := [floor(op(1,a))-10..ceil(op(2,a))+10,
            floor(op(1,b))-10..ceil(op(2,b))+10];
                      viewArg := [-10 .. 105, -72 .. 26]

display([relBrgLinePlot,relTgtPositPlot,relTgtLinePlot],
        title="Relative Motion",
        labels=["Miles, +North","Miles +East"],
        labeldirections=["horizontal","vertical"],
        gridlines = true,
        axes=boxed,
        view=viewArg);

calcView := proc(itmList)
local v, x, y, itm, minx, maxx, miny, maxy;
local absminx, absmaxx, absminy, absmaxy, thisitm;
    absminx := 10000;
    absmaxx := -10000;
    absminy := 10000;
    absmaxy := -10000;
    for itm in itmList do
        v := op(-1,itm):
        x := op(1,v):
        y := op(2,v):
        (minx, maxx, miny, maxy) := (op(1,x), op(2,x), op(1,y), op(2,y));
        ##print(minx, maxx, miny, maxy):
        absminx := min(minx, absminx);
        absmaxx := max(maxx, absmaxx);
        absminy := min(miny, absminy);
        absmaxy := max(maxy, absmaxy);
    end do;
    [floor(absminx)-10, ceil(absmaxx)+10,\
     floor(absminy)-10, ceil(absmaxy)+10]:
end proc:

> calcView([relBrgLinePlot,relTgtPositPlot,relTgtLinePlot]);
                              [-10, 105, -72, 26]

> calcView([geoSensPositPlot,geoSensLinePlot,\
            geoBrgLinePlot,geoTgtPositPlot,geoTgtLinePLot]);
                              [-10, 105, -10, 98]

@Mac Dude Thanks, I use Maple2016 on Linux x64, with plotsetup(x11), no gridlines.

Tom Dean

@Markiyan Hirnyk With maple2016, I get equal values, at least to the number of digits displayed.

J:= Int(I*sqrt((R*exp(I*theta)+1)/(R*exp(I*theta)-a)), theta= 0..Pi) ;

> K := evalf(eval(J, [R = 1/2, a = 1/4]));                                     
                       K := 2.677293769 + 3.506183701 I

> int(eval(I*sqrt((R*exp(I*theta)+1)/(R*exp(I*theta)-a)), [R = .5, a = .25]), theta = 0 .. Pi,numeric);
                          2.677293769 + 3.506183701 I

Tom Dean

@Carl Love Thanks. Your first post on the plot m vs y thread was better yet because of more hardware use.

@Carl Love Thanks, I learned some things.

@Carl Love I see two ways of the package function long form.  I think most help uses [].

I looked at Statistics and got interested, but, maybe confused?

restart;
with(Statistics):
y := int(1/(-0.4016e-1*m^(2/3)-0.211e-3*m^(5/3)), m);
## fix complex values
f := (x) -> abs(evalf(subs(m=x,y)));

n := 500;

## mean 1, std dev 0.5
X := RandomVariable(Normal(1, .5)):
M := Sample(X,n):
Y := [seq(f(M[idx]),idx=1..n)]:

A:=[seq(idx,idx=1..n)]:
plot(A,M,style=point,symbol= circle, symbolsize= 1,title="Values of M");
plot(A,Y,style=point,symbol= circle, symbolsize= 1,title="Values of Y");
plot(Y,M,style=point,symbol= circle, symbolsize= 1,title="M vs Y");
DataSummary(M);DataSummary(Y);
Data:=Matrix(n,2,[seq([Y[idx],M[idx]][],idx=1..n)]);

plot(
     [[y, m, m= 0..2], Data], labels= ['y', m],
     style= [line, point], color= [red, black],
     symbol= point, symbolsize= 1
);


@Carl Love What did you use to generate the data.  I have been looking at the Statistics package for an hour, with little success.

Tom Dean

1 2 3 4 Page 3 of 4