С оценкой (64), для доказательства ВТФ для
достаточно взять приращение
.
С этим приращением, программа на "Ubasic" исполняется несколько секунд.
Приведём код.
Код:
10 for I=0 to 50000
20 U=I/50000
30 V=(1-U)^(1/2)
40 I5=cos(pi(2)/5)+#i*sin(pi(2)/5)
50 V1=(1-U*I5^2)^(1/2)
60 V2=(1-U*I5^4)^(1/2)
70 V3=(1-U*I5^6)^(1/2)
80 V4=(1-U*I5^8)^(1/2)
90 A0=(V+V1+V2+V3+V4)/5
100 G=2^(1/5)
110 A1=(V+V1*I5^4+V2*I5^3+V3*I5^2+V4*I5)/(5*G)
120 A2=(V+V1*I5^3+V2*I5+V3*I5^4+V4*I5^2)/(5*G^2)
130 A3=(V+V1*I5^2+V2*I5^4+V3*I5+V4*I5^3)/(5*G^3)
140 A4=(V+V1*I5+V2*I5^2+V3*I5^3+V4*I5^4)/(5*G^4)
150 B3=10*(A0^2-A1*A4-A2*A3)
160 B1=5*(A0^4-6*A0^2*A1*A4-6*A0^2*A2*A3+4*A0*A1^2*A3+4*A0*A1*A2^2+8*A0*A2*A4^2+8*A0*A3^2*A4-2*A1^3*A2+4*A1^2*A4^2-4*A1*A2*A3*A4-4*A1*A3^3-4*A2^3*A4+4*A2^2*A3^2-8*A3*A4^3)
170 Z2=A0^2+4*A1*A4+4*A2*A4
180 Xy=A1^2+2*A0*A2+4*A3*A4
190 R1=16*Xy^10+Z2^10+5*B3*Z2^9+5*(2*B3^2+B1)*Z2^8+10*(B3^3+2*B1*B3)*Z2^7+5*(B3^4+6*B1*B3^2+2*B1^2)*Z2^6-4*(B3^5-5*B1*B3^3+5*B1^2*B3)*Xy^5-(8*Xy^5-B3^5-20*B1*B3^3-30*B1^2*B3)*Z2^5
200 R2=-5*(4*B3*Xy^5-B1*B3^4-6*B1^2*B3^2-2*B1^3)*Z2^4-10*(4*(B3^2-2*B1)*Xy^5-B1^2*B3^3-2*B1^3*B3)*Z2^3+B1^5-5*(8*(B3^3-3*B1*B3)*Xy^5-2*B1^3*B3^2-B1^4)*Z2^2-5*(4*(B3^4-4*B1*B3^2+2*B1^2)*Xy^5-B1^4*B3)*Z2
210 if abs(R1+R2)<350000 then print R1+R2,"i=";I
220 ' if I-10000*int(I/10000)=0 then print R1+R2,I
230 B00=A0^5-10*A0^3*A1*A4-10*A0^3*A2*A3+10*A0^2*A1^2*A3+10*A0^2*A1*A2^2+20*A0^2*A2*A4^2+20*A0^2*A3^2*A4-10*A0*A1^3*A2+20*A0*A1^2*A4^2-20*A0*A1*A2*A3*A4-20*A0*A1*A3^3
240 B01=-20*A0*A2^3*A4+20*A0*A2^2*A3^2-40*A0*A3*A4^3+2*A1^5-20*A1^3*A3*A4+20*A1^2*A2^2*A4+20*A1^2*A2*A3^2-20*A1*A2^3*A3-40*A1*A2*A4^3+40*A1*A3^2*A4^2+4*A2^5+40*A2^2*A3*A4^2-40*A2*A3^3*A4+8*A3^5+16*A4^5
250 B0=B00+B01
260 B4=5*A0
270 B2=10*(A0^3-3*A0*A1*A4-3*A0*A2*A3+A1^2*A3+A1*A2^2+2*A2*A4^2+2*A3^2*A4)
280 L1=(B0-B1*B4)^2-B3*(B0-B1*B4)*(B2-B3*B4)+B1*(B2-B3*B4)^2
290 ' print L1
300 ' print B4,B3,B2,B1,B0
310 next I
320 dim MB(5),S(5),E(5),MW(5),MI(5),DI(5,5)
322 dim Mph(5)
330 D=1/50000
340 for M=1 to 5
350 S(M)=0
360 for J=0 to 4
370 MW(J)=2*sin(J*pi(1)/5)
380 if J<5/6 or J>5*5/6 then MW(J)=1
382 MI(J)=D^(1/2)/2
384 if J>5/4 and J<3*5/4 then MI(J)=1
386 if (J>0 and J<5/4) or J>3*5/4 then MI(J)=(abs(sin(J*2*pi(1)/5)))^(1/2)
390 S(M)=S(M)+MW(J)^(M/2)
400 next J
410 next M
420 E(0)=1
430 E(1)=S(1)
440 for M=2 to 5
450 E(M)=0
460 for K=1 to M
470 E(M)=E(M)+(-1)^(K-1)*E(M-K)*S(K)
480 next K
490 E(M)=E(M)/M
500 next M
510 for K=1 to 3 step 2
520 MB(K)=E(5-K)
530 next K
540 for K=1 to 3 step 2
550 CC$=""
560 for I=1 to 5-K
570 CC$=CC$+chr(I)
580 next I
590 Sum=0
600 loop
610 Sum=Sum+fnNCC(CC$)
620 CC$=fnNXT(5,5-K,CC$)
630 if CC$="" goto 650
640 endloop
650 for J=0 to 4
660 DI(K,J)=(MW(J))^((K-1)/2)*Sum+MB(K)*(MW(J))^((K-3)/2)*((K-1)/2)
670 next J
690 next K
700 for J=0 to 4
710 DI(5,J)=(MW(J))^(2/2)*(4/2)
720 next J
730 for J=0 to 4
740 Mph(J)=0
750 for K=1 to 3 step 2
760 Mph(J)=Mph(J)+MB(K)*(MW(J))^((K-1)/2)
770 next K
780 Mph(J)=Mph(J)+(MW(J))^(4/2)
790 next J
800 Prd=1
810 for J=0 to 4
820 Prd=Prd*Mph(J)
830 next J
840 Su2=0
850 for J=0 to 4
860 Su3=0
870 for K=1 to 5 step 2
872 Su3=Su3+DI(K,J)
880 next K
890 Su2=Su2+Su3/Mph(J)
900 next J
910 Prd=D*Prd*Su2
920 print Prd
2000 end
3000 fnNXT(N,K,C$)
3002 ' get the next combination from the current c$ and return it
3004 ' the length of each combination string is k
3006 local Ist,Ch,I9,B$
3010 Ist=K
3018 ' find suitable index ist
3020 loop
3030 Ch=asc(mid(C$,Ist,1))
3040 if Ch+K-Ist+1<=N goto 3100
3050 Ist=Ist-1
3060 if Ist=0 goto 3100
3070 endloop
3100 if Ist=0 then return("")
3110 B$=""
3120 for I9=0 to K-Ist
3130 B$=B$+chr(Ch+1+I9)
3140 next I9
3150 return(left(C$,Ist-1)+B$)
4000 fnNCC(C$)
4010 local I9,Ch,Pro,Su1
4012 Pro=1
4020 for I9=1 to len(C$)
4030 Ch=asc(mid(C$,I9,1))
4040 Pro=Pro*(MW(Ch-1))^(1/2)
4050 next I9
4060 Su1=0
4070 for I9=1 to len(C$)
4080 Ch=asc(mid(C$,I9,1))
4090 Su1=Su1+1/(2*MI(Ch-1)*(MW(Ch-1))^(1/2))
4100 next I9
4160 return(Pro*Su1)
Этот код можно упростить и приспособить для любого
.
Думаю, что таким образом можно доказать ВТФ для нескольких последующих значений
.
-- Пн ноя 28, 2016 08:55:27 --Будем проверять это доказательство ВТФ для
?
-- Пн ноя 28, 2016 09:21:04 --Вычисление коэффициентов
не нужно для доказательства, так как коэффициенты
вычисляются непосредственно из выражений
.
Поэтому из программы можно выкинуть громоздкие выражения с коэффициентами
.
Мы использовали простой алгоритм генерации сочетаний и проверили его с формулой Ньютона.
Вычисления по формуле Ньютона можно выкинуть из программы.
В этой теме мы искали доказательство и делали исправления, само доказательство можно написать гораздо короче,