Can the font in the Maple Component Text Area be changed? It's not obvious how to do it from "Component Properties" or anywhere else. 

Thanks, Greg.

Maple 18 and MapleNet 2015.

Show/Hide Contents allows one to hide certain elements of the worksheet. Is there a way settings there (or somewhere) can be locked so that another user is prevented from seeing certain elements of the worksheet?

Rationale: As an example: I'd like my students to use Maple Player to interact with a worksheet, using Maple Component GUI elemnts. I do not want them to see all the code behind that, and in fact explicitly want to rule them seeing some function definitions. I can hide "input, output" when I create the document, but under "View" in Maple Player, the intrepid student could always unhide that and see the code.

Maple 18 and MapleNet 2015.

Show/Hide Contents allows one to hide certain elements of the worksheet. Is there a way settings there (or somewhere) can be locked so that another user is prevented from seeing certain elements of the worksheet?

Rationale: As an example: I'd like my students to use Maple Player to interact with a worksheet, using Maple Component GUI elemnts. I do not want them to see all the code behind that, and in fact explicitly want to rule them seeing some function definitions. I can hide "input, output" when I create the document, but under "View" in Maple Player, the intrepid student could always unhide that and see the code.

I'm using Maple Player 2105, Maple 18 and exploring using Maple/MapleNet/MaplePlayer for education. 

Is the following correct? In order for a my students to access a Maplet, they would need a full version of Maple installed on their system (Maple Player would not be enough) I couldnt get Maplets to work with Maple Player, but maybe that's just me.

(I do not have the $ at the moment to go the MapleNet route)

Thanks for your help,

Greg 

I'm using Maple Player 2105, Maple 18 and exploring using Maple/MapleNet/MaplePlayer for education. 

Is the following correct? In order for a my students to access a Maplet, they would need a full version of Maple installed on their system (Maple Player would not be enough) I couldnt get Maplets to work with Maple Player, but maybe that's just me.

(I do not have the $ at the moment to go the MapleNet route)

Thanks for your help,

Greg 

Hi all,

I want to create a (set of) samples from an own distribution. The distribution itself is a normal distribution, but with some 'gaps', as shown below:

(It is supposed to represent the distribution of discrete resistor values (e.g. 10 ohms), where not only the values above the tolerance (e.g. 10%) are removed, but also those who can be sold as higher precision resistors (eg. 1%). The mean, lower tolerance and higher tolerance should be variables).

Because of the fact that in order to be able to use the Sample function, the PDF should be twice differentiable, the 'truncation' in the middle is realised using logistic functions.

I am able to create said distribution, and produce a DensityPlot, but when I try to take a (even a single) Sample from a RandomVariable from that distribution, Maple keeps calculating and no sample is produced.

GetDist := (mu, alpha, beta) -> Distribution(PDF = unapply(LotRPDF(t, mu, alpha, beta), t)):
T := GetDist(10, .1, 0.1e-1);
DensityPlot(T);
RandomR := RandomVariable(T):
Sample(RandomR, 1);

Where LotRPDF is the function depicted above, mu is the mean (10), alpha is the maximum tolerance (10%), , beta is the minimum tolerance (1%)

Am i overlooking something simple? Or is there a more fundamental error in my approach? I've added the maple sheet with more details.

RandomVariableSample.mw

hi

I am trying to construct a series of 10X10 matrices whose main diagonal contains exactly k ones and other entries zero.

plz suggest thanks

Hi

I am trying to approximate a function in terms of piece-wise constant function:

$$f(x) = \sum_0^N c_iB_i(x)$$

what modules/packages of maple are helpful here? thanks

how to calculate the shorting routing path in cayley graph?

i search that it is related with knuth bendix

hello everyone. I have an undergradute project i'm currently working on and I'm stuck where I have to use the Differential Transforms Method to solve a problem with boundary conditions at infinity

restart;

Digits := 5;

F[0] := 0; F[1] := 0; F[2] := (1/2)*A; T[0] := 1; T[1] := B; M := 2; S := 1;

for k from 0 to 10 do F[k+3] := (2*(sum((r+1)*F[r+1]*(k+1-r)*F[k+1-r], r = 0 .. k))-T[k]-3*(sum((k+1-r)*(k+2-r)*F[r]*F[k+2-r], r = 0 .. k))-M*(k+1)*F[k+1])*factorial(k)/factorial(k+3);

T[k+2] := (-3*(sum((k+1-r)*F[r]*T[k+1-r], r = 0 .. k))-S*T[k])*factorial(k)/factorial(k+2)

end do; f := 0; t := 0;

for k from 0 to 10 do

f := f+F[k]*x^k;

t := t+T[k]*x^k end do;

print(f);
print(t);

but the problem is that i cant seem to evaluate

or higer diagonal pade-approximant. any help will be greatly appreciated. thank you.

@Markiyan Hirnyk   I try not to use this package, as I think the results are not reliable enough. Here is the example, where instead of the three real roots it finds only one, despite the hint to look for the three roots:

restart;

DirectSearch:-SolveEquations(100^x=x^100, AllSolutions, solutions=3);

There are many other examples, particularly in discrete optimization in which it returns false results. Here is one example (well-known to you).

Hello, i am recently doing a lot of my (really simple) equation manipulations with Maple and would like to include an expectation operator E( ) in my symbolic equations. As maple threads E() as a function, differentiating is not very convenient, as i have to replace all D(E) ... manually. I tried defining some properties of E() via the define() function, but when trying to set the behavior of d E(f(x))/dx I am not sure how to use (diff()=result) in the define() function. Any help or ideas are greatly appreciated!

How can I solve this equation 18 *9^(x^2 + 2* x) + 768* 4^((x + 3)* (x - 1)) - 5 *6 ^((x + 1)^2)?

I tried

restart:

A:=18 *9^(x^2 + 2* x) + 768* 4^((x + 3)* (x - 1)) - 5 *6 ^((x + 1)^2);
solve(A=0);

I see that, the equation has three solutions: x = -2, x = -1 and x = 0. I check

f:=x->18 *9^(x^2 + 2* x) + 768* 4^((x + 3)* (x - 1)) - 5 *6 ^((x + 1)^2);

f(-2);

f(-1);

f(0);

Another question, Maple can not solve inequality 

18 *9^(x^2 + 2* x) + 768* 4^((x + 3)* (x - 1)) - 5 *6 ^((x + 1)^2) > = 0.

PS. We can easy to solve the above inequality with Mathematica

Reduce[18 9^(x^2 + 2 x ) + 768 4^((x + 3) (x - 1)) - 5 6 ^((x + 1)^2) >= 0 , x, Reals]

I got x <= -2 || x == -1 || x >= 0

Hi all,

Please help in writing finite difference algorithm for a nonlinear PDE using Maple.

for a[j], b[j] known at time n, I want to compute A[j]  for a[j] at time n+1 according to the equation below

EQs:=A[j]-theta*tau*(A[j-1]-2*A[j]+A[j+1])=a[j]+sqrt(a[j])*b[j]*h^2/tau+(1-theta)*tau*(a[j-1]-2*a[j]+a[j+1]) ;

Thanks in advance.

Dear I want to define a general operator D for Fractional derivative whose behave like this

(D^alpha)(t^beta) = GAMMA(1+beta)*t^(beta-alpha)/GAMMA(1+beta-alpha)