[求助]大整数的整除及求余法是否有问题

ysr · 发表于 2012-3-25 07:58

收到火花的退稿信:
ysr先生/女士：您好！
   首先，感谢您对本栏目的关注！
   经专家审阅，认为本稿件表面看给出一种“新的方法”，但实际上与原来的方法是一样的，没有给出有意义的新方法。这不符合本栏目的要求，因此予以退稿。

                                                                  此致
敬礼！
                                                                              《科学智慧火花》编辑组
                                                                                          2012年03月23日
为何1样?别人也这么做吗?

ysr · 发表于 2012-3-25 11:15

在去年4月曾收到<读写算杂志>的广告,投稿本文,回信说录取,但要交版面费和荣誉证制作费,因收入不高,月工资千余元,又本公司当月拖欠工资,没有汇款,也再没有收到回信!
  这是我几十年来第1次收到被录取的稿件,可惜没有带来荣誉,更别说经济效益,
民科投稿真难哪!而伪劣"产品"却大行其道,简单可靠的软件不能推出,令人痛心!
以下为当时回信原稿
●中国记者网查询网址：http://press.gapp.gov.cn ●中国核心期刊（遴选）数据库
录  用  通  知  书

王彦会老师：                                           编号：H10235

您的论文《大整数的除法及求余》经《读写算》杂志教育教学研究编辑部审核，已被本刊录用,并拟在 2011 年  5 月刊出。
《读写算》杂志是经国家新闻出版总署批准，由中央教科所课程教学研究中心与湖北省荆门教育科学研究所联合主办的教育类学术期刊，是中国教育理论期刊协会会员刊物。
国内统一刊号：CN42-1078/G4，国际标准刊号：ISSN1002-7661，邮发代号：38-520。欢迎各类大中专院校和科研院所、中小学教育专家、学者、教师踊跃投稿。
一﹑主要栏目：教育探讨、教学实践、教改理论、课程研究、职业指导、课堂设计等。
注：《读写算》杂志每篇录用稿件将收取一定的版面费用。您的论文经审核并作酌情减免，总费用为400元。（邮局汇款时请在附言栏注明论文编号。）
同时，您的稿件也参与了本刊的论文大赛评选活动，决定授予三等奖。本着自愿的原则，参赛者需要承担证书工本费用 80 元（评审、证书制作、挂号邮寄等费用）。
请慎重考虑，为了不延误您论文的刊载，请您在近期将费用通过银行电汇方式办理完毕。本刊收到汇款后将立即给予安排版面出刊，待杂志出版后赠送该期杂志2册。
银行汇款：（银行转帐后请速来电话查询010-85926396）
建设银行：1102  4699  8013  0292  030 户名：张晗暄  ( )金额：（）
工商银行：0200  0530  0102  6484  783  户名：张晗暄  ( )金额：（）
邮政储蓄：6010  0533  5200  0963  92 户名：张晗暄  ( )金额：（）
邮局汇款：北京清华大学84-162信箱《读写算》杂志社编辑部收邮编：100084 （）
注：1、为便于区别，帐号汇款时，建议添加几分钱零头作尾数，谢谢！

ysr · 发表于 2012-3-25 11:21

查看投稿情况,显示只有2篇还在处理中,其他均已被退!
我的投稿列表

