tatan2501

202 Reputation

11 Badges

10 years, 266 days

MaplePrimes Activity


These are answers submitted by tatan2501

Maybe, you have some mistake in the syntax. I've written an example:

ec1:=x^2=ln(y+1):
ec2:=x+y=1:
fsolve({ec1,ec2},{x,y},x=0..2,y=0..5);

 

Good Luck.

You could calculate an approximation.

delta:=2*3.14/2000:
Area:=0:
for i from 0 to 2*3.14 by delta do:
     Area:=Area+1/2*fsolve(eval(r^2= 2+cos(r*cos(theta))*sin(r*sin(theta)),theta=i),r,0..2)^2*delta:
end do:
Area;

 



I've attached a PDF with the solution. Good Luck.

radius.pdf

I don't know if I've understood your problem. If I understood it, this code could help you:

restart:
with(combinat):
with(ArrayTools):
a:="ghipqrs":
b:=Array(choose([seq(a[i],i=1..length(a))],2)):
for i from 1 to NumElems(b[..,1]) by 1  do
     sort(b[i]);
end do;

Good Luck.

If you don't have the value of y[0], you will not be able to plot that. If you want, you can assign an arbitrary value for y[0].

y[0]:=1:
plot([y[0]*s*exp(-s),y[0]*exp(-s),s=0..10]);

 

Good Luck

Other way to solve your problem (A little more intuitive than the last code):

A:=[1,2,3,4,5,6]:
number:=0:
for i from 1 to 6 by 1 do:
     number:=number+A[i]*10^(6-i):
end do:
number;

 

Good Luck.

Try this:

restart:
cont:=0:
for i from 1 to 500 by 1 do:
     if type(i,prime) then
          cont:=cont+1:
          x[cont]:=i:
     end if:
end do:
a:=0:
for i from 2 to cont by 1 do:
     if x[i]-x[i-1]=2 or x[i]-x[i-1]=1 then
          a:=a+1:
          y[a]:=[x[i-1],x[i]];
     end if:
end do:
for i from 1 to a by 1 do
     y[i];
end do;

Good Luck.

A:=Matrix(5,5):
for i from 1 to 5 by 1 do:
     for j from 1 to 5 by 1 do:
          A[i,j]:=1/(1/2+i-j):
     end do:
end do:
A;

 

Good Luck

All what you need is in Maple Help.

The topics covered in your course are enough to create these algorithms.
You have the tools, now you have to learn how use them.

?if;
?for;
?while;

I could create those algorithms, but you could not learn how to make them.

 

Good Luck.

Maybe, you could use 'textplot' and 'rotate'.

I'm not sure if 'rotate' works with 'textplot'.

?plottools,rotate

 

Good Luck.

 

RootOf(f(_Z)) are the values of _Z that are solution of f(_Z)=0.

 

Good Luck.

Do you have some conditions for constants z and x?

Try this:
 

assume(K::'real'):
assume(K>0):
 

Good Luck.

 

Then, thanks to Robert. Good Luck.

I wanted to plot the area limited for f(x)=sqrt(x) and g(x)=x^2.

Taking the idea of Patrick, I did the following:

restart:
with(plots):
f:=x->sqrt(x):
g:=x->x*x:
cont:=0:
h:=0.001:
for i from 0 to 1 by h do:
     cont:=cont+1:
     a[cont]:=implicitplot(y<(f(i+h)-f(i))/0.1*(x-i)+f(i),x=i..i+h,y=min(g(i),g(i+h))..max(f(i),f(i+h)),
     coloring=[blue,white],filledregions,thickness=0,crossingrefine=0,transparency=0):
end do:
display(seq(a[j],j=1..1/h));
 

Thanks again.

Good Luck.

1 2 3 4 5 Page 1 of 5