目前难于分解的合数

ysr

Print "jff1="; jff1
jpp2 = MPC1(Trim(jpp), Trim(jff1))
jqq2 = zhengchuqy(MCC1(Trim(A), Trim(jpp2)))
jrr2 = zhengchuqyushu(MCC1(Trim(A), Trim(jpp2)))
jn = zhengchuqy(MCC(Trim(jpp2), 2))
jx = zhengchuqy(MCC(MPC(Trim(jqq2), Trim(jpp2)), 4))
b8 = zhengchuqy(MCC1(Trim(jx), Trim(jn)))
If Right(Trim(A), 2) Mod 4 = 3 Then
ja3 = 1: jb3 = MPC1(MbC(Trim(jx), 2), 2): jc3 = mpc2(Trim(jx), Trim(d))
Else
ja3 = 1: jb3 = MPC1(MbC(Trim(jx), 2), 1): jc3 = mpc2(Trim(jx), Trim(d))
End If
ja3 = Trim(ja3) & String(10, "0")
jb3 = Trim(jb3) & String(10, "0")
jc3 = Trim(jc3) & String(10, "0")
jpp3 = jie2cifc(Trim(ja3), Trim(jb3), Trim(jc3), 10)
Print "jpp3="; jpp3

ysr

Print "jf= "; jff
jpp = MPC1(Trim(jp), Trim(jff))
jn2 = zhengchuqy(MCC(Trim(jpp), 2))
jqq = zhengchuqy(MCC1(Trim(a), Trim(jpp)))
jx2 = zhengchuqy(MCC(MPC(Trim(jqq), Trim(jpp)), 4))
Print "jff="; jff
Print "jx2="; jx2
ja2 = Val(4 * b8 - 1)
jb2 = MbC(Trim(jn2), Val(4 * b8))
jb2 = MPC1(Trim(jb2), Val(2 * b8))
jb2 = MPC(Trim(jb2), MbC(Trim(jn2), 2))
jb2 = MPC(Trim(jb2), 2)
jb2 = mpc2(Trim(jb2), MbC(Trim(jx2), 2))
jc2 = MPC(Trim(d), MbC(Trim(jn2), Trim(jn2)))
jc2 = MPC(Trim(jc2), MbC(Trim(jn2), 2))
jc2 = mpc2(Trim(jc2), MbC(MbC(Trim(jx2), Trim(jn2)), 2))
jc2 = mpc2(Trim(jc2), Trim(jx2))
ja2 = Trim(ja2) & String(10, "0")
jb2 = Trim(jb2) & String(10, "0")
jc2 = Trim(jc2) & String(10, "0")
jff1 = jie2cifc(Trim(ja2), Trim(jb2), Trim(jc2), 10)
Print "jff1="; jff1
jff1 = Mid(Trim(jff1), 1, InStr(jff1, ".") - 1)
jpp2 = mpc3(Trim(jpp), Trim(jff1))
jqq2 = zhengchuqy(MCC1(Trim(a), Trim(jpp2)))
jrr2 = zhengchuqyushu(MCC1(Trim(a), Trim(jpp2)))
jn = zhengchuqy(MCC(Trim(jpp2), 2))
jx = zhengchuqy(MCC(MPC(Trim(jqq2), Trim(jpp2)), 4))
b8 = zhengchuqy(MCC1(Trim(jx), Trim(jn)))
If Right(Trim(a), 2) Mod 4 = 3 Then
ja3 = 1: jb3 = mpc3(MbC(Trim(jx), 2), 2): jc3 = mpc2(Trim(jx), Trim(d))
Else
ja3 = 1: jb3 = mpc3(MbC(Trim(jx), 2), 1): jc3 = mpc2(Trim(jx), Trim(d))
End If
ja3 = Trim(ja3) & String(10, "0")
jb3 = Trim(jb3) & String(10, "0")
jc3 = Trim(jc3) & String(10, "0")
jpp3 = jie2cifc(Trim(ja3), Trim(jb3), Trim(jc3), 10)
Print "jpp3="; jpp3
jpp3 = Mid(Trim(jpp3), 1, InStr(jpp3, ".") - 1)
jpp3 = mpc3(MbC(Trim(jpp3), 2), 1)
Text3 = Text3 & "jpp3=" & jpp3 & vbCrLf

ysr

ja2 = 1 & String(12, "0"): jb2 = 2 & String(12, "0"): jc2 = 3 & String(12, "0")
jd2 = 4 & String(12, "0"): je2 = 5 & String(12, "0")
jpp4 = jie4cifc(Trim(jb2), Trim(jc2), Trim(jd2), Trim(je2), Trim(ja2), 12)

(2B+1)F^4+【2N(2B+1)+(4N+1)(2B+1)】F^3-【N^2(2B+1)-2N(4N+1)(2B+1)-N(2N+1)(2B+1)】F^2
-【N^2(4N+1)(2B+1)-2N^2(2N+1)(2B+1)】F+【2DN^2-N^3(2N+1)(2B+1)】=0

注意符号，首先计算一下方程的系数a，b，c，d，e

Public Function jie4cifc(a2 As String, b2 As String, c2 As String, d2 As String, k2 As String, sd As String) As String
'解四次方程的代码如下（这个运行结果是对的）
a3 = mcc2(Trim(a2), Trim(k2), Val(sd))
b3 = mcc2(Trim(b2), Trim(k2), Val(sd))
c3 = mcc2(Trim(C2), Trim(k2), Val(sd))
d3 = mcc2(Trim(D2), Trim(k2), Val(sd))
jk = 8 & String(sd, "0")
ja1 = mbc2("-4" & String(sd, "0"), Trim(b3), Val(sd))
jb1 = mpc2(mbc2(2 & String(sd, "0"), mbc2(Trim(a3), Trim(c3), Val(sd)), Val(sd)), mbc2(8 & String(sd, "0"), Trim(d3), Val(sd)))
jc1 = mpc2(mbc2(Trim(d3), mpc2(mbc2(4 & String(sd, "0"), Trim(b3), Val(sd)), mbc2(Trim(a3), Trim(a3), Val(sd))), Val(sd)), mbc2(Trim(c3), Trim(c3), Val(sd)))
Y = jie3cifc(Trim(ja1), Trim(jb1), Trim(jc1), Trim(jk), Val(sd))
Y1 = zhengliys2(Trim(Y), Val(sd))

za = 1 & String(sd, "0")
z2 = mpc2(mpc3(mbc2(8 & String(sd, "0"), Trim(Y1), Val(sd)), mbc2(Trim(a3), Trim(a3), Val(sd))), mbc2(4 & String(sd, "0"), Trim(b3), Val(sd)))
z2 = mbbc2(qdfh(Trim(z2)), Val(sd))

zb1 = mcc2(mpc3(Trim(a3), Trim(z2)), 2 & String(sd, "0"), Val(sd))
zb2 = mcc2(mpc2(Trim(a3), Trim(z2)), 2 & String(sd, "0"), Val(sd))
zc1 = mpc3(Trim(Y1), mcc2(mpc2(mbc2(Trim(a3), Trim(Y1), Val(sd)), Trim(c3)), Trim(z2), Val(sd)))
zc2 = mpc2(Trim(Y1), mcc2(mpc2(mbc2(Trim(a3), Trim(Y1), Val(sd)), Trim(c3)), Trim(z2), Val(sd)))
y3 = jie2cifc(Trim(za), Trim(zb1), Trim(zc1), Val(sd))
y4 = jie2cifc(Trim(za), Trim(zb2), Trim(zc2), Val(sd))
jie4cifc = y3 & "   " & y4


End Function