时间进度怎么计算检测如何使用宏的计算

点击联系发帖人 时间：2015-12-15 02:09

时序进度计算公式

如何使用excel宏命令快速完成财务指标的计算 - 会计学习网
当前位置： >
如何使用excel宏命令快速完成财务指标的计算
时间： 13:44 作者：会计学习网
　事实上在同一家单位里，你所编制的会计报表其格式一般都是固定不变的，每月如此，每季如此，每年如此。除非财政部又发通知，要求变更。
　　由于报表格式不变，计算公式不变，每月重复，是可以利用宏来完成的。其步骤如下：
　　首先，建立报表分析数据源。以后报表项目不变，我们只改变报表项目金额就可以了。在利用财务软件的情况下，只要导出报表就可以了，也省了重新输入的麻烦。
　　我们在EXCEL中建立三张报表，资产负债表，利润表，现金流量表，如图：
　　图：在EXCEL中建立报表的数据源
　　其次，录制宏命令。
　　(1)执行【开发工具】/〖录制宏〗命令，(在2003版中，是&工具&菜单下)在录新新宏的对话框中输入宏的名称，保存在个人宏工作簿中，以便让她能在所有的工作簿中发挥作用，如下图：
　　图：录制新宏，宏的命名
　　(2)然后新增工作表，在新增的工作表中输入需要计算的各项指标，并利用引用方式进行各种财务指标的计算公式设置。
　　图：利用引用方式进行各期各项指标的计算公式设置
　　这项工作是不能偷懒的，第一次嘛，要做认真，要一项一项地设置，而且要做对。注意，一定要以引用的方式建立计算公式，如流动比率计算公式，是等于流动资产合计/流动负债合计见上图。
　　(2)操作完成后，执行【开发工具】/〖停止录制〗命令，此时，宏命令就录制完成了。
　　以后，计算新报表的财务指标。当你新的年报出来了，或是月报出来，你只要执行相应的宏命令就可以了。
　　图：执行宏命令
　　你会注意到，一张反映各期财务指标的工作表出来了，其间不需花费2秒钟，当然，你也可以象我一样再进行录制比较资产负债表，结构资产负债表的宏命令制作。
　　这一切，将工作变得更轻松，更有效率。注册会计师
如何使用excel宏命令快速完成财务指标的计算
导读：在财务管理工作中，我们经常需要计算各种财务比率；你可能会很忙，尤其是在一家中小企业里，你的角色很多，在单位里，既是会计又是办公室管理人员，在家里，又要为人母，为人父……。你没有时间主动地进行财务报表的比率计算与分析。
　　事实上在同一家单位里，你所编制的其格式一般都是固定不变的，每月如此，每季如此，每年如此。除非财政部又发通知，要求变更。
　　由于报表格式不变，计算公式不变，每月重复，是可以利用宏来完成的。其步骤如下：
　　首先，建立报表分析数据源。以后报表项目不变，我们只改变报表项目金额就可以了。在利用财务软件的情况下，只要导出报表就可以了，也省了重新输入的麻烦。
　　我们在EXCEL中建立三张报表，，利润表，，如图：
　　图：在EXCEL中建立报表的数据源
　　其次，录制宏命令。
　　(1)执行【开发工具】/〖录制宏〗命令，(在2003版中，是&工具&菜单下)在录新新宏的对话框中输入宏的名称，保存在个人宏工作簿中，以便让她能在所有的工作簿中发挥作用，如下图：
　　图：录制新宏，宏的命名
　　(2)然后新增工作表，在新增的工作表中输入需要计算的各项指标，并利用引用方式进行各种财务指标的计算公式设置。
　　图：利用引用方式进行各期各项指标的计算公式设置
　　这项工作是不能偷懒的，第一次嘛，要做认真，要一项一项地设置，而且要做对。注意，一定要以引用的方式建立计算公式，如流动比率计算公式，是等于合计/流动负债合计见上图。
　　(2)操作完成后，执行【开发工具】/〖停止录制〗命令，此时，宏命令就录制完成了。
　　以后，计算新报表的财务指标。当你新的年报出来了，或是月报出来，你只要执行相应的宏命令就可以了。
　　图：执行宏命令
　　你会注意到，一张反映各期财务指标的工作表出来了，其间不需花费2秒钟，当然，你也可以象我一样再进行录制比较资产负债表，结构资产负债表的宏命令制作。
　　这一切，将工作变得更轻松，更有效率。
延伸阅读：
（责任编辑）
热门课程推荐
加载更多文章
加载更多文章
加载更多文章
加载更多文章
加载更多文章
加载更多文章
加载更多文章
加载更多文章
会计网官方微信
扫描二维码，即刻与小K亲密互动，还有劲爆优惠等你来拿！
订阅QQ邮件
第一时间获取热门财会资料！
版权所有 Copyright (C) 2010 - 2016
All Rights Reserved　
除特别注明外，作品版权归会计网所有。如果无意之中侵犯了您的权益，请，本站将在三个工作日内做出处理。VIN码(车架号)校验码计算与检测宏下载选择下载点 - 免费资料下载 - 项目源码网
VIN码(车架号)校验码计算与检测宏
更新日期：
资料分类：
资料大小：9.72KB
资料标签：
资料授权：免费共享
下载次数：22次
应用平台：WinXp, Win2003, Win2000, WinVista, Win9x
如果本资料错误或暂时无法下载，请联系我们
VIN码(车架号)校验码计算与检测宏选择下载点
VIN码(车架号)校验码计算与检测宏相关资料
VIN码(车架号)校验码计算与检测宏评论
{T_softComment}
本周热门资料最简单的12个proteus仿真!适合单TinyOS是UC Berkeley (高教版，唐朔飞编，计算机组成原理课件，与里面有教材的全部习题和例题答案很全可以提取网卡地址号&br/&使用uggripwin7 loader jihuo go删除svn目录的注册表脚本&br/&可以系统集成项目管理师采购管理模拟试题及答案SEKU全书.part12.rarSEKSEKU全书.part10.rarSEK
热门关键词
源码网资料下载 () - 最大的软件项目资料下载站1273人阅读
中语言计算技术研究与发展联盟
&&& 圆周率是数学领域内的一个基本常数，甚至是整个世界的一个基本常数，也是最有用的常数之一，同时也是非常神秘的一个常数。因此自古以来就有非常多的人想尽办法来计算圆周率，以求更加精确，当然现在人们已经知道它是个无理数，而且是个超越数。计算它的意义似乎主要在于满足某种兴趣，当然人们也喜欢将此作为测试程序和机器性能的工具。
&&& 中国人在圆周率的计算上曾有不错的结果，这里最高成就当然是祖冲之了，他计算出了圆周率的位于3.1456926和3.1415927之间的这样一个领先世界近千年的结果，而刘徽之前也曾得到了来不起的结果。然而这样的成就在中国历史上从此成为绝响，而自唐宋之后中国人在计算能力以及其它科技能力上落后世界太多。从中可以窥见中国人在计算能力上的没落以及智力上的总体下降，更宏观的景象则是整个种族在文明的败落和精神上的颓废。
&&& 又联系到中国当前实质上基于计算的现代信息技术的状况和我们所处的环境，这种感觉更加令人沮丧。然而时代毕竟已经同曾经的历史惯性截然不同，前所未有的技术时代为有着伟大理想和不凡追求的人提供了前所未有的机遇。
&&& 中语言项目的诞生正当其时。它正如其旗图所展示的那样，它是黑暗中的光明，它有信心用自己穿透黑暗的光芒来唤醒中国那些处于迷失和恍惚中但却有着高贵和卓越天性的中国文明传承者，使得他们在不远的将来很有热情的投入到以自己的语言书写一片新的程序天地和以自己的智慧创造一个新的计算机世界这样一件伟大的事业中来。
&&& 下面，中语言将以自己的符号系统来实现圆周率的算法。这个程序翻译自gmp库用于计算圆周率的gmp-chudnovsky.c文件。它所采用的算法实质是Chudnovsky算法，这是一种使用快速收敛的级数序列计算圆周率的方法。
&&& 如果祖冲之能穿越时空来看到这个程序，他会认同吗？另外有趣的是，这个程序的原作者从其署名看似乎是个华裔，这似乎象征着某种轮回。而很有幸的是，中语言是这个轮回圆圈上的一点。
&&& 完整程序如下：
程序的执行结果如下（1000位）：
/*使用中语言计算圆周率.
此程序翻译自gmp库的圆周率计算程序的源代码gmp-chudnovsky.c.
中语言计算技术研究与发展联盟舒生羽
/* Pi computation using Chudnovsky's algortithm.
* Copyright
Hanhong Xue (macroxue at yahoo dot com)
* Slightly modified 2005 by Torbjorn Granlund to allow more than 2G
digits to be computed.
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions are met:
* 1. Redistributions of source code must retain the above copyright notice,
* this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright notice,
* this list of conditions and the following disclaimer in the documentation
* and/or other materials provided with the distribution.
* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
* EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
定项子_一次部偏量: 向目= <span style="color:#591409;
定项子_一次部倍量: 向目= <span style="color:#5140134;
定项母_旺式部底量: 向目= <span style="color:#0320;
定全项倍量: 向目= <span style="color:#;
定每位爻数: 日浮= <span style="color:#.;
定每迭位数: 日浮= <span style="color:#.4776555;
定双倍精度: 元= <span style="color:#;
定因子式_初始尺度: 元= <span style="color:#;
因子式: 类=
_最多因子: 向目;
_因子数: 向目;
_因子: &向目&-址;
_幂次: &向目&-址;
显示+: ()-&();
复零+: ()-&();
生+: (尺度: 目元);
开启+: (尺度: 目元)-&();
生+: ();
死+: ();
清空+: ()-&();
伸缩+: (比例: 目元)-&();
/* 己 = 底数^幂次 */
获值+: (底数: 向目* 幂次: 目元)-&();
/* 果 = 左参 * 右参 */
相乘+: (果: &因子式&-牵* 左参: &因子式&-牵* 右参: &因子式&-牵)-&();
/* 参数-&* 几 */
累乘+: (参数: &因子式&-牵)-&();
/* 底数^幂次 -&* 己 */
累乘+: (底数: 向目* 幂次: 向目)-&();
/* 去掉幂0的因子*/
压缩+: ()-&() 直;
将因子化形式转化成数字*/
化式乘法+: 旁 (果: 太元* 甲参: 目元* 乙参: 目元)-&();
/* 左参 /= 基.公因数(左参,右参), 右参 /= 基.公因数(左参,右参) */
去掉共因子+: 旁 (左参: &太元&-牵* 左参因: &因子式&-牵* 右参: &太元&-牵* 右参因: &因子式&-牵)-&();
因子: 目元;
幂次: 目元;
下邻: 目元;
程序名: &口&-址;
出掩: 元= <span style="color:#;
筛组: &筛型&-址;
筛组尺度: 向元;
因式累积: 因子式;
项母增式窖, 项子全式窖, 阶乘约式窖: &太元&-址;
因子式_项母增式窖, 因子式_阶乘约式窖: &因子式&-址;
底端: 向元= <span style="color:#;
进度, 百分比: 日浮= <span style="color:#;
母窖底: ()-&(&太元&-牵)=基.项母增式窖[基.底端];
子窖底: ()-&(&太元&-牵)=基.项子全式窖[基.底端];
约窖底: ()-&(&太元&-牵)=基.阶乘约式窖[基.底端];
因母窖底: ()-&(&因子式&-牵)=基.因子式_项母增式窖[基.底端];
因约窖底: ()-&(&因子式&-牵)=基.因子式_阶乘约式窖[基.底端];
母窖底内侧: ()-&(&太元&-牵)=基.项母增式窖[基.底端 + <span style="color:#];
子窖底内侧: ()-&(&太元&-牵)=基.项子全式窖[基.底端 + <span style="color:#];
约窖底内侧: ()-&(&太元&-牵)=基.阶乘约式窖[基.底端 + <span style="color:#];
因母窖底内侧: ()-&(&因子式&-牵)=基.因子式_项母增式窖[基.底端 + <span style="color:#];
因约窖底内侧: ()-&(&因子式&-牵)=基.因子式_阶乘约式窖[基.底端 + <span style="color:#];
最小: (甲: 向目* 乙: 向目)-&(向目)=甲 & 乙 ? 乙 : 甲;
最大: (甲: 向目* 乙: 向目)-&(向目)=甲 & 乙 ? 乙 : 甲;
/* 返回以毫秒测量的用户的CPU时间.
计算机时刻: ()-&(元)=
归 (现下时刻() -: [日浮] * <span style="color:#00 / CLOCKS_PER_SEC) -: [元];
因子式::显示: ()-&()=
过(索@[<span style="color:# : _因子数 -: [元] - <span style="color:#])
若(_幂次[索] == <span style="color:#)
打印文套(&%ld &, _因子[索]);
打印文套(&%ld^%ld &, _因子[索], _幂次[索]);
打印文套(&\n&);
因子式::复零: ()-&() 直=
<span style="color:# -& _因子数;
因子式::生: (尺度: 目元)=
开启(尺度);
因子式::开启: (尺度: 目元)-&()=
若(尺度 & 因子式_初始尺度)
因子式_初始尺度 -& 尺度;
地生 &尺度 * <span style="color:#, 向目&-阵 -& _因子;
_因子 + 尺度 -& _幂次;
尺度 -& _最多因子;
因子式::生: ()=
开启(因子式_初始尺度);
因子式::清空: ()-&()=
若(_因子 != 零址)
地死 []_因子;
零址 -& _因子;
因子式::死: ()=
因子式::伸缩: (比例: 目元)-&() 直=
若(_最多因子 & 比例)
地死 []_因子;
开启(比例);
/* 底数^幂次 -& 己 */
因子式::获值: (底数: 向目* 幂次: 目元)-&()=
索: 目元;
<span style="color:# -&/ 底数;
过(索-&[<span style="color:# : ^(<span style="color:#;基.筛组[底数].下邻 -& 底数) : %(底数 & <span style="color:#)])
基.筛组[底数].因子 -& _因子[索];
基.筛组[底数].幂次 * 幂次 -& _幂次[索];
索 -& _因子数;
/* 左参*右参 -& 果 */
因子式::相乘: (果: &因子式&-牵* 左参: &因子式&-牵* 右参: &因子式&-牵)-&() 直=
左索, 右索, 小索: 目元= <span style="color:#, <span style="color:#;
过(小索-&[<span style="color:# :
: %(左索 & 左参._因子数 && 右索 & 右参._因子数)])
门(左参._因子[左索] == 右参._因子[右索])
左参._因子[左索] -& 果._因子[小索];
左参._幂次[左索] + 右参._幂次[右索] -& 果._幂次[小索];
左索++;
右索++;
门(左参._因子[左索] & 右参._因子[右索])
左参._因子[左索] -& 果._因子[小索];
左参._幂次[左索] -& 果._幂次[小索];
左索++;
右参._因子[右索] -& 果._因子[小索];
右参._幂次[右索] -& 果._幂次[小索];
右索++;
过(左索-&[ : &^(<span style="color:#;小索++) : 左参._因子数])
左参._因子[左索] -& 果._因子[小索];
左参._幂次[左索] -& 果._幂次[小索];
过(右索-&[ : &^(<span style="color:#;小索++) : 右参._因子数])
右参._因子[右索] -& 果._因子[小索];
右参._幂次[右索] -& 果._幂次[小索];
小索 -& 果._因子数;
/* 乘参 -&* 己 */
因子式::累乘: (乘参: &因子式&-牵)-&() 直=
基.因式累积.伸缩(_因子数 + 乘参._因子数);
相乘(基.因式累积, *己, 乘参);
//高效交换两个因子式
基.因式累积._最多因子 &-& 己.._最多因子;
基.因式累积._因子数 &-& 己.._因子数;
基.因式累积._因子 &-& 己.._因子;
基.因式累积._幂次 &-& 己.._幂次;
/* 底数^幂次 -&* 己*/
因子式::累乘: (底数: 向目* 幂次: 向目)-&() 直=
临: 因子式;
临.获值(底数, 幂次);
/* 去掉幂0的因子*/
因子式::压缩: ()-&() 直=
实索: 目元= <span style="color:#;
过(索@[<span style="color:# -: [目元] : _因子数 - <span style="color:#])
若(_幂次[索] & <span style="color:#)
若(实索 & 索)
_因子[索] -& _因子[实索];
_幂次[索] -& _幂次[实索];
实索++;
实索 -& _因子数;
将因子化形式转化成数字*/
因子式::化式乘法: (果: 太元* 低界: 目元* 高界: 目元)-&()=
若(高界 - 低界 &= <span style="color:#)
<span style="color:# -: [向目] -& 果;
过(界索@[低界 : 高界 - <span style="color:#][<span style="color:# : 基.因式累积._幂次[界索] - <span style="color:#])
基.因式累积._因子[界索] -&* 果;
果二: 太元;
同(果二, 低界, (低界 + 高界) / <span style="color:#);
同(果, (低界 + 高界) / <span style="color:#, 高界);
果二 -&* 果;
/* 左参因 /= 基.公因数(左参,右参), 右参因 /= 基.公因数(左参,右参) */
因子式::去掉共因子: (左参: &太元&-牵* 左参因: &因子式&-牵* 右参: &太元&-牵* 右参因: &因子式&-牵)-&()=
左索, 右索, 共因数: 向元= <span style="color:#, <span style="color:#, <span style="color:#;
基.因式累积.伸缩(最小(左参因._因子数, 右参因._因子数));
环(左索 & 左参因._因子数 && 右索 & 右参因._因子数)
若(左参因._因子[左索] == 右参因._因子[右索])
共次: 向元;
最小(左参因._幂次[左索], 右参因._幂次[右索]) -& 共次;
共次 -&- 左参因._幂次[左索];
共次 -&- 右参因._幂次[右索];
左参因._因子[左索] -& 基.因式累积._因子[共因数];
共次 -& 基.因式累积._幂次[共因数];
左索++;
右索++;
共因数++;
否则若(左参因._因子[左索] & 右参因._因子[右索])
左索++;
右索++;
共因数 -& 基.因式累积._因子数;
若(基.因式累积._因子数)
共因数: 太元;
化式乘法(共因数, <span style="color:#, 基.因式累积._因子数);
左参.恰除(共因数, 左参);
右参.恰除(共因数, 右参);
左参因.压缩();
右参因.压缩();
/*///////////////////////////////////////////////////////////////////////////*/
/* 平方根(入参) -& 果*/
求向目平方根: (果: &太浮&-牵* 入参: 向目)-&()=
精度: 向目;
原精度: 向目= 果.精度();
若(原精度 &= 双倍精度)
平方根(入参 -: [日浮]) -& 果;
爻位数: 向目= <span style="color:#;
周(原精度 -& 精度; 精度 & 双倍精度; )
单双爻: 元= 精度 & <span style="color:#;
(精度 + 单双爻) / <span style="color:# -& 精度;
爻位数 * <span style="color:# + 单双爻 -& 爻位数;
临一, 临二: 太浮;
临一.保原设置精度(双倍精度);
<span style="color:# / 平方根(入参 -: [日浮]) -& 临一;
环(精度 & 原精度)
<span style="color:# -&* 精度;
若(精度 & 原精度)
/* 临一 = 临一+临一*(1-入参*临一*临一)/2; */
临二.保原设置精度(精度);
/* 一半 x 一半 -& 全部 */
临一 * 临一 -& 临二;
入参 -&* 临二;
<span style="color:# - 临二 -& 临二;
临二.保原设置精度(精度 / <span style="color:#);
<span style="color:# -&&& 临二;
/* 一半 x 一半 -& 一半 */
临一 -&* 临二;
临一.保原设置精度(精度);
临二 -&+ 临一;
爻位数 & <span style="color:# -&- 精度;
<span style="color:# -&/ 爻位数;
/* 临二=入参*临一, 临一 = 临二+临一*(入参-临二*临二)/2; */
临二.保原设置精度(原精度 / <span style="color:#);
临一 * 入参 -& 临二;
/* 一半 * 一半 -& 全部 */
临二 * 临二 -& 果;
入参 - 果 -& 果;
/* 一半 * 一半 -& 一半 */
果 -&* 临一;
<span style="color:# -&&& 临一;
临一 + 临二 -& 果;
/*///////////////////////////////////////////////////////////////////////////*/
/*///////////////////////////////////////////////////////////////////////////*/
/* 二分切割 */
二分: (左界: 向目* 右界: 向目* 约旗: 向元* 层: 目元)-&()=
界长, 中分值: 向目;
若(右界 - 左界 == <span style="color:#)
约(右界-1,右界) = (6b - 5)(2b - 1)(6b - 1)
母(右界-1,右界) = 右界 ^ 3 * 项母_旺式部底量^3 / 24
子(右界-1,右界) = (-1)^右界 * g(右界 - 1, 右界) * (项子_一次部偏量+Bb).
右界 -& 母窖底();
右界 -&* 母窖底();
右界 -&* 母窖底();
项母_旺式部底量 / <span style="color:# * (项母_旺式部底量 / <span style="color:#) -: [向目] -&* 母窖底();
项母_旺式部底量 * <span style="color:# -&* 母窖底();
<span style="color:# * 右界 - <span style="color:# -& 约窖底();
<span style="color:# * 右界 - <span style="color:# -&* 约窖底();
<span style="color:# * 右界 - <span style="color:# -&* 约窖底();
右界 -& 子窖底();
项子_一次部倍量 -: [向目] -&* 子窖底();
项子_一次部偏量 -: [向目] -&+ 子窖底();
约窖底() -&* 子窖底();
若(右界 % <span style="color:#)
子窖底().反向();
右界 -& 界长;
环((界长 & <span style="color:#) == <span style="color:#)
<span style="color:# -&&& 界长;
因母窖底().获值(界长, <span style="color:#);
因母窖底().累乘(<span style="color:# * <span style="color:# * <span style="color:# * <span style="color:#, <span style="color:#);
因母窖底()._幂次[<span style="color:#]--;
因约窖底().获值(<span style="color:# * 右界 - <span style="color:#, <span style="color:#);
因约窖底().累乘(<span style="color:# * 右界 - <span style="color:#, <span style="color:#);
因约窖底().累乘(<span style="color:# * 右界 - <span style="color:#, <span style="color:#);
若(右界 & 基.进度 -: [元])
打印文套(&.&);
簿冲(基.标准出口);
基.百分比 * <span style="color:# -&+ 基.进度;
母(左界,右界) = 母(左界, 中) * 母(中, 右界)
约(左界,右界) = 约(左界, 中) * 约(中, 右界)
子(左界,右界) = 子(左界, 中) * 母(中, 右界) + 子(中,右界) * 约(左界, 中)
/* 调整参数 */
左界 + (右界 - 左界) * <span style="color:#.5224 -& 中分值;
同(左界, 中分值, <span style="color:#, 层 + <span style="color:#);
基.底端++;
同(中分值, 右界, 约旗, 层 + <span style="color:#);
基.底端--;
若(层 == <span style="color:#)
放入串(1#&&);
<span style="color:# -& 层;
若(层 &= <span style="color:#)
/* 调整参数 */
因子式::去掉共因子(母窖底内侧(), 因母窖底内侧(), 约窖底(), 因约窖底());
母窖底内侧() -&* 母窖底();
母窖底内侧() -&* 子窖底();
约窖底() -&* 子窖底内侧();
子窖底内侧() -&+ 子窖底();
因母窖底().累乘(因母窖底内侧());
约窖底内侧() -&* 约窖底();
因约窖底().累乘(因约窖底内侧());
若(基.出掩 & <span style="color:#)
打印文套(&母(%ld,%ld)=&, 左界, 右界);
因母窖底().显示();
打印文套(&约(%ld,%ld)=&, 左界, 右界);
因约窖底().显示();
造筛: (几: 目元* 筛: &筛型&-址)-&()=
几 -& 基.筛组尺度;
方根限: 目元= 平方根(几 -: [日浮]);
笺设值(筛, <span style="color:#, 容 (筛型) * 几 / <span style="color:#);
<span style="color:# -& 筛[<span style="color:# / <span style="color:#].因子;
<span style="color:# -& 筛[<span style="color:# / <span style="color:#].幂次;
过(主索@[<span style="color:# : ^(<span style="color:#) : 几])
若(筛[主索 / <span style="color:#].因子 == <span style="color:#)
主索 -& 筛[主索 / <span style="color:#].因子;
<span style="color:# -& 筛[主索 / <span style="color:#].幂次;
若(主索 &= 方根限)
邻索: 目元= 主索 / <span style="color:#;
过(方索@[主索 * 主索 : ^(主索 + 主索;邻索++) : 几])
若(筛[方索 / <span style="color:#].因子 == <span style="color:#)
主索 -& 筛[方索 / <span style="color:#].因子;
若(筛[邻索].因子 == 主索)
筛[邻索].幂次 + <span style="color:# -& 筛[方索 / <span style="color:#].幂次;
筛[邻索].下邻 -& 筛[方索 / <span style="color:#].下邻;
<span style="color:# -& 筛[方索 / <span style="color:#].幂次;
邻索 -& 筛[方索 / <span style="color:#].下邻;
道: (主佐长: 元* 主佐阵: &口&-址-阵)-&(元)=
位数, 窖深: 目元= <span style="color:#0, <span style="color:#;
主佐阵[<span style="color:#] -& 基.程序名;
若(主佐长 & <span style="color:#)
串变作向目(主佐阵[<span style="color:#], <span style="color:#, <span style="color:#) -& 位数;
若(主佐长 & <span style="color:#)
串变作元(主佐阵[<span style="color:#]) -& 基.出掩;
项数: 目元= 位数 / 每迭位数;
环(<span style="color:#$L && 窖深 & 项数)
窖深++;
窖深++;
项数 / <span style="color:#0.0 -& 基.百分比;
打印文套(&#项数 = %ld, 深度 = %ld\n&, 项数, 窖深);
起点: 目= 计算机时刻();
打印文套(&造筛
簿冲(基.标准出口);
最大(<span style="color:# * <span style="color:# * <span style="color:# * <span style="color:# + <span style="color:#, 项数 * <span style="color:#) -& 基.筛组尺度;
地生 &基.筛组尺度 / <span style="color:#, 筛型&-阵 -& 基.筛组;
造筛(基.筛组尺度, 基.筛组);
中间零: 目= 计算机时刻();
//当前中语言基础库不能打印浮点数,暂时借用GMP库来实现浮点数的打印输出.
//这根源于microsoft在自己开的CRT代码上留了几手,我们在感谢microsoft
//的同时,也感叹microsoft挺坑爹的
//打印文套(&时间 = %6.3f\n&, (中间零 - 起点) -: 日浮/1000);
打印文套(&时间 = &);
帮浮: 太浮((中间零 - 起点) -: [日浮] / <span style="color:#00);
帮浮.写出(<span style="color:#);
打印字('\n');
/* 构造窖 */
地生 &窖深, 太元&-阵 -& 基.项母增式窖;
地生 &窖深, 太元&-阵 -& 基.项子全式窖;
地生 &窖深, 太元&-阵 -& 基.阶乘约式窖;
地生 &窖深, 因子式&-阵 -& 基.因子式_项母增式窖;
地生 &窖深, 因子式&-阵 -& 基.因子式_阶乘约式窖;
/*开始二分切割过程 */
若(项数 &= <span style="color:#)
<span style="color:# -: [向目] -& 母窖底内侧();
<span style="color:# -: [向目] -& 子窖底内侧();
<span style="color:# -: [向目] -& 约窖底内侧();
二分(<span style="color:#, 项数, <span style="color:#, <span style="color:#);
中间一: 目= 计算机时刻();
//打印文套(&\n二分
时间 = %6.3f\n&, (中间一 - 中间零) -: 日浮/1000);
打印文套(&\n二分
时间 = &);
(中间一 - 中间零) -: [日浮] / <span style="color:#00 -& 帮浮;
帮浮.写出(<span style="color:#);
打印文套(&\n&);
/* 释放一些资源 */
地死基.筛组;
地死 []基.阶乘约式窖;
地死 []基.因子式_项母增式窖;
地死 []基.因子式_阶乘约式窖;
/* 准备将整数转化成浮点数 */
太浮::设置默认精度((位数 * 每位爻数 + <span style="color:#) -: [目元]);
母 * (项母_旺式部底量/全项倍量) * 平方根(项母_旺式部底量)
圆周率 = -----------------
(子 + 项子_一次部偏量 * 母)
母尺度: 向目= 母窖底().尺度(<span style="color:#);
子尺度: 向目= 子窖底().尺度(<span style="color:#);
子窖底().加乘(母窖底(), 项子_一次部偏量);
项母_旺式部底量 / 全项倍量 -: [向目] -&* 母窖底();
初率: 太浮= 母窖底();
圆周率: 太浮= 子窖底();
地死 []基.项母增式窖;
地死 []基.项子全式窖;
中间二: 目= 计算机时刻();
/* 打印文套(&时间 = %6.3f\n&, (中间二-中间一)-: 日浮/1000); */
/* 最后步骤 */
打印文套(&除
簿冲(基.标准出口);
初率 / 圆周率 -& 圆周率;
中间三: 目= 计算机时刻();
//打印文套(&时间 = %6.3f\n&, (中间三 - 中间二) -: 日浮/1000);
打印文套(&时间 = &);
(中间三 - 中间二) -: [日浮] / <span style="color:#00 -& 帮浮;
帮浮.写出(<span style="color:#);
打印文套(&\n&);
打印文套(&平方根
簿冲(基.标准出口);
求向目平方根(初率, 项母_旺式部底量);
中间四: 目= 计算机时刻();
//打印文套(&时间 = %6.3f\n&, (中间四 - 中间三) -: 日浮/1000);
打印文套(&时间 = &);
(中间四 - 中间三) -: [日浮] / <span style="color:#00 -& 帮浮;
帮浮.写出(<span style="color:#);
打印文套(&\n&);
打印文套(&乘
簿冲(基.标准出口);
初率 -&* 圆周率;
终点: 目= 计算机时刻();
//打印文套(&时间 = %6.3f\n&, (终点 - 中间四) -: 日浮/1000);
打印文套(&时间 = &);
(终点 - 中间四) -: [日浮] / <span style="color:#00 -& 帮浮;
帮浮.写出(<span style="color:#);
打印字('\n');
//打印文套(&总时间 = %6.3f\n&, (终点 - 起点) -: 日浮/1000);
打印文套(&总时间 = &);
(终点 - 起点) -: [日浮] / <span style="color:#00 -& 帮浮;
帮浮.写出(<span style="color:#);
打印文套(&\n&);
簿冲(基.标准出口);
//打印文套(&
母式尺度 = %ld 位 (%f)\n&
子式尺度 = %ld 位 (%f)\n&, 母尺度, 母尺度 -: 日浮 /位数, 子尺度, 子尺度 -: 日浮/位数);
打印文套(&
母式尺度 = %ld 位 (&, 母尺度);
母尺度 -: [日浮] / 位数 -& 帮浮;
帮浮.写出(<span style="color:#);
打印文套(&)\n&);
打印文套(&
子式尺度 = %ld 位 (&, 子尺度);
子尺度 -: [日浮] / 位数 -& 帮浮;
帮浮.写出(<span style="color:#);
打印文套(&)\n&);
/* 输出圆周率跟计时统计数据*/
若(基.出掩 & <span style="color:#)
打印文套(&圆周率(0,%ld) = \n&, 项数);
圆周率.写出(位数 + <span style="color:#);
打印文套(&\n&);
退出(<span style="color:#);
官网文件参考：
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：16671次
排名：千里之外
原创：21篇
(2)(2)(1)(12)(4)}

天天发财游戏网