@CHARLESTON

PROGRAM QDEX INTEGER :: X DO X=38,100 N=4*X**3-108*X**2-108*X-27 M=X**3-36*X**2-54*X-27 Q=float(N)/float(M) PRINT *, X,Q END DO END PROGRAM QDEX

PROGRAM K3DELAMBDA DO I=43,100 FLAMB=FLOAT(I) FNUM=6.*FLAMB+9.+SQRT(4.*FLAMB**3-108.*FLAMB**2-108.*FLAMB-27.) FDEN=2.*(FLAMB**3-36.*FLAMB**2-54.*FLAMB-27.) FK3=FNUM/FDEN PRINT*, FLAMB,FNUM,FDEN END DO END PROGRAM

PROGRAM F3N1 INTEGER :: Q,Q0 MIN=6 MAX=100 K=1 DO Q0=MIN,MAX Q=6*Q0+1 I2=4*Q**3-108*K**2*Q**2-108*K**4*Q-27*K**6 RI2=FLOAT(I2) RI=SQRT(RI2)

PROGRAM VOISIN1 REAL :: truc INTEGER :: Q,A,B,C,PA,PB,PC,MAX MAX=1000 DO A=1,MAX Q=6 PA=A*(Q*A**2+6-Q)/6 DO B=1,A PB=B*(Q*B**2+6-Q)/6 DO C=1,B

PROGRAM F3 INTEGER :: X,Y,Z,A,B,XMAX,U XMAX=100 DO X=2,XMAX DO Y=1,X Z=X-Y A=X**3-Y**3-Z**3 B=3*X*Y*Z IF (A.EQ.B) THEN PRINT*,X,Y,Z