Forum

Code : Tout sélectionner

#!/bin/bash
fic1="$1"
fic2=`echo $fic1 | cut -f1 -d\.`
convert $fic1 -resize 640x400 \
-size 640x400 xc:black +swap -gravity center -composite \
-contrast-stretch 5% -colorspace gray $fic2.gif
convert -monochrome $fic2.gif $fic2.pbm
pbmtopi3 $fic2.pbm > $fic2.pi3

Code : Tout sélectionner

#!/bin/bash
convert Scarlett.jpg -resize 640x400 \
-size 640x400 xc:black +swap -gravity center -composite \
-gravity center \
-colors 2 \
Scarlett.pbm
pbmtopi3 Scarlett.pbm > Scarlett.pi3

Code : Tout sélectionner

clear timer
Z=151000
index *1 U(Z)
print "pre-calcul de U..."
N=1
while N<Z
  U(N)=-1
  N=N+pchiffres(N)
wend
'calcul des termes LU(I)
open "o",#1,"result.txt"
X=0
for I=2,1000
  B=0
  N=I
  while N<Z
    ift U(N)=-1 exit
    N=N+pchiffres(N)
    B=B+1
  wend
  if N<Z
    print I
    ift X<B X=B
    print #1 "LU(";I;")=";B;" MAX=";X;" t=";timer;"s"
  else
    print #1 I;" pre-calcul insuffisant"
  endif
next
close
stop
' calcul du produit des chiffres de x
pchiffres:function(x)
value=1
n$=str$(x)
for j=3,len(n$)
  c=asc(mid$(n$,j))-48
  ift c>0 value=value*c
next
return

Code : Tout sélectionner

[...]
LU(  995)=  304 MAX=  322 t=  3272s
LU(  996)=  313 MAX=  322 t=  3293s
LU(  997)=  299 MAX=  322 t=  3314s
LU(  998)=  286 MAX=  322 t=  3334s
LU(  999)=  15 MAX=  322 t=  3335s
LU(  1000)=  30 MAX=  322 t=  3337s

Code : Tout sélectionner

clear timer
var A(1001)
index P(1000)
M=1000
'calcul tableau initial
U=1
for i=1,M
  ift modr(i,100)=0 print i/10;"%"
  A(i)=U
  'index obligatoire pour la fonction search
  P(i)=i
  U=U+pchiffres(U)
next
open "o",#1,"result.txt"
X=0
for k=2,M
  U=k
  'calcul de U jusqu'a trouver une valeur connue
  for i=1,M
    'argument pour la fonction search
    A(M)=U
    s=search(A(1),M,1,P(1))
    if A(s)=U
      j=i-1
      ift X<j X=j
      print k
      print #1 "LU(";k;")=";j;" MAX=";X;" t=";timer;"s"
      exit
    endif
    U=U+pchiffres(U)
  next i
next k
close
stop
' calcul du produit des chiffres de x
pchiffres:function(x)
value=1
do
  ift x=0 return
  p=modr(x,10)
  ift p>0 value=value*p
  x=x\10
loop

Code : Tout sélectionner

LU(  2)=  0 MAX=  0 t=  101s
LU(  3)=  5 MAX=  5 t=  101s
LU(  4)=  0 MAX=  5 t=  101s
LU(  5)=  6 MAX=  6 t=  102s
[...]
LU(  61)=  4 MAX=  17 t=  129s
LU(  62)=  0 MAX=  17 t=  129s
LU(  63)=  322 MAX=  322 t=  166s
LU(  64)=  3 MAX=  322 t=  166s
LU(  65)=  6 MAX=  322 t=  167s
[...]
LU(  997)=  299 MAX=  322 t=  5683s
LU(  998)=  286 MAX=  322 t=  5716s
LU(  999)=  15 MAX=  322 t=  5718s
LU(  1000)=  30 MAX=  322 t=  5721s