数学中国

 找回密码
 注册
搜索
热搜: 活动 交友 discuz
查看: 9989|回复: 31

[程序原创]大整数的除法

[复制链接]
发表于 2012-7-19 11:42 | 显示全部楼层 |阅读模式
[这个贴子最后由ysr在 2012/09/07 01:28pm 第 3 次编辑]

如下为程序代码,输入大整数,输出商的整数部分和余数,“/”号后面的为余数:
Private Sub Command1_Click()
Text3.Text = MCC1(Text1.Text, Text2.Text)
End Sub
Public Function MCC1(D1 As String, D2 As String) As String ';大整数的除法
Dim ss
ss = MBJC(D1, D2)
If ss = -1 Then
MCC1 = "0" & "/" & D1
  Else
  If ss = 0 Then
   MCC1 = 1
   Else
   If Len(D1) = Len(D2) Then
    MCC1 = "1" & "/" & MPC(D1, D2)
    Else
    If Len(D2) < 9 Then
     MCC1 = MCC(D1, D2)
     Else
    Dim X, Y ';定义分段长度
    X = Len(D1): Y = Len(D2)
   
Dim JW, jcc, jss, jcs

  Dim A() As String, B() As String
  
  ReDim A(1 To X)
  ReDim B(1 To Y)
  For I = 1 To X
  A(I) = Mid(D1, I, 1)
  Next
  For J = 1 To Y
  B(J) = Mid(D2, J, 1)
  Next
  jcc = Val(A(1) & A(2)) \ Val(B(1) & B(2))
   
      
        
  jss = MbC(Trim(jcc), D2)
   For i1 = 1 To Y
    jws = jws & A(i1)
      Next
  JW = MPC(Trim(jws), Trim(jss))
  
    z = X - Y
   
    Dim C() As String
    ReDim C(1 To z)
    For s = 1 To z
     If MBJC(JW & A(s + Y), D2) = -1 Then
       C(s) = "0"
       Else
     jwc = Val(Left(JW & A(s + Y), 3)) \ Val(Left(D2, 2))
      If Len(jwc) > 1 Then
      C(s) = "9"
       Else
        C(s) = jwc
         End If
      
     Do While MBJC(JW & A(s + Y), MbC(Val(C(s)), D2)) = -1
    C(s) = Right(10000 + Val(C(s) - 1), 1)
     Loop
     End If
   
     JW = MPC(JW & A(s + Y), MbC(Val(C(s)), D2))
     
    jcc = jcc & C(s)
    Next s
    If JW = 0 Then
    MCC1 = jcc
    Else
    MCC1 = jcc & "/" & JW
    End If
   
  For I = 1 To Len(MCC1)
    If Not Mid(MCC1, I, 1) = "0" Then
        Exit For
    End If
Next
strtmp = Mid(MCC1, I)
  If Len(strtmp) = 0 Then
  MCC1 = "0"
  Else
MCC1 = strtmp
End If
   
   
   
    End If
   
   
   
   
   
  
  End If
End If
End If
End Function
Public Function MbC(D1 As String, D2 As String) As String
Dim X, Y ';两数长度
X = Len(D1) \ 4: Y = Len(D2) \ 4
If Len(D1) Mod 4 = 0 Then
X = X
Else
X = X + 1
If Len(D2) Mod 4 = 0 Then
Y = Y
Else
Y = Y + 1
End If
End If
D3 = String(4 * X - Len(D1), "0") & D1
D4 = String(4 * Y - Len(D2), "0") & D2
Dim A() As String
ReDim A(4 To 4 * X + 4 * Y, 4 To 4 * Y)
Dim I, J, C1, C2, CJ, JW, s, t
For J = 4 * Y To 4 Step -4 ';D2
JW = 0 ';进位清0
C2 = Mid&#36;(D4, J - 3, 4) ';每位数
For I = 4 * X To 4 Step -4 ';D1
C1 = Mid&#36;(D3, I - 3, 4) ';每位数
CJ = Val(C1) * Val(C2) + JW ';计算乘积
C = I + J: r = 4 * Y + 4 - J
A(C, r) = String(4 - Len(CJ Mod 10000), "0") & CJ Mod 10000 ';本位
JW = CJ \ 10000 ';进位
Next
A(C - 4, r) = JW
Next
Dim B() As String
ReDim B(1 To X + Y)
JW = 0
For s = X + Y To 1 Step -1
Bit = JW
For t = 1 To Y
Bit = Bit + Val(A(4 * s, 4 * t))
Next
B(s) = String(4 - Len(Bit Mod 10000), "0") & Bit Mod 10000
JW = Bit \ 10000
Next
If B(1) > 0 Then
MbC = Val(Left(MbC, 5)) & Mid(MbC, 6) & B(1)
Else
MbC = Val(Left(MbC, 5)) & Mid(MbC, 6)
End If
For s = 2 To X + Y
MbC = Val(Left(MbC, 5)) & Mid(MbC, 6) & B(s)
Next
End Function
Public Function MPC(D1 As String, D2 As String) As String ';jianfaqi
Dim X, Y ';两数长度
If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
D3 = D1
Else
D4 = D2
D3 = String(Len(D2) - Len(D1), "0") & D1
End If
X = Len(D3): Y = Len(D4)
Dim A() As Integer, B1() As Integer, C1() As Integer, E1() As Integer
ReDim A(1 To X)
ReDim B1(1 To Y)
ReDim C1(1 To X)
ReDim E1(1 To X)
Dim I, J, C2, CJ, JW
For J = Y To 1 Step -1 ';D2
JW = 1 ';yu jie weichuzhi
B1(J) = Mid&#36;(D4, J, 1) ';每位数
For I = X To 1 Step -1  ';D1
   A(I) = Mid&#36;(D3, I, 1) ';每位数
   C1(I) = 10 + A(I) - B1(I) - 1 + JW ';计算jia
   JW = C1(I) \ 10
   E1(I) = C1(I) Mod 10
  Next
  Next
  For r = 1 To X
  MPC = MPC & E1(r)
  For I = 1 To Len(MPC)
    If Not Mid(MPC, I, 1) = "0" Then
        Exit For
    End If
