## 564 Reputation

7 years, 156 days

## 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);
 >

## use op...

i changed your x to x[k] so that u can know your x in every loop. good luck

 > restart:
 >
 > a := Matrix([1, 2, 3, 4, 5]);
 >
 > for k  to 5 do
 >
 > x[k] := rhs((op(op(3,(DirectSearch:-SolveEquations(a(1, k)*x[k]+2 = 0))))))
 >
 > end do;
 >
 (1)
 >

## it works on maple 18...

 > restart:
 > restart;  local `+`;  `+`:=proc(a,b) :-`+`(a^`~2`,b^`~2`) end proc;
 (1)
 > `+`(a,b);
 (2)
 >

## first solve with respect to your praamet...

 > restart:
 > q := a*mu^4+b*mu^3+d*mu^2+e*mu+f = 0;PARAM := [a = -54/c^2-1269*A[1]/(8*c^2), b = 108/c^2+5013*A[1]/(8*c^2), d = 27-693/(2*c^2)+117*A[1]-7113*A[1]/(4*c^2), e = -27+585/(2*c^2)-111*A[1]+20439*A[1]/(16*c^2), f = 1-3*A[1]-18/c^2-8*A[1]/c^2];
 > ans:=solve(eval(q,PARAM),mu);solve(eval(q,PARAM),mu,parametric=full);
 (1)
 > ans1:=series(ans, A[1]=0,  2);ans2:=series(ans1, c=infinity,  3);
 (2)
 >
 >
 >