编号标题类型稿件附件投稿时间稿件状态
1 哥德巴赫猜想的1个必要条件（修订版）原稿  无 2012-01-07 13:49:05 处理中
2 哥德巴赫猜想的1个必要条件原稿  无 2012-01-07 13:40:49 已删除
3 大整数的乘法及开方（替代版）原稿  无 2011-12-24 13:06:08 退稿
4 修改：费尔马定理的初等证明（修改版... 修改稿  无 2011-12-20 13:38:54 退稿
5 修改：费尔马定理的初等证明（在线版... 修改稿  无 2011-12-19 22:10:19 退稿
6 RSA公钥密码的破解(完整版) 原稿  无 2011-11-27 18:30:35 退稿
7 RSA公钥密码的破解（补充调整版）原稿  无 2011-11-24 18:14:44 退稿
8 RSA公钥密码的破解(补充举例版的再补... 原稿  无 2011-11-21 17:10:11 处理中
9 RSA公钥密码的破解(补充举例版) 原稿  无 2011-11-20 16:47:18 处理中
10 费尔马定理的初等证明的几何插图原稿  无 2011-11-17 17:54:01 退稿
11 费尔马定理的初等证明(第3页) 原稿  无 2011-11-17 15:13:06 退改已修改
12 RSA公钥密码的破解原稿  无 2011-11-17 14:23:13 退改未修改
13 费而马定理的初等证明(第4页) 原稿  无 2011-11-17 14:03:28 退改未修改
14 费尔马定理的插图原稿  无 2011-11-17 13:43:23 退改未修改
15 费尔马定理的初等证明（在线版）原稿  无 2011-11-17 13:32:40 退改已修改
16 大整数的乘法及开方原稿  无 2011-11-14 12:03:56 退稿
17 大整数的除法及求余原稿  无 2011-11-12 18:24:06 退稿
18 RSA公钥密码的破解原稿  无 2011-11-11 16:21:57 退稿
19 费尔马定理的初等证明原稿  无 2011-11-08 10:36:22 退稿
我要投稿
查看投稿情况
个人资料修改
修改密码

ysr · 发表于 2026-2-2 23:22

Public Function MCC4(D1 As String, D2 As String) As String ';大整数的除法
'可能还有优化和提高速度的空间
Dim ss
ss = MBJC(D1, D2)
If ss = -1 Then
MCC4 = "0" & "/" & D1
  Else
  If ss = 0 Then
MCC4 = 1
Else
If Len(D1) = Len(D2) Then
Do While MBJC(D1, D2) >= 0
S1 = S1 + 1
D1 = MPC(D1, D2)
Loop
If D1 = 0 Then
MCC4 = S1
Else
MCC4 = S1 & "/" & D1
End If
Else
If Len(D2) < 9 Then
   MCC4 = MCC(D1, D2)
   Else
Dim X, Y ';定义分段长度

X = Len(D1) \ 4: Y = Len(D2) \ 4
If Len(D1) > 4 * X Then
X = X + 1
D1 = String(4 * X - Len(D1), "0") & D1
ElseIf Len(D2) > 4 * Y Then
Y = Y + 1
D2 = String(4 * Y - Len(D2), "0") & D2
Else
D1 = String(4 * X - Len(D1), "0") & D1
D2 = String(4 * Y - Len(D2), "0") & D2
End If
  X = Len(D1) \ 4: Y = Len(D2) \ 4
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 * 4 - 3, 4)
  Next
  For J = 1 To Y
  B(J) = Mid(D2, J * 4 - 3, 4)
  jws = jws & A(J)
  Next
If Len(qqdl(Trim(jws))) <= Len(qqdl(D2)) Then
  jcc = Val(Left(qqdl(A(1) & A(2)), 2)) \ Val(Left(qqdl(B(1) & B(2)), 2))
  Else
  jcc = Val(Left(qqdl(A(1) & A(2)), 2 + Len(qqdl(Trim(jws))) - Len(qqdl(D2)))) \ Val(Left(qqdl(B(1) & B(2)), 2))
  End If

  jss = MbC(Trim(jcc), D2)


   Do While MBJC(Trim(jws), Trim(jss)) = -1
   jcc = jcc - 1
   jss = MbC(Trim(jcc), D2)
   Loop
  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) = "0000"
   Else
   If Len(qqdl(JW & A(s + Y))) = Len(qqdl(D2)) Then
  jwc = Val(Left(qqdl(JW & A(s + Y)), 4)) \ Val(Left(qqdl(B(1) & B(2)), 4))
  Else
  If Len(qqdl(JW & A(s + Y))) <= Len(qqdl(D2)) Then
  jwc = Val(Left(qqdl(JW & A(s + Y)), 4)) \ Val(Left(qqdl(B(1) & B(2)), 4))
  Else
  jwc = Val(Left(qqdl(JW & A(s + Y)), 4 + Len(qqdl(JW & A(s + Y))) - Len(qqdl(D2)))) / Val(Left(qqdl(B(1) & B(2)), 4))
  jwc = Format(Val(jwc), "0.000000")
  If InStr(jwc, ".") = 0 Then
  jwc = jwc
  Else
  jwc = Left(jwc, InStr(jwc, ".") - 1)
  End If
  End If
  End If
   c(s) = jwc
      End If
   jsw = MbC(Trim(c(s)), Trim(D2))
   Do While MBJC(JW & A(s + Y), Trim(jsw)) = -1
   c(s) = c(s) - 1
   jsw = MbC(Trim(c(s)), D2)
   Loop
   JW = MPC(JW & A(s + Y), MbC(Val(c(s)), D2))
   Do While MBJC(Trim(JW), Trim(D2)) >= 0
   jwc1 = jwc1 + 1
   JW = MPC(Trim(JW), Trim(D2))
   Loop
   c(s) = Val(c(s) + jwc1)
c(s) = Right(100000000 + Val(c(s)), 4)

jcc = jcc & c(s)
Next s
If JW = 0 Then
MCC4 = jcc
Else
MCC4 = jcc & "/" & JW
End If

  For I = 1 To Len(MCC4)
If Not Mid(MCC4, I, 1) = "0" Then
      Exit For
End If
Next
strTmp = Mid(MCC4, I)
  If Len(strTmp) = 0 Then
  MCC4 = "0"
  Else
MCC4 = strTmp
End If

End If

  End If
End If
End If
End Function

		自动登录	找回密码
密码			注册

[求助]大整数的整除及求余法是否有问题