Next
strtmp = Mid(MPC, I)
  If Len(strtmp) = 0 Then
  MPC = "0"
  Else
MPC = strtmp
End If
  Next
  
  
End Function



Public Function MBJC(D1 As String, D2 As String) As String ';bijiao
If Len(D1) > Len(D2) Then
MBJC = 1
Else
If Len(D1) < Len(D2) Then
MBJC = -1
Else
If Len(D1) = Len(D2) Then
Dim X, Y
X = Len(D1) \ 4: Y = Len(D2) \ 4
Dim A() As String, B() As String
ReDim A(4 To 4 * X + 4)
ReDim B(4 To 4 * Y + 4)
If Val(Left(D1, Len(D1) - 4 * X)) > Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = 1
  Else
  If Val(Left(D1, Len(D1) - 4 * X)) < Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = -1
  Else
  For I = 4 To 4 * X Step 4
  A(I) = Mid(D1, Len(D1) - I + 1, 4)
  B(I) = Mid(D2, Len(D2) - I + 1, 4)
  Next
  J = 4 * X
  Do While A(J) = B(J) And J >= 8
  
  J = J - 4
     Loop
     
     
   If Val(A(J)) - Val(B(J)) > 0 Then
   MBJC = 1
   Else
   If Val(A(J)) - Val(B(J)) < 0 Then
   MBJC = -1
   Else
   MBJC = 0
   End If
   
  End If
  
  
  
  
End If
End If
End If
End If
End If
End Function

Public Function MCC(D1 As String, D2 As String) As String ';除数少于8位的除法
If Len(D1) < Len(D2) Then
   MCC = "0" & "/" & D1
   Else
   If Len(D1) < 9 Then
    MCC = Val(D1) \ Val(D2) & "/" & Val(D1) - (Val(D1) \ Val(D2)) * Val(D2)
    Else
   
   Dim X ';fen duan changdu
   X = Len(D1)
   
     
   
     Dim A() As String
      ReDim A(1 To X)  ';定义数组的储存空间
      For I = 1 To X Step 1  ';把被除数各位放在a()中
       A(I) = Mid(D1, I, 1)
        
      
       Next I
      Dim B() As String
      JW = 0
     ReDim B(1 To X)
     For J = 1 To X Step 1
    B(J) = Val(JW & A(J)) \ Val(D2)
      JW = Val(JW & A(J)) - Val(B(J)) * Val(D2)
       Next J
       For r = 1 To X
       If JW = 0 Then
          MCC = MCC & B(r)
          Else
          CJ = CJ & B(r)
          MCC = CJ & "/" & JW
      
    End If
   
    For I = 1 To Len(MCC)
   If Not Mid(MCC, I, 1) = "0" Then
       Exit For
   End If
Next
strtmp = Mid(MCC, I)
If Len(strtmp) = 0 Then
MCC = "0"
Else
MCC = strtmp
End If
   
   Next
   
   End If
     
     End If
   
End Function

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub











