目前难于分解的合数

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)))
h = MPC(Trim(jx), MbC(Trim(ff1), Val(b8)))
h = MPC(Trim(h), zhengchuqy(MCC(MPC(zhengchuqy(MCC1(Trim(A), Trim(jpp2))), Trim(jpp2)), 4)))
jqq3 = MPC(Trim(A), MbC(Trim(jqq2), Trim(jpp2)))
jqq3 = MPC1(Trim(jqq3), MbC(Trim(jpp2), Trim(h)))
jpp3 = zhengchuqy(MCC1(Trim(A), Trim(jqq3)))
Print "jpp3="; jpp3
Text3 = Text3 & "jpp3=" & jpp3 & vbCrLf & "jff3=" & MPC(Trim(jpp3), Trim(jpp2)) & vbCrLf

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)))
h = MPC(Trim(jx), MbC(Trim(ff1), Val(b8)))
h = MPC(Trim(h), zhengchuqy(MCC(MPC(zhengchuqy(MCC1(Trim(A), Trim(jpp2))), Trim(jpp2)), 4)))
jpp3 = zhengchuqy(MCC1(Trim(A), MPC1(Trim(jqq2), MbC(Trim(h), 4))))
Print "jpp3="; jpp3
Text3 = Text3 & "jpp3=" & jpp3 & vbCrLf & "jff3=" & MPC(Trim(jpp3), Trim(jpp2)) & vbCrLf

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 = 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
jpp3 = Mid(Trim(jpp3), 1, InStr(jpp3, ".") - 1)
jpp3 = MPC1(MbC(Trim(jpp3), 2), 1)
Text3 = Text3 & "jpp3=" & jpp3 & vbCrLf