5 CLS
10 INPUT "INPUT N,T"; N, T
20 DIM X1(N), X2(N), X3(N + T), E(N), F(N)
30 DIM B(N - 1, 2), Y(N - 1), BB(2, N - 1)
50 FOR I = 1 TO N
60 READ X1(I)
70 X2(I) = X2(I - 1) + X1(I)
80 NEXT I
90 FOR I = 1 TO N - 1
100 B(I, 1) = -.5 * (X2(I) + X2(I + 1))
110 B(I, 2) = 1
120 Y(I) = X1(I + 1)
130 NEXT I
160 FOR I = 1 TO N - 1
170 Z(1, 1) = Z(1, 1) + B(I, 1) * B(I, 1)
180 Z(1, 2) = Z(1, 2) + B(I, 1)
190 NEXT I
200 Z(2, 1) = Z(1, 2)
210 Z(2, 2) = N - 1
220 M = Z(1, 1) * Z(2, 2) - Z(2, 1) * Z(1, 2)
230 ZZ(1, 1) = Z(2, 2) / M
240 ZZ(1, 2) = -Z(1, 2) / M
250 ZZ(2, 1) = -Z(2, 1) / M
260 ZZ(2, 2) = Z(1, 1) / M
290 FOR I = 1 TO N - 1
300 BB(1, I) = ZZ(1, 1) * B(I, 1) + ZZ(1, 2) * B(I, 2)
310 BB(2, I) = ZZ(2, 1) * B(I, 1) + ZZ(2, 2) * B(I, 2)
320 A = A + BB(1, I) * Y(I)
330 U = U + BB(2, I) * Y(I)
340 NEXT I
350 X3(1) = X1(1)
360 FOR I = 2 TO N + T
370 X3(I) = (X1(1) - U / A) * (EXP(-A) - 1) * EXP(-A * (I - 2))
380 NEXT I
410 FOR I = 1 TO N
420 XX = XX + X1(I) / N
430 E(I) = X1(I) - X3(I)
440 EE = EE + E(I) / N
450 NEXT I
480 FOR I = 1 TO N
490 S1 = S1 + (X1(I) - XX) * (X1(I) - XX) / N
500 S2 = S2 + (E(I) - EE) * (E(I) - EE) / N
510 F(I) = ABS(E(I) - EE)
520 NEXT I
530 S1 = SQR(S1)
540 S2 = SQR(S2)
550 C = S2 / S1
560 Q = .6745 * S1
580 FOR I = 1 TO N
590 IF F(I) > Q THEN 610
600 D = D + 1
610 NEXT I
620 P = D / N
630 PRINT
640 FOR I = 1 TO N
650 PRINT "X1("; I; ")="; X1(I); "     ";
660 IF INT(I / 3) = I / 3 THEN PRINT
670 NEXT I
680 PRINT : PRINT
690 FOR I = 1 TO N
700 PRINT "X3("; I; ")="; INT(X3(I) * 10000 + .5) / 10000; "     ";
710 IF INT(I / 3) = I / 3 THEN PRINT
720 NEXT I
730 PRINT : PRINT
740 FOR I = 1 TO T
750 PRINT "X3("; N + I; ")="; INT(X3(N + I) * 1000 + .5) / 1000; "     ";
760 IF INT(I / 3) = I / 3 THEN PRINT
770 NEXT I
780 PRINT : PRINT
790 PRINT "C="; C
800 PRINT "P="; P
810 END
820 DATA  3.3,3.5,2.8,6.5,4.6这个是basic语言的,想翻译成java的或者C#的,由于是今天一定要翻译出来了,再去看看语法啊什么的怕是来不及了,
所以请哥们兄弟姐们帮帮忙。。小弟感激不尽