输入:被除数:1153103961384478448404925715924378885327554202134226047348028294505040734467336124656452525279797166397567399850900985140768071391715673547272680475009022731025540851253778962537039004520776708021234701340368231774597408929744933116431873027001298810225982471847115310396138447844840492571592437888532755420213422604734802829450504073446733612465645252527979716639756739985090098514076807139171567354727268047500902273102554085125377896253703900452077670802123470134036823177459740892974493311643187302700129881022598247184711531039613844784484049257159243788853275542021342260473480282945050407344673361246564525252797971663975673998509009851407680713917156735472726804750090227310255408512537789625370390045207767080212347013403682317745974089297449331164318730270012988102259824718471153103961384478448404925715924378885327554202134226047348028294505040734467336124656452525279797166397567399850900985140768071391715673547272680475009022731025540851253778962537039004520776708021234701340368231774597408929744933116431873027001298810225982471847,
除数:
1153103961384478448404925715924378885327554202134226047348028294505040734467336124656452525279797166397567399850900985140768071391715673547272680475009022731025540851253778962537039004520776708021234701340368231774597408929744933116431873027001298810225982471847,
结果:1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001,
发表于 2012-7-20 19:24 | 显示全部楼层

[程序原创]大整数的除法

被除数和除数在程序中输入吗?还在程序运行后提示输入?
 楼主| 发表于 2012-7-20 21:20 | 显示全部楼层

[程序原创]大整数的除法

在控件中输入,在text1中输入被除数,在text2中输入除数,在text3中显示结果!
可以在text控件前面加lable控件,注明:被除数,除数,商和余数!
 楼主| 发表于 2012-7-20 21:23 | 显示全部楼层

[程序原创]大整数的除法

还要有计算和清除按扭,是两个控件,点计算则可以把输入数据计算并显示,点清楚则把text内的文本清除!
发表于 2012-7-21 07:16 | 显示全部楼层

[程序原创]大整数的除法

下面引用由ysr2012/07/20 09:20pm 发表的内容:
在控件中输入,在text1中输入被除数,在text2中输入除数,在text3中显示结果!
可以在text控件前面加lable控件,注明:被除数,除数,商和余数!
这样编程好是好,但是只限于做除法。只是要与其它程序衔接,比如说“除的结果”希望被其它程序调用,怎么办?
请楼主另给一种可以作为“子程序”调用的程序代码,将被除数和除数直接写在代码之中,运行之后直接显示结果。
另外,被除数和除数的位数有无限制?最多可以是多少位?运行速度有多快?
 楼主| 发表于 2012-7-21 12:40 | 显示全部楼层

[程序原创]大整数的除法

天山草老师好!这个就是可调用程序,如A/B=?可在主程序中调用:C=MCC1(A,B),就可,MCC1为任意位除法,MCC为除数小于8位的除法,含在其中了,若B少于8位也可以直接调用!最多不知能算多少位,MCC1位数无限制,速度没有测,1000多位的约8秒多!如上面例子是约260多*4(位)除以260多位,运行约8秒多1点,是手机测的!
同样位数的开平方需要不到3分钟!
发表于 2012-7-21 19:23 | 显示全部楼层

[程序原创]大整数的除法

[这个贴子最后由天山草在 2012/07/21 08:20pm 第 1 次编辑]

