If you would like to make a change like this and have it stay for all the new blocks for this document, why don't you modify the Style that you currently have as default. For example if you default is the 2-D Math style, just go into Format>Style and modify this style. This style change will change the default of that style for as long as Maple stays open. To keep this style longer you would have to go to Format>Manage Styles to save the new style settings. Scott

For those who are looking for the file that William Fish tried to link is as follow http://www.mapleprimes.com/files/4937_Page%2087F.mw Would someone be able to scan in the plot and attach it to help in this? Also, William I tried executing the worksheet as is and got none of the errors that were included in the worksheet. If you run kernelopts(version); what is the result? Scott

You can fill the Matrix in the same fashion as you would a variable. If the Matrix is called MyMatrix, then MyMatrix[i,j] would be referring to the (i,j) position of the matrix. You could add plots to the Matrix if you do something like MyMatrix[i,j]:=plot(.....); Where you fill in the 'plot(.....)' with whatever the plot command you are doing. This would likely be placed within one or two seq() calls of for loops to iterate over the values of i and j you would like to use. Scott

You should be able to follow Georgios Kokovidis's suggestion and get this to work. Of course you would need to either have op(%) on the next line that is executed or preferably I would change your sequence so that the plot command is stored to a variable and use that variable in the op command. Scott

Although from what I can find in Maple 10 (as it is when you downloaded it), there doesn't appear to be anything that allows for this to be completed, there are some other options. Since Maple has a programming language aswell, there are probably many procedures that the many Maple users have created that will accomplish this task. As an example I googled "maple plot inequality region" and the first page link goes here. The code appears to be written by Robert Israel and can be found here. The "advisor6.zip" is what you should download. Once you have done this you can execute the following code to get what you are looking for: inequalities(x^2+y^2 <= 1, x = -2 .. 2, y = -2 .. 2); Scott

If you have Maple 11, there is a new option in the plots package for filledregions=true. The following would work if you do have Maple 11: plots:-implicitplot(x^2+y^2 = 1, x = -1 .. 1, y = -1 .. 1, filledregions = true); Scott

I don't think any question that is posted here is a distraction (unless the same question is asked too many times with the same info). Every question that is asked here gives possibilities to get some of that information from all these Maple Masters. As for Jacques's suggestion on writing a book topic, why don't you list some of the tips that you have found during your learning. I bet some of your insight would be helpful to all the new Maple users. Maple is the sort of software that there is a lot these tips people find that are useful. Congrats on getting 80. Scott

I think this would be a good point to send to Maplesoft Technical Support so that this can be investigated further. Scott

I know someone is going to point out a better way of coding this but this should do what you are looking for AllPermutations2 := proc (s::string) local p, temp; temp := seq(combinat:-permute(convert(s, list), p), p = 1 .. length(s)); map(i -> cat(op(i)) end proc, map(op, [temp])); end proc: Scott

Looking at the helppage for NthWord, it says that the letters cannot repeat and it does seem to do a bit different operation from what I believe the user is looking for. A nice code that seems to do exactly what the user wants can be found on the StringTools,Permute page. The procedure that they have there is as follows: AllPermutations := proc( s::string ) local p; seq( StringTools:-Permute( s, p ), p = combinat[ 'permute' ]( length( s ) ) ) end proc: This has the advantage that the string can be entered and not need to be broken into a list. One thing that you will notice is that this is a permutation so if the string "ABA" is entered, then two "ABA" results will be returned. The following call would remove the repititions ListTools[MakeUnique]([AllPermutations("ABA")]); Scott

I am sorry for that. I should have caught that one. Thanks Doug. Scott

Here is an example of what I believe Jacques suggested. restart; with(stats): Digits := 14: out1 := table(): count := 1: N := 4: L := 0.2e-2: beta := .85: beta := .85: cost := Vector([2000, 100, 700, 1000]): lambda := Vector([.2, .6, .3, .7]): Lambda := add(lambda[i], i = 1 .. N): DFR := (s)->add(lambda[i]*add((L*lambda[i])^k*exp(-L*lambda[i])/factorial(k), k = 0 .. s[i]-1), i = 1 .. N)/Lambda: IN := Matrix(N, N, shape = identity): S := Vector[row](N): maxDFR := DFR(S): while maxDFR < beta do prevDFR := maxDFR: maxdelta := 0: for k to N do Sk := S+IN[k, 1 .. N]: DFRk := DFR(Sk): delta := (DFRk-prevDFR)/cost[k]: if delta > maxdelta then maxdelta := delta: maxDFR := DFRk: Snxt := Sk end if: end do: if maxdelta = 0 then print("cannot increase"); break; end if: S := Snxt: Inv := S.cost: printf("S = %g\n", S); printf("SFR = %.14g\n", maxDFR); printf("I = %g\n\n", Inv); out1[count] := plots:-pointplot([Inv, maxDFR]): count := count+1: end do: When you want to plot you would run a line like this plots:-display(convert(out1, list)); This gives you the flexibility when you don't know how many plots you will get. I am not sure if this is the most efficient of the code but at least this should give you a start. Scott

A nice easy way if you want to use the implicit plot procedure, you can try setting shading to either the option zhue, zgrayscale, or z. This saves the need to make sure that the numbers for the color stay between 0 and 1 for all the z values. Scott

There are two possibilities of either creating a list of plots or list of points in the algorithm and call them later. For the list of plots option you could add the following line near the beginning: > out1:=[]: Just before the last 'end do:' line you could add the following line: out1 := [op(out1), plots:-pointplot([Inv, maxDFR])]; This will allow you to have a plot in the end stored in out1 with all the points on one plot (by executing plots:-display(out1) ) or a singular point (with out1[1]) or a few points (with out1[1..2] ). By doing something similar but storing the points [Inv, maxDFR] in the list, you will be able to do some plots that would be taking current points and past points to connect to form a line. Scott

I believe that the cause of this problem is that the question you are looking for is a non-linear multivariable inequality. I believe that this may have been suggested as one of the wish lists for Maple 12 on this site. Scott