## 749 Reputation

11 years, 87 days

## with rand...

 > restart:
 > seq((rand(-0.5..0.5))(),i=1..100);
 (1)
 >
 >

## solve using dsolve...

 > restart:
 > eq1:=diff(A1(t),t\$2)+2*diff(A2(t),t\$2)+3*diff(A3(t),t\$2)-4*diff(A1(t),t)+diff(A1(t),t)*diff(A2(t),t)+3*diff(A3(t),t);
 (1)
 > eq2:=2*diff(A1(t),t\$2)+3*diff(A2(t),t\$2)-3*diff(A1(t),t)+2*diff(A2(t),t)+3*(A1(t));
 (2)
 > eq3:=2*diff(A2(t),t\$2)+3*diff(A3(t),t\$2)-4*diff(A2(t),t)+2*diff(A3(t),t)+3*A1(t)+A2(t)+A3(t);
 (3)
 > dsolve({seq}(eq||i,i=1..3));
 (4)
 >

you should solve like this :
fsolve({eq1,eq2,eq3,eq4,eq5},{x1,x2,x3,x4,x5},x=0..1};

as an example :

 > restart:
 > eq1:=a1+3*a2+5*a3;eq2:=6*a1-12*a2+20;eq3:=8*a1-53*a2+23*a3;
 (1)
 > fsolve({seq(eq||i,i=1..3)},{a1,a2,a3},a1=-5..0)
 (2)
 >
 >
 >
 >

## i think u mean this...

 > restart;
 > asal := proc(n) local asal,m,s,i;  if n<2 then  m :=n/2+1;  s:=m;  print(m);  else  for i from 2 to n do  if irem(n,i)=0 then  print("asal değil");  elif i = m then  print("asaldir");  fi;  od; fi;  end proc;
 (1)
 > asal(1);
 (2)
 > asal(5);
 >
 (3)
 >

## begin with maple books and tutorials...

you can begin with maple help as Markiyan Hirnyk said or maybe you want to start with an ebook or tutorial like this link :
www.math.mtu.edu/~msgocken/pdebook2/mapletut2.pdf
as soon as you start , you can ask your questions on this site and there are a lot of professions for answering your questions.
good luck

## one way...

 > restart:
 > m:=10;# number of n[i]'s ,to put in the function #
 (1)
 > P:=proc (M::list) local i ,S,f ; for i to m do f:=x->1+2*(1+x)^n[i]; S[i]:=plot(f(x),x=0..5);od: return plots:-display(seq(S[i],i=1..m)): end proc;
 (2)
 > #example#
 > for i to m do n[i]:=i:od:
 > M:=[seq](n[i],i=1..m);
 (3)
 > P(M);
 >

## dsolve is doing sth wrong...

i think dsolve is not solving the problem correctly . the asnwer is sth like this ans=0 , and since it IS zero , when evaluating the ode with the answer,it returns ode itself , maybe a bug in dsolve .

 > restart:
 > ode:=diff(y(x),x\$2)+y(x);
 (1)
 > dsolve(ode);
 (2)
 > eval(ode,%);
 (3)
 >
 > ode1:=diff(y(x), x)+2*tan(y(x))*tan(x)-1;
 (4)
 > dsolve(ode1);
 (5)
 > eval(ode1,%);
 (6)
 >

## maybe it is more easier when u do it wit...

 > restart:
 > P:=proc ( n) ; expand((a+b)^n) ; end proc ;
 (1)
 > P(14);
 (2)
 > P(5);
 (3)
 >

## there is a tick-mark when u want to answ...

here when i was answering,in the below section of this answer box , there IS a Subscribe term and under that,there is a small empty box,just mark it . good luck

 >
 >
 >
 (1)
 >

## u should create the .txt file yourself...

here is an example : please create a folder and save this work sheet there, and create a file named example.txt there. just run the worksheet,it will save all the data there.good luck

 > restart:
 > L:=[seq](i^2,i=1..20);
 (1)
 > for i to 20 do FileTools[Text][WriteFloat]( "example.txt", L[i] ); writeline("example.txt","    "): od: FileTools[Text][Close]( "example.txt" ):
 >

example.txt

## you should define n and after that,it an...

here is a preocedure which i had defined, "n" is input of this procedure,by defining n, it will be answer

 > restart:
 > P:=proc(n)  local f1,f2; f1 := expand((a1*x^2+b1*x+c1)^n);
 > f2 := a1*x^2+b1*x+c1;
 >
 > solve([coeff(f1, x, 4) = coeff(f2, x, 4),
 > coeff(f1, x, 3) = coeff(f2, x, 3),
 > coeff(f1, x, 2) = coeff(f2, x, 2),
 > coeff(f1, x, 1) = coeff(f2, x, 1),
 > coeff(f1, x, 0) = coeff(f2, x, 0)], [a1,b1,c1,d1]);
 > end proc:
 > P(5);
 (1)
 >

.

 > restart:
 > int(1/1-exp(a*x)*erfc(a*x),x); # indefinite integral
 (1)
 > int(1/1-exp(a*x)*erfc(a*x),x=0..10);
 (2)
 > evalf(%);
 (3)
 > eval(%,a=5);
 (4)
 >
 >

## use PDF...

 > restart:
 > with(Finance):
 > with(Statistics):
 > X:=RandomVariable(Binomial(nn, pp));
 > PDF(X, t);
 (1)
 >

## use plot...

 > restart:
 > a := Vector(5, i -> i+1 );
 > b := Vector(6, i -> i^2 );
 >
 (1)
 > A1:=plot([seq]([m,a[m]],m=1..numelems(a)),color=blue,gridlines=false):A2:=plot([seq]([m,b[m]],m=1..numelems(b)),color=yellow,gridlines=false):
 > plots:-display(A1,A2);
 >