acer

32333 Reputation

29 Badges

19 years, 318 days
Ontario, Canada

Social Networks and Content at Maplesoft.com

MaplePrimes Activity


These are answers submitted by acer

Do either of these get the kind of effect that you want in your Maple 13, with exact integer multiples of Pi/2 as the displayed tickmarks?

plot(sin(x), x=-2*Pi..2*Pi,
     axis[1]=[tickmarks=[seq(i/2*Pi=i/2*Pi,i=-4..4)]]);

plot(sin(x), x=-2*Pi..2*Pi,
     xtickmarks=[seq(i/2*Pi=i/2*Pi,i=-4..4)]);

The result of calling the ImageTools:-Read command is an m-by-n-by-3 Array, where the three layers are the red, green, and blue components of the pixel colors.

In the code below, you don't necessarily have to wrap the extracted layers with calls to Matrix as I did, ie. you could also just leave them as three m-by-n Arrays.

You also don't need to rescale; I only did that to make the example fit nicer in the page.

note: the embedded images look cleaner in the actual Maple GUI. This forum site doesn't render them as nicely.

restart;

with(ImageTools):

origimg := Read(cat(kernelopts(datadir),"/excavator.jpg")):

img := Scale(origimg, 0.5):

Embed(img);

imgR := Matrix(img[..,..,1]):  # red layer
imgG := Matrix(img[..,..,2]):  # green layer
imgB := Matrix(img[..,..,3]):  # blue layer

Embed(imgR);

Embed(imgG);

Embed(imgB);

 

image_rgb.mw

Do you care whether there are other roots outside lambda=-1..1, eg. approximately lambda=1.163 and lambda=-1.332?

What kind of evidence would "confirm" matters acceptably to you?

You haven't shown how the expression was constructed, so we cannot know whether rounding or other numeric error occurred, and whether the floating-point coefficients within it are adequately accurate.

restart

Digits := 16

