# Linearne rekurentne relacie 1.radu s konstantnymi koeficientami
> Y[0]=A;
> Y[k]=C*Y[k-1] + D;
# Mente hodnotu digits
> with(plots):
> m:=200:
> x:=array(1..m):
> y:=array(1..m):
> z:=array(1..m):
> Digits:=10:
> c:=0.999: d:=0.001:
> x[1]:=1.001:  for n from 2 by 1 to m do  x[n]:=c*x[n-1]+d: od: print(x[m]):
> Digits:=10:
> c:=1.000: d:=0.001:
> y[1]:=1.002:  
> for n from 2 by 1 to m do  y[n]:=c*y[n-1]+d: od: print(y[m]):
> Digits:=10:
> c:=1.001: d:=0.001:
> z[1]:=1.0005:  for n from 2 by 1 to m do  z[n]:=c*z[n-1]+d: od: print(z[m]):
> 
> seqx:=1,x[1]: for i from 2 to m do seqx:=seqx,i,x[i]:od:
> obr1:=plot([seqx],colour=black):
> seqy:=1,y[1]: for i from 2 to m do seqy:=seqy,i,y[i]:od:
> obr2:=plot([seqy],colour=blue):
> seqz:=1,z[1]: for i from 2 to m do seqz:=seqz,i,z[i]:od:
> obr3:=plot([seqz],colour=red):


> display([obr1,obr2,obr3]);