我有一个 商 = 整数 + 余数 &#160;的大数相除程序,但是代码在千里之外的老家的电脑里,好象是那个程序比楼主的短许多。
不过,无论我们怎样折腾,距离美国那个 mathematica,也是鸟枪比大炮,人家计算几千位,几万位,都是一瞬间。看一个实例:【参与计算的数有几千位吧,结果是 2 万位,运行时间远小于 1 秒钟】
N[27129422943371564536888816709924931330847306456783045423306158171686\
4698603893669471932660519158112422592699672608006779001727820330260233\
9056826854852942091333820323056889720402195448337779215536172738812960\
9117076280468099499138381808019745021261325212326755479534808032514585\
9534133537559055143891711472013207004138976083915030661689374117794977\
7629490753034326881865482786135657961643501912324168824122820947455860\
6899428545608792270942659088312017437331724149898973097801441127231686\
0704022118195745639439226203670627741977520982195625147136490602746373\
1980588951969083246756776136761383002792605570738968160236426853150333\
4657220681325035517398204468234398129487969924073478039786689333189703\
0159419829562328081549714371031816843841648229925507598382128895986001\
9376995858404518199412796479005362234896469935697056156943843711005760\
3833750745300554624759793028276072749847174504614560512511390287992974\
7748709373548075937654401226925969594684193931051554006909316772626768\
2163570265511992422081917084924481121835726426155735646436292805463540\
1096938349523940805536883250489418123679455112851846528168186299435814\
4379246903462418352549345363354689066011118689174716130939771202143191\
3499623625266319094395569026536792553837630728418535252347880923481821\
5423866054469724180676898253090807648772795719379975423499338765746264\
8204713802949900413766638497225239077356385780991487939146148322750420\
1677920800540381783790314579863313269836945755871462216658912157509633\
6542859734190051068436026281728684731562467564487120256884350636530057\
4270243934702339809903746950447867924719814468047766030142066318570515\
9919152284262297336367032651122068197988498878733992613952812201941170\
2880388142378681768368609528649173236171134431756008325756179241468211\
8058227250447507757510550443545918208646174025592172191358802830390385\
2381212761575528537193976563592268454231097033302697292230178279494338\
3351827373821148167223670712872408801569805152814035519690177618096372\
2321559248979335242656108746922616765486001937699585840451819941279647\
9005362234896469935697056156943843711005760383375074530055462475979302\
8276072749847174504614560512511390287992974774870937354807593765440122\
6925969594684193931051554006909316772626768216357026551199242208191708\
4924481121835726426155735646436292805463540109693834952394080553688325\
0489418123679455112851846528168186299435814437924690346241835254934536\
3354689066011118689174716130939771202143191349962362526631909439556902\
6536792553837630728418535252347880923481821542386605446972418067689825\
3090807648772795719379975423499338765746264820471380294990041376663849\
7225239077356385780991487939146148322750420167792080054038178379031457\
9863313269836945755871462216658912157509633654285973419005106843602628\
172868473156246/
&#160;12723168607040221181957456394392262036706277419775209821956251471364\
9060274637319805889519690832467567761367613830027926055707389681602364\
2685315033346572206813250355173982044682343981294879699240734780397866\
8933318970301594198295623280815497143710318168438416482299255075983821\
2889598600193769958584045181994127964790053622348964699356970561569438\
4371100576038337507453005546247597930282760727498471745046145605125113\
9028799297477487093735480759376544012269259695946841939310515540069093\
1677262676821635702655119924220819170849244811218357264261557356464362\
9280546354010969383495239408055368832504894181236794551128518465281681\
8629943581443792469034624183525493453633546890660111186891747161309397\
7120214319134996236252663190943955690265367925538376307284185352523478\
8092348182154238660544697241806768982530908076487727957193799754234993\
3876574626482047138029499004137666384972252390773563857809914879391461\
4832275042016712723168607040221181957456394392262036706277419775209821\
9562514713649060274637319805889519690832467567761367613830027926055707\
3896816023642685315033346572206813250355173982044682343981294879699240\
7347803978668933318970301594198295623280815497143710318168438416482299\
2550759838212889598600193769958584045181994127964790053622348964699356\
9705615694384371100576038337507453005546247597930282760727498471745046\
1456051251139028799297477487093735480759376544012269259695946841939310\
5155400690931677262676821635702655119924220819170849244811218357264261\
5573564643629280546354010969383495239408055368832504894181236794551128\
5184652816818629943581443792469034624183525493453633546890660111186891\
7471613093977120214319134996236252663190943955690265367925538376307284\
1853525234788092348182154238660544697241806768982530908076487727957193\
7997542349933876574626482047138029499004137666384972252390773563857809\
9148793914614832275042016733172414989897309780144112723168607040221181\
9574563943922620367062774197752098219562514713649060274637319805889519\
6908324675677613676138300279260557073896816023642685315033346572206813\
2503551739820446823439812948796992407347803978668933318970301594198295\
6232808154971437103181684384164822992550759838212889598600193769958584\
0451819941279647900536223489646993569705615694384371100576038337507453\
0055462475979302827607274984717450461456051251139028799297477487093735\
4807593765440122692596959468419393105155400690931677262676821635702655\
1199242208191708492448112183572642615573564643629280546354010969383495\
2394080553688325048941812367945511285184652816818629943581443792469034\
6241835254934536335468906601111868917471613093977120214319134996236252\
6631909439556902653679255383763072841853525234788092348182154238660544\
6972418067689825309080764877279571937997542349933876574626482047138029\
4990041376663849722523907735638578099148793914614832275042016779208005\
4038178379031457986331326983694575587146221665891215750963365428597341\
9005106843602628172868473156246756448712025688435063653005742702439347\
0233980990374695044786792471981446804776603014206631857051599191522842\
6229733636703265112206819798849887873399261395281220194117028803881423\
7868176836860952864917323617113443175600832575617924146821180582272504\
4750775751055044354591820864617402559217219135880283039038523812127615\
7552853719397656359226845423109703330269729223017827949433833518273738\
2114816722367071287240880156980515281403551969017761809637223215592489\
7933524265610874692261676548600193769958584045181994127964790053622348\
9646993569705615694384371100576038337507453005546247597930282760727498\
, 20000]
2.13228510768613140564564069967034069941299542182751175424555371696651\
6805933352720010911439769624507505475020780631165027806157243111510282\
2305659279999382371333794839197803300710530311413520406193786140927420\
9113625660412318603747461932199813167328472938857335498464935419202589\
9228736203076305448256871762274726377633607234490443483116863064004343\
9882856429643087834516692701430582398097703708088104729234166188433359\
1536428510768613140564564069967034069941299542182751175424555371696651\
6805933352720010911439769624507505475020780631165027806157243111510282\
2305659279999382371333794839197803300710530311413520406193786140927420\
9113625660412318603747461932199813167328472938857335498464935419202589\
9228736203076305448256871762274726377633607234490443483116863064004343\
9882856429643087834516692701430582398097703708088104729234166188433359\
1536428510768613140564564069967034069941299542182751175424555371696651\
6805933352721125135669339827499442046609096953356967408481031540767980\
6523068023452137860632517082620940923647736059354726650062520936920706\
5571915391704214772090110441994434602402048028654414008841037788319488\
8045103014887489064681785638056775936818865324085615744343734791044337\
9999542872141519622712064488442089880088490228212215638786842852439044\
2939919071411597665180758335504445269516621807751416081228498941025957\
6083975086306635124221592499386786577893275623036289458081760342594102\
7420533944503753602957837541827854247184792492600648370775984984498701\
4771957596329738791411593883112548364455457467564505289210997359376380\
1250261243631412499314798404955996952663614065023845157364891146314640\
6122661999843966718956624852637126719064976590199229996079879346572858\
6914308069386290330583001871634435516130601317920414725018886065527029\
4514786521701389912773845171274131109177454292715611507682489144420224\
8317999865555369345283164594920224522218008930977099552630216830523789\
1784999680095845181122070242603221501661298449347800052987683075198668\
6572898409777923093545156186422929966826670921916033932311682812967105\
1164980829901449858102616130754467145402043353906883108043206445423385\
8469883527449947661711929120889170841897173625660577440118464433580950\
7351853753241931147235216166423061020564777608421997428083096394585409\
2654003937945189561452727645252078756798185585102124871770717859225384\
8856199460073246916803765802435200182032279905989362569865287878802876\
9624916663964258458957682988396112031025155138884281143062707996591349\
7617025688219703038451414788449510028074918931178846535210445440633822\
6205562078743385578623700020598922007318182423556886945846961017731644\
6351674267449164783002013829973500799930746572929912228078514460141969\
4985835494071373833514046834714400356136985236115845784902721346861107\
9220363677506679660069426692711382584531411880077099557518500525487795\
6719290981954343575823321222623726564820349142639367455208979864544809\
2072176870209500881414358754396982308956887600186731366208897895595937\
3097001898953370677146367887237372380195891138192560214302104782167250\
8768117943937296559454090908203395463487714058820160191859788213098563\
8348231924053731221963182211997591030375331954750948184275829033922535\
1464175342570729385431191605473900543650270778216004526676830305493212\
0105435671734200956753340608427217654497168916800860809969918466943447\
8438440473811484091137042939777076916255562392894535977840705206332539\
2155312357564088118118582431932670998182005393802759459139809296301222\
0318037335859260573076009909720873088458675559679604269136850932772398\
1933787794055741126979128418431882624327426241991675395411625791314694\
3249338992447714678069252936106711363088657192204394905012931784388015\
4144789526273727316039921750687209063814458931513911535464681114392308\
6304638983665781534041645121263253680931080687995956711486062271127021\
0733103382464371301081202439680763224335595223992028083891548135480359\
2954652555150341174110991488602163050107546831219068921116274926534705\
1572807422715383051197366510537383201058384024011920278255664997514861\
2381420343922341953898281413407528959680088355606530493840363748777931\
9094316668746844465910689240205799343795201037925222440967609583215800\
0077994511221912885407149259588238382090619320147621499792012724929188\
9247560279231433057153750940489725744945281553302042528142804012827844\
4966681499339730835626095793426890804882127581853479512430455439687665\
9416069598118905508175679825331439168882305597741221303848945476146717\
5400054960441881953953322932657223955784590951337836260132665597468887\
8985710503300048280604194909169264168338429643624986883290466127307712\
2579096474702692197016153098895257230042904515674752406787088567595846\
8660024742024387686694072748134058832897272852715976524974088571399177\
7683174046350077889475098911347948751592255573498114202075681506550021\
5767051468093930990620920209380974060341147040943629605911802218202196\
3892040231931278238905253707886117798389895776155798990564707480556729\
2609130070428299022518842123529713045475860805029712728001640631169574\
7484999462619414479876309179519797823238814333967849645877037270567514\
2085523126867397852885149279359693268794923054442485819649579349476481\
9395880126957534870234680554820631405019756679230088314219358995378875\
9948538330184402629552099400472367356034844847151924044437894367416797\
0237762260231457476534650711829356852214590463920835992448184728714147\
6681940800244082810678885927105481228262227452192381862267764277025766\
5215546252772880358081421118497593522067257956103974337060084489297905\
1409224474620301389006342239449032760136322337803693986265536270275449\
0275834394570998575209256844007332600421357396267038766489950582824343\
4528786335169881152422688770528765631332293660842105022286068312335511\
2576094724038162007387170846819444511247894328860105159118729085451418\
1219140769388037367393506392162945229459226663006938199418470057922821\
5213658415581608374839726871366332365818160744476354570848337767354289\
1662887653467114460634032436048110710956929862575076488796004320078950\
7446240046022949964252293092460041756597714431034796641735030027556003\
0974515649344503167635251866751328324379160285626516047022305910648944\
5469481274375813418945743644534337652861544559466950457542000362252276\
1744153191674998482171784618541362447807792279734856917394012046864115\
8203482219114693731094465276170647144175356385700982502506676211212677\
2866025627598687803917012297101293447226625688951841576911423425011624\
3757297658198005073953438189379909908461784578464422305455836576480065\
8104373668436955091841639700841494828310895008771259219377724034276226\
6366460835381740353702521587942146332332918628068993323684457202316810\
5298915283316616202055095038408732671098995350525368977409046941405103\
1935760284107339039900995573605813840924533662728222360496123920658212\
1798673298445970453395513976900328687211738381971699077149188895598478\
6532235346254047548677703780704191325901109933255822659331726913780172\
8356391309244972464029604078403283862839363105135210569049973919728987\
4673170154332713319937515122489100849260197025129351955632024896550262\
6107963209527448942004379024272465994529234141175848962263171905056055\
8901687212987939753916975394303122511881734547266085705106554586524946\
6346308250293378451958662372119813891062634010002563177174494003467143\
1397451885269298656914106661095024829283377612522081277029841387883627\
0077337638685021606444448830984663775112749190180028140055767192972140\
1146874569523677176470624709187747134203371568422877315572040738739391\
5672914045871113481003151252127061986412363801972479885750345235715667\
9208493921539028751207014147477227350929791407539136631067589877794376\
2927657875504868641062973937466506216385574914504018015200849018824429\
5908537165570697569442182517595420040343328847206215323849570845345681\
7542657692862694928068365315579722637156238444407771882095446234130688\
2171134438084944947332021747973084610125724208738040900534920779166604\
7715454401485824599400360724653087057895709393964577115039106857381283\
6135675650841852500590635306931237481887048498585017323121284589474303\
9686878647209538520702532437621649384107891047710972351231835838608756\
2074145626458669997802156611556422676039273900346975744049000409197043\
0669453471719923761438118061371597125856460068143836597217732266563917\
4806282760911510098823742920745380087471529126772225227416057882125537\
0153488021742218970269773912735201175125414752446702376256430295710823\
9351863707887004591139244250888063924291100430535211001929613372865336\
1142523039310718701295724922535404117881707546644402856917991429586843\
6926649580648727116403944866111721559848507708248377039715462156662828\
5324143441118871522543171789496196043444998117665661806429745699755525\
4885917208916834365379528874996481868019761042896249876249233859469024\
3787902353132449335312097898008699243744377608527510349846414732824145\
3074790361103976260616117276145001228975697007698921404356914723924965\
3770754503366876539546158103017258859978388685875801467034516792523028\
9706855254346329390277983055102289819463094706712409299375929435358424\
3610991813243851637975818983146291903081962675679633538184447409345782\
5859650432775166921917844249538917047389147971244136388982789248049254\
0025967874435586695383050625277173361604133908035856256684821613702080\
4849575518030184987964649278374004637110369565479550958843405247873778\
8619966404390372200390953516929662510021730411291011399182455140133476\
1514288486082173807244622263623739607782723207397444117533409760887742\
9609338858173359711746622697981624390853416326632320477449014648008921\
4403916906356097701746360329573446474851835024423003299639735666704838\
6840151458656999325987723578739257091834117884449094396937284549727993\
0499757195231434758402597525620692243584928735483761792066162528463205\
8909782806697743263875076021634057762195508618912910982761269709001322\
9853360211844038186300899352550502603146148319553965425013386518830106\
2901082132837820746352128122927310414702198201499196747755503145189724\
9954821776155615276333144278588320245554816242511366509923137996452064\
3868603164497295896119744060029402324713743185062283742364708635794011\
1255721541199980926687143838284549646105930896224306997435257141859998\
9712629966333539178409298846026685021780845718492385054743598697097596\
2867679851572165948431676342258984124227378230398246805454403369859956\
7185875490814566762337959075843325070318529692361437988645625781354623\
4953184010483017151258896288173092270833588015669630180915329877349283\
2824896079306027301398175576542011223187555969798514437449657745001014\
5055771571324502811092731395253456143404840747051422275615296088081102\
9314598989792178615265522745980399468503315365337551014257611849700044\
0635751627651718153622208358140877376667768665869830285252172787666677\
6214889149325318368152510347311858141273042673465653382908985054702959\
0066514494377426989071846779392203886778002415113851925428238732934704\
9198387218324096661989475414745124311157121031083679932680290827741512\
8081473079971657319615106373555670074526144343898088736998246310614090\
6515546999313092185594327369053442056661585369354448427271479669686057\
7485494449250625563992657225944534218640806827845947941090614889209914\
5289277312894582662763135119599011474974606676280145152592804040885979\
0159864063519204342609854092580966601825409673654506956927931851093586\
2565646176126310462926697848402775932997476135218676294771002343587271\
5254054179561260614332312731573072513775184457600682805067525851513084\
6503308326941362278065051658468391955973240443096216883891801769086233\
1802986633164343127789824265654936338480780424559256867809074424493473\
1159911003074557322849467081920403690407584888043379429101178490203355\
1437057668232470568982064918760320437938751047120006119347812486766500\
7173912663352674705841510085252027333947868329595702338173261249636083\
1532404943409323760377288315480981981988691314687365134916949047028527\
6712878858847485058176513179396609400662512316549805415524366853235392\
7211681236786493680613394575085908027110470872855963749306595640337421\
9637604278710472618258888296456286938732212539317564209378321657082713\
1697645938081040173046191649852107205009665776843544777338588012052819\
5811870630789674591573174850356131355916717865708310819634530812271228\
4408387829908456040117399374464378862462020472223940189733075592233017\
0871880210362196608428267826479287353915921086901661650724391150751539\
5408670325069235017411930434427618706532058595367391708441508094313201\
5478897085176442534373082353732685849536107204175179800452525934691108\
3255968476057724756369949038254588705077472616502078569719408896182498\
2265646178107820625338244560075827413041484705449016092985085288108391\
7137513807723208670173587085675986312331699494274748175236981580777080\
9851673154551605305303405482154550670538618772063069379836601322074983\
7692184240144449110664811769187729601919637363859889933674698905237868\
0569529643573398792440715989031393156410109679983520768708413784895527\
3415023053439102654874081054530847157540535835421541726562460091490832\
4314747698041352348525351446446301469402834386992259701050621421747108\
2450566152074298545675840765636456826289486760308495474337597573318236\
4324083718756735155582496585611721147569874163184037425973696374176520\
9329031447257049744547202520779963052839942264237739550362111223624853\
8189958688872025648400044329118031089079944840940234060872677830945832\
8375570720149827645652951928903666038074478627113385410602410459645531\
7276881452322732921373626118714247731866946530390038276453760330177015\
1117947538235765173147706070038979361045277029084879775332858470233907\
7510650658411363798887975115975192525517895677910304379103319883652202\
4530028351079889563273692636719979574073945440713457738294559634393734\
3409976589391858201928726411014055464316305858029798484867315433627341\
6850760206753611380043401686769898446744125411526643798412632494283406\
1055834336478983416270589345334103822233613867273680367245149206075496\
7725827757527097228272724264479823597764148021439560177944016797286858\
0787466272843805086061954363974403705849722362444708004109503804466139\
0736488760466045858068279278269728296989313704399698336112047133491453\
1920401736761312494637252194003868549797203924132296803898017007409068\
4756667315236082081431877643927006707757062919700227409559795645005852\
1264087987199639105697164735677287027596223185396530361106418239059705\
4680389236188789953988052508605803234656175876816322929851836541437072\
5090773037021389637124491277416615298109770020173551438432382328217235\
9729490580020460437976536201750545443283208937334407937592335150303660\
1185746381810516976636977831958723191504457360332340659586905611021757\
6261785491044805235930886492924075983653704338507456419090346667979144\
6451192658065842969945960901807970904254491493309912877195002384345312\
4012271108494564430881236686649168382272990652091553694059698593485116\
2384301851682689481159547158257187054848787841588058685182329269249449\
0876801296259552003110972309458650772351779123581624995742806049198041\
7594837684440251607763795895051718933716641250957540266137216179762149\
6713162327000752635741894561173034119419767093877764867414337534703855\
0966638138375006948914124436828267652601290386524111920417083352580864\
6009915431105575850219690009074630298503504291982801675641148181041417\
4849072770482641477454015805169614835379989961349676736532308731168669\
9927555115438253189403313662507677924693547466519336483873138847419439\
9417213002566967931744171118820855410714353040574168937760043319285932\
5550274581919228765881355500527406120837752213560270216889289779774849\
2677206362977887780537707734339076836908742015919755289046748602705981\
7575605634433259268917512000417836651198674400081776602806528080612214\
5335142710833421881579125141823694368158759790333408097141784253007614\
0799985018846976600853981228615622991570067333274439411867448685715970\
9166180574552665481765563800068803643095117484659333308812263045142941\
3653600806695598458088613630329485685447031700594047524788829434873675\
2521698301560173953997035706807735598504925395105491254476342442662689\
9731808610542894991129837260404252010565861996600645067284330528857335\
4944871074765001308096014301979172451394624092635091051075641908838474\
4291368729812454544085138299948646133641316920825544782022105046134455\
1755909917425115683827909325118241393290063210410941773417094332745804\
0348871950845105384077638359046092197927022642771849549941022816712988\
4292630906218573910726877164372072210108194582956201604913496716190018\
6013171029941201737343364066457061283705351948653754000853191098075093\
2910761042597424983214724915836183102909595273206594449309747700325790\
1391938832981075725069053571674648703822774356823918222709600091796365\
0157211598425417616205932982204160534832834383974837852023773406697737\
5397050845420330390418427906959916299731160652778046832848826942002925\
9574249398935393249086948159637181747342041801711679335763135031499535\
0204121841200159101777583550955112174868186174174406874596086238949553\
9555554764949173190462889074962943520303365542215949660767167217839469\
0717615339408865133469218547704176531083523908520476185839611745664070\
5108268947784934981105483957737641705511067703309089611735083639570133\
5699628082980263507852875099359011757165908383411514543659455913787858\
4531912138340992257269436027242783873687984540833381330571214769126825\
1501509581702251658213198286309231032565143370603863523090485100321602\
3306966748687993519541376665577659060866513422533405407044696223343278\
9484696861821388245789081053800491947428586817821765193411958032510966\
3749200264946460231531028436443304393703547696672987330589363483728792\
7862973321758145034673947029585288434011592249583423747302156335982397\
3582836173877215650970487786594640270108100538752098539276409322820467\
6379232506128383565673908481213521776684239837166007560432900043016385\
5798461879535503917383233466729299928475949795462081311994097995444423\
7782038116790139979699989445164270028505278316549156670644941425542402\
8119207774959667554026330534012168284679896968346839221461366932990071\
9808781706515931207542931057011849759483767868455072442846550620268729\
2802261928380445527081187828091693945401376968733386803206741108892214\
3540190488127004788550090316167838403814595500272329184448068796336297\
5063831421941599478683758958471956805801091157011399461079926965314679\
5657695923425597084479366377015214268239769418773519631187611713894370\
6134974047736026891353651187764903704270158579764147972310936213590297\
4419073868902792035865428742211102243197850801607051580412292710167490\
5832763667251139918898077886399396620369128227927030734717123463976547\
4668798207183384642107066023961725874645039911172214431426400909024838\
9832786856856755533543282943063129665446057296895253804942326507221399\
3366426554888186992743960484725440525396439078212367107709160493609647\
5267844896622342380298305367900894748955641244093936765699191000684595\
1855727555034005721300442867792112109030810901956694477164435809247401\
6649311781047724706694457979298993667433593538829022168808842670298786\
2075292741811955086278517235109059583455373950850589671107601403216600\
6338912867418302599504702182938112782817758972602598494728301734526068\
1868544176664270547065820288658237764515223687688499936244496621153655\
7573560817379133477322172640032652935922451638643407029783617100279866\
6379667393561701050819764438868064150088177186594153860672480767610444\
1277086754136833824435514731886007720469683216059292815517628673099428\
2395158548668890595702809858820948436427717986122450181163370912292775\
4529689792020354569031663108406202111494342544136648073409163589361415\
0367194801453243349948548217633190729167489818626628124088351365536252\
6052844146400409994879761161669919340387726490665680514013684080811783\
5106991164700997926973852743472876588255698945147021693299051084142228\
0615299444031285105349161759335898963933197245388929979066431164812017\
0442459657967109015774714894819247214195522827760952990329336100796215\
8335067012112824671865648825167097566204099139633093194793995447643467\
3075862428896428204220162050021482956994617866636415261944399004300386\
9438794958494201508934661666202201106091748776895576151027253372231155\
147033442385399674084395790253603387709721679495904*10^-755
 楼主| 发表于 2012-7-22 13:09 | 显示全部楼层

[程序原创]大整数的除法

哈,够长的!据说利用傅立叶变换做的除法乘法和开方程序,时间可以很短,不会!不知该软件是否利用了傅立叶变换?
 楼主| 发表于 2012-8-7 13:30 | 显示全部楼层

[程序原创]大整数的除法

[这个贴子最后由ysr在 2012/08/14 09:03pm 第 1 次编辑]

主楼程序已修改,欢迎试用,批评!主要改了jwc,原稿jwc有多与2位的时候,就出错,谢谢朋友关注!
 楼主| 发表于 2012-9-7 13:11 | 显示全部楼层

[程序原创]大整数的除法

主楼程序修改,主要改了比较大小的子程序MBJC,
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|数学中国 ( 京ICP备05040119号 )

GMT+8, 2024-3-29 19:24 , Processed in 0.092773 second(s), 16 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表