P := -(9958.466892*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+2.439889255))*(-0.1557978257e-4*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.261007e-4*k-0.2660838513e-4*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k-4.82063*10^(-11)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^5+9.4151*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)+8.9899*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)+8.9599*10^(-6)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)-7.64058733*10^(-7)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^4+4.55915*10^(-6)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^3+2.83*10^(-16)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^8+0.2699913289e-4*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k-0.1833461551e-4*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda+4.534365311*10^(-11)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^6+4.611637585*10^(-6)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^3-0.1833342214e-4*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*lambda-2.26*10^(-15)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^7-3.056762083*10^(-6)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^3-4.54*10^(-11)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^6-4.610017127*10^(-6)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^3+7.19049*10^(-11)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^5+6.110608393*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)-1.519459*10^(-15)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^7-4.605558319*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^3-1.519459*10^(-15)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^7+1.14531*10^(-6)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^4+1.150803103*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^4-1.150701960*10^(-6)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^4+2.83*10^(-16)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^8+2.29*10^(-15)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^7-7.2*10^(-11)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^5-1.805990298*10^(-11)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^6-0.2642338092e-4*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*k-6.11292*10^(-6)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)+0.1981472958e-3*lambda^3-0.1674000840e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+4.607967783*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^3+1.445217*10^(-10)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^5-1.14560*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^4+1.140719237*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^4-2.723097*10^(-11)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^6+1.899324*10^(-16)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^8+3.055413*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^3+1.899324*10^(-16)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^8-3.010540298*10^(-11)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^6+2.72995*10^(-11)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^6+1.14719*10^(-6)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^4-2.16324*10^(-10)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^5-0.158580e-4*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-7.637931745*10^(-7)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^4+3.055990782*10^(-6)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^3-2.168014321*10^(-10)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^5-3.054641904*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^3+2.83*10^(-16)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^8-7.2367*10^(-11)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^5-2.86*10^(-16)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^8+1.899324*10^(-16)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^8+2.83*10^(-16)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^8-1.519459*10^(-15)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^7+0.183311e-4*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda-0.16e-4*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.1069489149e-4*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-2.86*10^(-16)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^8-1.445703114*10^(-10)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^5+0.2875578036e-4*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)-0.1069507987e-4*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-1.144560151*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^4-4.48946*10^(-11)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^6+2.29*10^(-15)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^7-0.2565264181e-4+2.169902*10^(-10)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^5-0.835512256e-4*lambda^2+3.012211408*10^(-11)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^6-0.1910578434e-3*lambda^4-8.931240077*10^(-6)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)-9.3922*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)+0.106924e-4*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-1.14257*10^(-6)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^4+0.3073879707e-4*lambda+1.899324*10^(-16)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^8+4.555659255*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^3-9.0*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)+0.1650524630e-4*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-2.26342*10^(-15)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^7-9.3627*10^(-6)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)-6.10984*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)+7.64564268*10^(-7)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^4+0.1650484496e-4*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.16e-4*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-2.86369*10^(-16)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^8+2.69309794*10^(-11)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^6+4.81577*10^(-11)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^5-2.26*10^(-15)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^7+1.807661*10^(-11)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^6-2.86369*10^(-16)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^8-2.687022860*10^(-11)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^6+4.49704*10^(-11)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^6+0.663330427e-4*lambda^5+7.632879155*10^(-7)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^4+0.106975e-4*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+7.28416*10^(-11)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^5+6.11214955*10^(-6)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)-0.2863334102e-4*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)-1.519459*10^(-15)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*lambda*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^7+2.171377*10^(-10)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^5+0.2841557560e-4*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)-4.555918*10^(-6)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^3-4.559112439*10^(-6)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^3+2.29495*10^(-15)*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^7+2.29495*10^(-15)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^7-2.26342*10^(-15)*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^7+0.155261e-4*k*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2)/((0.6307162107e-4*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.2522864843e-3*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)+0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-7.999243141*exp(0.1576790527e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-0.4450487932e-3*lambda^5+0.1300695240e-2*lambda^4-0.1345488383e-2*lambda^3+0.5598667540e-3*lambda^2-0.8455621308e-4*lambda+0.1614703348e-3)-0.1780195173e-2*lambda^5+0.5202780960e-2*lambda^4-0.5381953532e-2*lambda^3+0.2239467016e-2*lambda^2-0.3382248522e-3*lambda+8.000645881)*((7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-28.22497888*lambda^5+82.49004656*lambda^4-85.33082616*lambda^3+35.50672993*lambda^2-5.362552072*lambda+10.24044298)*(0.6307162107e-4*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2-1.999873857*exp(0.6307162107e-4*(7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+0.1261432421e-3)+2.000126143)*((7.056244720*lambda^5-20.62251164*lambda^4+21.33270654*lambda^3-8.876682482*lambda^2+1.340638018*lambda+.4398892548)^2+2))

newP:=eval(P,[k=0.1]):

plot([newP, 0], lambda = -.34 .. -.32, color = [red, blue], discont = true, view = -0.3e12 .. 0.1e12, size = [700, 200], axes = box)

fsolve(newP, lambda = -1 .. 1, maxsols = 3)

-.3295432487292467, -.3336668750890077

plot([newP, 0], lambda = -1 .. -.3, discont = true, color = [red, blue], view = -0.3e12 .. 0.3e12, size = [700, 200], axes = box)

plot([newP, 0], lambda = -1 .. 0, discont = true, color = [red, blue], view = -0.3e16 .. 0.3e16, size = [700, 200], axes = box)

plot([newP, 0], lambda = -1 .. 2, discont = true, color = [red, blue], view = -0.3*10^16 .. 0.3*10^16, size = [700, 200], axes = box);

plot([newP, 0], lambda = 1 .. 2, discont = true, color = [red, blue], view = -0.3*10^15 .. 0.3*10^15, size = [700, 200], axes = box);

fsolve(newP, lambda = 1 .. 2, maxsols = 3);

1.162887568761162

Download Help_ac.mw

From your description, you could use regular Matrix indexing and in-place assignment, on a copy of the original.

Eg, for to copy column i into column k,
    M[..,k]:=M[..,i]:

And, in detail,

M := Matrix(5,5,(i,j)->i+j);

Matrix(5, 5, {(1, 1) = 2, (1, 2) = 3, (1, 3) = 4, (1, 4) = 5, (1, 5) = 6, (2, 1) = 3, (2, 2) = 4, (2, 3) = 5, (2, 4) = 6, (2, 5) = 7, (3, 1) = 4, (3, 2) = 5, (3, 3) = 6, (3, 4) = 7, (3, 5) = 8, (4, 1) = 5, (4, 2) = 6, (4, 3) = 7, (4, 4) = 8, (4, 5) = 9, (5, 1) = 6, (5, 2) = 7, (5, 3) = 8, (5, 4) = 9, (5, 5) = 10})

N:=copy(M):
# now copy column 5 into column 2
N[..,2]:=N[..,5]:

N;

Matrix(5, 5, {(1, 1) = 2, (1, 2) = 6, (1, 3) = 4, (1, 4) = 5, (1, 5) = 6, (2, 1) = 3, (2, 2) = 7, (2, 3) = 5, (2, 4) = 6, (2, 5) = 7, (3, 1) = 4, (3, 2) = 8, (3, 3) = 6, (3, 4) = 7, (3, 5) = 8, (4, 1) = 5, (4, 2) = 9, (4, 3) = 7, (4, 4) = 8, (4, 5) = 9, (5, 1) = 6, (5, 2) = 10, (5, 3) = 8, (5, 4) = 9, (5, 5) = 10})

P:=copy(M):
# now copy row 1 into row 3
P[3,..]:=P[1,..]:

P;

Matrix(5, 5, {(1, 1) = 2, (1, 2) = 3, (1, 3) = 4, (1, 4) = 5, (1, 5) = 6, (2, 1) = 3, (2, 2) = 4, (2, 3) = 5, (2, 4) = 6, (2, 5) = 7, (3, 1) = 2, (3, 2) = 3, (3, 3) = 4, (3, 4) = 5, (3, 5) = 6, (4, 1) = 5, (4, 2) = 6, (4, 3) = 7, (4, 4) = 8, (4, 5) = 9, (5, 1) = 6, (5, 2) = 7, (5, 3) = 8, (5, 4) = 9, (5, 5) = 10})

 

Download rowcol_copyinto.mw

If your Matrices have a hardware datatype such as float[8] and are very large, and you want high efficiency, you could also use the ArrayTools:-BlockCopy command.

restart;

TR_turns_ratio := N = n2 / n1;

N = n2/n1

Sec_Z2prim := Z1 = Z2*n1^2/n2^2;

Z1 = Z2*n1^2/n2^2

Desired := Z1 = Z2*(1/N)^2;

Z1 = Z2/N^2

simplify(Sec_Z2prim, {(rhs=lhs)(TR_turns_ratio)});

Z1 = Z2/N^2

 

Download Q20201014_ac.mw

The very first line of the Description of the Help page for Topic error refers to it as the "error statement".

There are other kinds of statement, for example the selection (conditional) statement and the repetition statement. Those also do not require brackets in that they are not called like functions (though delimiting brackets to establish grouping or operator precedence may be used).

There is also an older (deprecated) ERROR function, which is called with brackets denoting the functional application.

So I disagree with your claims, citing the above as evidence. You don't call error with a functional application because it is offered as a statement rather than a functional call. And there are indeed other kinds of statements which also can be made without a functional call, and which also do not always require bracketing (either as delimiters or to denote a functional call).

[edit] You wrote that the syntax for error is, "...different from all other Maple functions". That's because error is not called like a function, so it doesn't make sense to compare it with "other" functions. The brackets in your second example don't change the nature of the statement.

Perhaps it would help to think of error as a language keyword.

You could consider the error statement and the (old, deprecated) ERROR function along with the return statement and the (old, deprecated) RETURN function.

You can save a few characters with,

    ['A'[..,i]$i=1..4]

If you want a re-usable procedure (for Matrices of general size) then you can do as follows (this too is shorter than using seq, and so is terser than Kitonum's suggestion).

F:=A->['A[..,i]'$i=1..op([1,2],A)]:

A:=Matrix([[1,2,1,3,2],[3,4,9,0,7],[2,3,5,1,8],[2,2,8,-3,5]]):

F(A);

[Vector(4, {(1) = 1, (2) = 3, (3) = 2, (4) = 2}), Vector(4, {(1) = 2, (2) = 4, (3) = 3, (4) = 2}), Vector(4, {(1) = 1, (2) = 9, (3) = 5, (4) = 8}), Vector(4, {(1) = 3, (2) = 0, (3) = 1, (4) = -3}), Vector(4, {(1) = 2, (2) = 7, (3) = 8, (4) = 5})]

Download cols_list_proc.mw

You wrote, "...i assign stepsize to have accurate results". That is untrue -- a small fixed step-size does not -- in itself -- guarantee better accuracy.

If you are going to do something as forcing and, in my opinion, unjustified as fix a very small step-size then you may well have to raise the limit on functional evaluations.

Your call to plot of GAM(tau) suppresses the warnings about exceeding the maxfun value. You could do better here to instead use the plots:-odeplot command, which as seen below would have informed you through a warning of the problem stemming from your forced small step-size, even without raising infolevel.

But even calling GAM for tau values further toward the right end-point can show you that problem. It makes sense to test your solution, when you encounter difficulties.

restart:

with(DEtools):

#constants
a0 := 10:sigma := 100: theta := (1/4)*Pi:L := 80000:omegace:=0:
#Differential Equations
Eq1:= diff(Rhoy(tau),tau)=-gam(tau)*(Z(tau)/(L))*Y(tau)+sin(theta)*(((1/2)*a0*exp(xi(tau)-400)/sigma^2)*diff(xi(tau),tau))-(omegace/omega)*Rhoz(tau):
Eq2:=diff(Rhoz(tau),tau)=(((1/2)*a0*exp(xi(tau)-400)/sigma^2)*cos(theta)^2+Rhoy(tau)*sin(theta))*((1/2)*a0*exp(xi(tau)-400)/sigma^2)*(1)+(omegace/omega)*Rhoy(tau):
Eq3:=diff(Y(tau),tau)=Rhoy(tau):
Eq4:=diff(Z(tau),tau)=Rhoz(tau):
Eq5:=diff(xi(tau),tau)=gam(tau)-Rhoz(tau):
Eq6:=diff(gam(tau), tau) = (1/4)*(2*a0^2*(exp(xi(tau)-400))^2*cos(theta)^2*(diff(xi(tau), tau))/sigma^4+8*Rhoy(tau)*(diff(Rhoy(tau), tau))+8*Rhoz(tau)*(diff(Rhoz(tau), tau)))/sqrt(4+a0^2*(exp(xi(tau)-400))^2*cos(theta)^2/sigma^4+4*Rhoy(tau)^2+4*Rhoz(tau)^2):
sys:=seq(Eq||i,i=1..6):
#initial conditions
inits:=xi(0)=400,gam(0)=1,Z(0)=0,Y(0)=0,Rhoz(0)=0,Rhoy(0)=0:
#sol:=dsolve([sys,inits]);
sol:=dsolve([sys,inits],numeric,output=listprocedure):
GAM:=eval(gam(tau),sol):
XI:=eval(xi(tau),sol):
plot([GAM(tau)/51],tau=0..10,axes=boxed,gridlines,color=[blue,red]);
#GAM(tau) is between 0 to 1.2

sol1:=dsolve([sys,inits],numeric,stepsize=1e-5,output=listprocedure):
GAM:=eval(gam(tau),sol1):
XI:=eval(xi(tau),sol1):

GAM(1.7);

Error, (in GAM) cannot evaluate the solution further right of 0.50000000e-1, maxfun limit exceeded (see ?dsolve,maxfun for details)

infolevel[dsolve]:=2;
plot([GAM(tau)/51],tau=0..10,axes=boxed,gridlines,color=[blue,red]);
infolevel[dsolve]:=0;

2

dsolve/numeric/SC/IVPrun: error - exceeded maxfun limit

dsolve/numeric/SC/IVPrun: to go farther, restart with maxfun larger than  30000

0

plots:-odeplot(sol1,[tau,GAM(tau)/51],tau=0..10,axes=boxed,gridlines,color=[blue,red]);

Warning, cannot evaluate the solution further right of .50000000e-1, maxfun limit exceeded (see ?dsolve,maxfun for details)

Error, (in GAM) cannot evaluate the solution further right of 0.50000000e-1, maxfun limit exceeded (see ?dsolve,maxfun for details)

sol2:=dsolve([sys,inits],numeric,stepsize=1e-5,output=listprocedure,maxfun=10^8):
GAM2:=eval(gam(tau),sol2):
XI2:=eval(xi(tau),sol2):
plot([GAM2(tau)/51],tau=0..10,axes=boxed,gridlines,color=[blue,red]);

 

Download dsolve_stepsize.mw

note: There are other reasons to use plots:-odeplot. It contains some extra smarts to try and use independent variable values dictated in part by the solver, as opposed to just calling plot and having its adaptive algorithm try and pepper the space as it wants. Just my opinion.

You have mentioned doing the "operation in reverse by hand". If that entails applying tan both sides of the equation (after isolating) then note that is not generally valid.

It does not following that A=B just because tan(A)=tan(B).

eq :=-Pi/2 - arctan(25*x) - Pi = - 2*Pi/3;

-(3/2)*Pi-arctan(25*x) = -(2/3)*Pi

isolate(eq, arctan(25*x));

arctan(25*x) = -(5/6)*Pi

map(tan, %);  # not ok!

25*x = (1/3)*3^(1/2)

%/25;

x = (1/75)*3^(1/2)

 

Is this the kind of thing you are trying to accomplish?

Note that (the way the conditional if..then inside your procedure lambda22sol is set up), if you call procedure lambda22sol a second time without unassigning __old_a then it will return NULL. I suspect that is why you got that error message, because you were calling it twice and so the middle column of matrix1 from the call lambda22sol(0.9) was NULL.

restart;

data:=ExcelTools:-Import(cat(kernelopts(homedir),"/mapleprimes/","data.xlsx")):

with(LinearAlgebra):
lambdaX:=Column(data,1):
PK1X:=Column(data,2):


tensF:=Matrix([[lambda11,0,0],[0,lambda22,0],[0,0,lambda22]]):
tensFbar:=Matrix([[(lambda11/lambda22)^(2/3),0,0],[0,1/sqrt((lambda11/lambda22)^(2/3)),0],[0,0,1/sqrt((lambda11/lambda22)^(2/3))]]):
tensBbar:=Multiply(tensFbar,Transpose(tensFbar)):

kappa:=100:
tensPK:=Multiply(Transpose(MatrixInverse(tensF)),(2/Determinant(tensF))*a*(tensBbar-(1/3)*Trace(tensBbar)*Matrix(3,shape=identity))+kappa*(Determinant(tensF)-1)*Matrix(3,shape=identity)):
PK1:=tensPK[1,1]:
eq:=0=tensPK[2,2]:

lambda22sol:=proc(aValue)
   global __old_a;
   local res, i, eq1, sol1, lambda22Est;
   if not [aValue]::list(numeric) then
      return 'procname'(args);
   end if;
   lambda22Est:=Vector(1..RowDimension(lambdaX)):
   eq1:=Array(1..RowDimension(lambdaX)):
   if __old_a<>aValue then
      __old_a:= aValue;
     for i from 1 to RowDimension(lambdaX) do
             eq1[i]:=eval(eq,[a=aValue,lambda11=lambdaX[i]]):
                sol1:=[fsolve(eq1[i], lambda22)];
                lambda22Est[i]:=sol1[1]:
        end do:
        res:=lambda22Est;
   end if;
end proc:

__old_a:='__old_a':
LL:=lambda22sol(0.9):
matrix1:=<lambdaX|LL|PK1X>:

DS1:=CodeTools:-Usage(
        DirectSearch:-DataFit(abs(PK1),matrix1,[lambda11,lambda22]));
res2:=eval(PK1,DS1[2]):

memory used=9.71MiB, alloc change=0 bytes, cpu time=118.00ms, real time=118.00ms, gc time=0ns

[HFloat(2.866379619163419), [a = HFloat(-0.4500000222184452)], 28]

plots:-display(
  plot3d(eval(PK1,DS1[2]),lambda11=min(lambdaX)..max(lambdaX),
                            lambda22=0.5..1.5,
         style=surface, transparency=0.5),
  plots:-pointplot3d(matrix1,color=red,thickness=3),
  view=min(PK1X)..max(PK1X)
);

 

Download lambda22sol.mw

restart;

H:=Int(simplify(1/(x-1)+sum((k+1)*x^k,k=0..2018)/sum(x^k,k=0..2019)),x);

Int(2020*x^2019/(x^2020-1), x)

eval(value(IntegrationTools:-Change(H,s=x^2020,s)),s=x^2020);

ln(x^2020-1)

Download int_ex.mw

 

In a sense, that could be broken down into steps:  int_ex2.mw
There I replaced the numbers 2018 and 2019 by symbolic names, temporarily, to prevent awkward expansion. The following also works directly:

simplify(int(1/(x-1)+sum((k+1)*x^k,k=0..N)
                     /sum(x^k,k=0..N+1),x));

               ln(x^(N+2)-1)

There is a form, on the Software Change Request page (linked from the Mapleprimes top "More" tab).

(Rewritten question is now asked here.)

The axis mode is part of the generated plot structure (set altogether as the value property of the embedded component), and not a property of the embedded component.

You can add axis[2]=[mode=log] to the dataplot command.

restart;

DetAnalysisNx2:=[seq(0..2,0.1)]:

DetAnalysisDeterm2:=map(x->exp(x^2),DetAnalysisNx2):

DocumentTools:-SetProperty("DeterminantenRaumPlot1",
                           value,
                           dataplot(DetAnalysisNx2, DetAnalysisDeterm2));

DocumentTools:-SetProperty("DeterminantenRaumPlot1",
                           value,
                           dataplot(DetAnalysisNx2,DetAnalysisDeterm2,
                                    axis[2]=[mode=log]));


Download log_mode.mw

restart;

expression1 := -cos(theta)/2 + sin(theta)*sqrt(3)/2;

-(1/2)*cos(theta)+(1/2)*sin(theta)*3^(1/2)

expression3 := convert(expression1, phaseamp, theta);

-cos(theta+(1/3)*Pi)

simplify(expression1 - expression3);

0

 

Download trig_phaseamp.mw

Yes, it can be done using plottools:-transform as follows,

f,g := 1,min(3,1/x):
P:=plot(f-g,x=0..maximize(1/y,y=1..3),filled):
plottools:-transform(unapply([x,y+g],[x,y]))(P);

Of course, you might be able to see that the upper end-point of the x-range is just 1, without having to compute that from maximize(1/y,y=1..3).

And so you might also write down either of these, directly. They each produce a plot with the region shaded.

plottools:-transform((x,y)->[x,y+min(3,1/x)])(plot(1-min(3,1/x),x=0..1,filled));

plottools:-transform((x,y)->[x,y+1])(plot(min(3,1/x)-1,x=0..1,filled));
First 106 107 108 109 110 111 112 Last Page 108 of 336