@PatrickT So sorry. Please try again. I updated the code, changing expr to _E inside the `if`. I had made a mistake while transcribing the code from Maple by hand rather than cutting and pasting.

There really is no explicit student version. It's just the regular version at a lower price. So, if you have a link to download the regular version, use that. Check your email for the email from Maplesoft with your link and activation code.

If you can't reduce it to three substitutions, can you make it any smaller number than what you had in the original?

@abbeykabir 

eq||(1..2) means eq1,eq2. It is not much of an abbreviation when there are only two variables, but the notation can be used for any number. See ?|| .

Unrelated: Could you please create your worksheets (that you want me to read) in Worksheet mode instead of Docuemnt mode?

@abbeykabir 

eq||(1..2) means eq1,eq2. It is not much of an abbreviation when there are only two variables, but the notation can be used for any number. See ?|| .

Unrelated: Could you please create your worksheets (that you want me to read) in Worksheet mode instead of Docuemnt mode?

@Markiyan Hirnyk I was wrong about the polar; it won't work for the reason you said. I didn't intend for my Reply to be considered an Answer.

@Jimmy I don't know. I suspect that the answer to that is a matter of some debate among statisticians. You should probably ask as a separate Question. Other people are less likely to jump into an existing thread, if they notice it at all.

I think that you may need to represent the coordinates separately. For the disk, use polar coordinates, choosing r and theta uniformly and independently. For the square, find a linear transform T that maps a rectilinear square to your square. Then choose X,Y (I am using names "X" and "Y" differently than you did in your Question)  uniformly and independently in the rectilinear square. Then your answer is

dist(< r*cos(theta), r*sin(theta) > - T(< X,Y >))

The same plot as above, refined to log-log, and with gridlines at key locations.

T:= 10/7:  K:= k= 0..3:
plot(
     L[1..7^4-1],
     axis[1]= [mode= log, tickmarks= ['7^k=``(7)^k' $ K], gridlines= [7^k $ K]],
     axis[2]= [
          mode= log,
          tickmarks= ['T^k = (evalf(T^k)=``(T)^k)' $ K],
          gridlines= [T^k $ K]
     ]
);

The same plot as above, refined to log-log, and with gridlines at key locations.

T:= 10/7:  K:= k= 0..3:
plot(
     L[1..7^4-1],
     axis[1]= [mode= log, tickmarks= ['7^k=``(7)^k' $ K], gridlines= [7^k $ K]],
     axis[2]= [
          mode= log,
          tickmarks= ['T^k = (evalf(T^k)=``(T)^k)' $ K],
          gridlines= [T^k $ K]
     ]
);

@abbeykabir wrote:

the only diffrence I notice was in my error.

Does that mean that you still have an error?

you make a copy of the LinearAlgebra package and named it LA, having all the functions and sub-packages of the original LinearaAlgebra.

Not quite. There is no copy made. It is just a substitution of the abbreviation LA for the name LinearAlgebra.

So instead of using the whole LinearAlgebra, I can just us LA.

Yes, instead of typing the whole name LinearAlgebra, you can just type LA. I do this because I don't like using the with command for several reasons:

1. with makes it hard to see which packages commands come from and hard to look up help about them.
2. with does not work inside procedures.
3. with might overload operators (for example, change the meaning of +) without you noticing it. For example, with(LinearAlgebra) assigns a meaning to &x.

I have some questions for you I my previous thread. Don't think it will be good enough to ask you here.

Please make a separate thread, a new Question. It is too difficult to notice when things are added to an old thread.

@abbeykabir wrote:

the only diffrence I notice was in my error.

Does that mean that you still have an error?

you make a copy of the LinearAlgebra package and named it LA, having all the functions and sub-packages of the original LinearaAlgebra.

Not quite. There is no copy made. It is just a substitution of the abbreviation LA for the name LinearAlgebra.

So instead of using the whole LinearAlgebra, I can just us LA.

Yes, instead of typing the whole name LinearAlgebra, you can just type LA. I do this because I don't like using the with command for several reasons:

1. with makes it hard to see which packages commands come from and hard to look up help about them.
2. with does not work inside procedures.
3. with might overload operators (for example, change the meaning of +) without you noticing it. For example, with(LinearAlgebra) assigns a meaning to &x.

I have some questions for you I my previous thread. Don't think it will be good enough to ask you here.

Please make a separate thread, a new Question. It is too difficult to notice when things are added to an old thread.

It's still a bit kludgy, but it's less kludgy than mine. I made your Reply into an Answer so that I could vote up. If you mind, I'll put it back.

The Dirac solution can be evaluated with two-argument eval:

eval(h, f= 3);

I tried to do something similar with Physics:-KroneckerDelta(i,1), but I couldn't make it work.

It's still a bit kludgy, but it's less kludgy than mine. I made your Reply into an Answer so that I could vote up. If you mind, I'll put it back.

The Dirac solution can be evaluated with two-argument eval:

eval(h, f= 3);

I tried to do something similar with Physics:-KroneckerDelta(i,1), but I couldn't make it work.

It may be possible to represent the diagram within Maple's geometry package and have Maple say that the answer cannot be determined.