Kitonum

8458 Reputation

17 Badges

8 years, 289 days

MaplePrimes Activity


These are replies submitted by Kitonum

@Fzen  This is called multiple assignment:

restart;
oldVars:=[a,b,c,d]: newVars:=[1,3,-9,5]:
assign(oldVars=~newVars);

a, b, c, d;
                                          1, 3, -9, 5

 

Addition. The  myfunc  procedure does the same thing:

myfunc:=proc(x)
local i;
for i from 1 to nops(oldVars) do
if x=oldVars[i] then return newVars[i] fi;
od;
undefined;
end proc:

oldVars:=[a,b,c,d]: newVars:=[1,3,-9,5]:
myfunc~(oldVars);  

                                            [1, 3, -9, 5]

@farjad_etg  It's strange. On my computer (Windows 10)  in Maple 2015.2 and 2016.2  everything works correctly 

The use  eval  and  ~  gives the simplest and shortest solution for the original problem:

sol:=solve([sin(t), 0 < t, t < 8*Pi], t, allsolutions, explicit);
eval~(t, [sol]);

 

You must provide the objective function so that everyone can try to work with it. And why  xx=0? Are you looking for a minimum of what function?

@mskalsi  I'm not an expert in pictures formats and therefore I cannot answer your question. For the forum, I always use the PNG format (or GIF for animations).

@Markiyan Hirnyk  I opened your file and saw these pictures:

@idol050279  I opened your file and saw the following picture:

 

For some reason, transparency  option does not work on your computer

@idol050279  I do not understand the reasons for your problems. The codes from your previous message work for me as expected. The code from your last file shows some of the points inside the cylinder, and some of the points  outside of the cylinder. I do not know what do you want. If you increase the diameter of the cylinder, then all the points will be inside it.

@idol050279  Submit your code so that I can see what you see.

@idol050279  I use Maple 2016.2. You probably use an older version of Maple, in which rand command in the specified format does not work. Use the following code instead:

restart;
f:=r->RandomTools:-Generate(float(range=r,method=uniform)):
P1:=[seq([f(0..evalf(2*Pi)),f(0..2),f(0..3)], i=1..20)]:
P2:=map(t->[t[2]*cos(t[1]),t[2]*sin(t[1]),t[3]], P1):
A:=plottools:-cylinder([0,0,0], 2, 3, style=surface, strips=100, transparency=0.7):
B:=plots:-pointplot3d(P2, symbol=solidsphere, color=red, symbolsize=15):
plots:-display(A, B, axes=none);

 

Addition.  Of course, instead of random points, you can take some specific points or points that obey some regularity. For example, in the following example, the points go in a spiral:

restart;
P:=[seq([1.2*cos(t),1.2*sin(t),0.1*t], t=0..30,0.5)]:
A:=plottools:-cylinder([0,0,0], 2, 3, style=surface, strips=100, transparency=0.7):
B:=plots:-pointplot3d(P, symbol=solidsphere, color=red, symbolsize=15):
plots:-display(A, B, axes=none);

 

@AmirHosein Sadeghimanesh   Instead of  x  and  y  should be expressions of these parameters.

Example for 3 parameters:

plot([seq(seq([k[1]-k[2], k[1]+k[3], k[1]=0..1], k[2]=0..1,0.01), k[3]=0..1,0.01)], thickness=4, color=green);

                             

 

 

 

@umar khan   I do not understand the reason for the error. I downloaded your file, ran it and it works correctly. I am attaching my worksheet (in Maple 2016.2).

plots.mw

@Carl Love   ListTools:-LengthSplit(L,n)  is a sequence not a list.

@Markiyan Hirnyk   I can not confirm your first calculation. I think that  value(Int(...))  is equivalent to int(...) .

In Maple 2016.2:

z := exp(I*t): 
f := z^(1/2)*(diff(z, t)): 
value(Int(f, t = 0 .. 2*Pi));

                                                          -4/3

 

I have not submitted any SCR.

 

@Markiyan Hirnyk 

Compare:

Matrix([seq(diff(y,[x$i]),i=0..nops(y)-1)]);
Matrix(nops(y),(i,j)->eval(diff(y[k],x$n),[k=i,n=j-1]));

1 2 3 4 5 6 7 Last Page 1 of 66