3 years, 68 days

## k=change in time. so for small value of ...

 >
 >
 >
 (1)
 >
 >
 >
 >
 >
 >
 >
 >
 > sys := ([seq])(seq(eq[i, j], j = 0 .. N), i = 1 .. N):
 > nops(sys);
 > vars:=indets(sys) minus {k}:
 > nn := Matrix(N+1, N+1,(i, j)-> u[i-1, j-1]):
 > ##
 > p:=proc(kk) local u_res,A;
 > u_res:=solve(eval(sys,k=kk),vars);
 > A:=eval(nn,u_res);
 > plots:-matrixplot(A)
 > end proc;
 > ## Testing p for k=0.001:
 > p(0.001);
 > ## Animating the plot for k=0.0001..0.001:
 > plots:-animate(p,[k],k=0.0001..0.001);
 >
 >
 >

Thank you...

 >
 >
 >
 (1)
 >
 >
 >
 >
 >
 >
 >
 >
 > sys := ([seq])(seq(eq[i, j], j = 0 .. N), i = 1 .. N):
 > nops(sys);
 > vars:=indets(sys) minus {k}:
 > nn := Matrix(N+1, N+1,(i, j)-> u[i-1, j-1]):
 > ##
 > p:=proc(kk) local u_res,A;
 > u_res:=solve(eval(sys,k=kk),vars);
 > A:=eval(nn,u_res);
 > plots:-matrixplot(A)
 > end proc;
 > ## Testing p for k=10000:
 > p(10000);
 > ## Animating the plot for k=0..10000:
 > plots:-animate(p,[k],k=0..10000);
 >
 >
 >

## How to Plot and write in form of matrix...

i want to find the change in results with chnage in 'k'. system consider lemda=0 bus lemda has some value there for no change in values...any command for this ???

 >
 >
 >
 (1)
 >
 >
 (2)
 >
 >
 (3)
 >
 >
 >
 >
 (4)
 >
 (5)
 >
 > Plot(
 >
 >

 >
 >
 >
 (1)
 >
 >
 >
 >
 >
 >
 >
 >
 (2)
 >

 >
 >
 >
 (1)
 >
 >
 >
 >
 >
 >
 (2)
 >

 >
 >
 >
 (1)
 >
 >
 >
 >
 >
 >
 (2)
 >