《数论探秘》电子版

ysr

输入1:  a=1,  b=-2,  c=3,  d=4，e=5;  输出结果1:    x1,2=-0.5795978599+ -0.7253449538i,  x3,4=1.5795978599+ -1.8179487826i

这种情况应该是对的，求A的时候，根号里面是正值

ysr

代码如下：
Private Sub Command1_Click()
Dim a, b, c, d, f, g
Dim ja, jb, jc
k = DeleteSpace(Text1.Text)
ja = DeleteSpace(Text2.Text)
jb = DeleteSpace(Text3.Text)
jc = DeleteSpace(Text4.Text)
jd = DeleteSpace(Text5.Text)
sd1 = DeleteSpace(Text15.Text)
If Abs(Val(sd1)) <= 10 Then
sd = 10 + 2
Else
If Len(sd1) > 3 And Abs(Val(sd1)) > 300 Then
sd = 300 + 2
Else
sd = Int(Abs(Val(sd1))) + 2
End If
End If

a2 = zhengliys2(Trim(ja), Val(sd))
b2 = zhengliys2(Trim(jb), Val(sd))

c2 = zhengliys2(Trim(jc), Val(sd))
D2 = zhengliys2(Trim(jd), Val(sd))
k2 = zhengliys2(Trim(k), Val(sd))
If MBJC(Trim(k2), 0) = 0 Then
Text4.Text = "a 不能为 0"
   Text5.Text = "a 为 0可能已不是1元4次方程"
  Else
   
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))
End If
Text6 = zhengliys2(Trim(y), Val(sd))
Text8 = y
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))
Text9 = y3
Text10 = y4
Label1.Caption = Val(Label1.Caption) + 1
Text14.Text = Text14.Text & "  输入" & Label1.Caption & ":  " & "a=" & k & ",  b=" & ja & ",  c=" & jb & ",  d=" & jc _
  & "，e=" & jd & ";  输出结果" & Label1.Caption & ":    " & "x1,2=" & Text9.Text & ",  x3,4=" & Text10.Text
End Sub

ysr

Public Function jie2cifc(a2 As String, b2 As String, c2 As String, sd As String) As String '2次方程
Dim d, y
d = mbc2(Trim(b2), Trim(b2), Val(sd))
D1 = mpc2(Trim(d), mbc2(4 & String(sd, "0"), mbc2(Trim(a2), Trim(c2), Val(sd)), Val(sd)))
d3 = qdfh(Trim(D1))
D2 = mbbc2(Trim(d3), Val(sd))
y = mcc2(Trim(b2), mbc2(2 & String(sd, "0"), Trim(a2), Val(sd)), Val(sd))
sf = fhys(Trim(y))
sf = Val(-1 * sf)
y = tjfh(qdfh(Trim(y)), Val(sf))
y = shuchujg(Trim(y), Val(sd))
If mbjc2(Trim(D1), 0) >= 0 Then
d3 = mcc2(Trim(D2), mbc2(2 & String(sd, "0"), Trim(a2), Val(sd)), Val(sd))
d3 = shuchujg(Trim(d3), Val(sd))
Else
d3 = mcc2(Trim(D2), mbc2(2 & String(sd, "0"), Trim(a2), Val(sd)), Val(sd))
d3 = shuchujg(Trim(d3), Val(sd)) & "i"
End If
jie2cifc = y & "+ -" & d3
End Function

ysr

146376311461999081269477828239与146376311461999081269477838239之间有5对差大于200的素数对:
146376311461999081269477830561/210
146376311461999081269477831089/252
146376311461999081269477832013/232
146376311461999081269477832253/240
146376311461999081269477833801/558
用时2320.125秒

ysr

146376311461999081269477843187与146376311461999081269477853187之间有6对差大于200的素数对:
146376311461999081269477845357/336
146376311461999081269477848677/218
146376311461999081269477849653/226
146376311461999081269477850021/270
146376311461999081269477851783/360
146376311461999081269477852191/214
用时5969.21秒

ysr

146376311461999081269477852191与146376311461999081269477872191之间有14对差大于200的素数对:
146376311461999081269477855199/216
146376311461999081269477855881/258
146376311461999081269477856231/224
146376311461999081269477858353/214
146376311461999081269477860617/360
146376311461999081269477861613/534
146376311461999081269477862067/234
146376311461999081269477862403/202
146376311461999081269477862627/224
146376311461999081269477863527/224
146376311461999081269477864101/232
146376311461999081269477867191/208
146376311461999081269477867473/280
146376311461999081269477868609/372
用时4779.808秒

ysr

146376311461999081269477892189与146376311461999081269477902189之间有6对差大于200的素数对:
146376311461999081269477892967/336
146376311461999081269477896021/222
146376311461999081269477896437/416
146376311461999081269477896957/244
146376311461999081269477898837/206
146376311461999081269477899827/260
用时2368.659秒

ysr

146376311461999081269477761001与146376311461999081269477771001之间有11对差大于200的素数对:
146376311461999081269477761399/252
146376311461999081269477762061/242
146376311461999081269477763451/288
146376311461999081269477764627/208
146376311461999081269477765487/296
146376311461999081269477765719/208
146376311461999081269477768443/432
146376311461999081269477768761/228
146376311461999081269477769783/260
146376311461999081269477770747/268
146376311461999081269477771271/278
用时2339.91199999999秒

ysr

146376311461999081269477751399与146376311461999081269477761399之间有11对差大于200的素数对:
146376311461999081269477752261/300
146376311461999081269477752863/240
146376311461999081269477753239/228
146376311461999081269477754717/204
146376311461999081269477754927/204
146376311461999081269477755597/358
146376311461999081269477756857/270
146376311461999081269477757291/210
146376311461999081269477759041/322
146376311461999081269477760709/322
146376311461999081269477761399/252
用时2226.502秒

ysr

146376311461999081269477742261与146376311461999081269477752261之间有11对差大于200的素数对:
146376311461999081269477743123/202
146376311461999081269477743603/316
146376311461999081269477744841/204
146376311461999081269477746177/204
146376311461999081269477746513/220
146376311461999081269477746723/210
146376311461999081269477748159/228
146376311461999081269477748871/208
146376311461999081269477749173/222
146376311461999081269477750817/420
146376311461999081269477752261/300
用时2266.872秒