[整理]9860G线元法隧道(坐标正反计算、高程)计算程序

CASIO 9860G SD线元法隧道三维（坐标正反计算、高程）计算程序

悬赏分：+62

作者：刘工

2010-4-3

1. A（此为主程序）

Lbl 0：〝1.LC=>XY〝：〝2.XY=>LC〝：〝3.ZHZL=>GC〝：〝PB=>V=1,2,3〞？→V：

If V=1：Then GOTO 1 ：IfEnd ：If V=2：Then GOTO 2 ：IfEnd ：

If V=3：Then GOTO 3 ：Else GOTO 0 ：IfEnd：Lbl 3：〝ZH=H〝？→H ：〝SDZF=Z〝？→Z：Prog〝ZGCZCX〝：GOTO 0：Lbl 1 ：〝ZH=L〝？→L：

If L>173000 And L<174661.96：Then GOTO 4 ：Else GOTO 0 ：IfEnd ：

Lbl 4：L→L：〝SDZF=Q〝？→Q：〝XLZJ,-Z+Y=Q〝：Q+0.125→Q：

Prog 〝ZBQXYS〝：〝JSJD=J〝：90→J▲Prog 〝ZSZB〝：

〝X=〝：X ▲ 〝Y=〝：Y▲〝FWJ=O〝：O▼DMS▲

L→H：Q-0.125→Z：Prog 〝ZGCZCX〝：GOTO 0：

Lbl 2：〝XO=M〝?→M：〝YO=R〝?→R：173300→L：

If M>3845505.273 And M<3846506.099

And R>499371.832 And R<500352.224 ：Then GOTO 5：Else GOTO 2：

IfEnd ：Lbl 5：0→Q：0→J：

Prog 〝ZBFS〝：〝LC=L〝：L ▲〝JL=Q〝：Q▲ 〝SDZJ，-Z+Y=Q〝：Q-0.125→Q ▲

L→H：Q→Z：Prog 〝ZGCZCX〝：GOTO 0

2.正算坐标ZBZS

( L-S ) / 4→H：90/π→F：HHF（1/T-1/I）/（K-S）→U：2HF/ I→D：C+4D+16 U→Ｏ：

O+J→P ：C+ D+ U→E：C+2D+4U→W：C+3D+9U→G：

A+AbsH/3*(cosC+4(cosG+cosE)+2cosW+cosO)+Qcos P→X ：

B+AbsH/3*(sinC+4(sinG+sinE)+2sinW+sinO)+Qsin P→Y

3.反算坐标：ZBFS

Lbl 0：Prog 〝ZBQXYS〝：Prog 〝ZBZS〝：O-90→Z：(R-Y)cosZ-(M-X) sinZ→P ：

L+P→L：If Abs P≥0.001：Then GOTO 0 ：Else GOTO 1：IfEnd ：

Lbl 1： (R-Y)cosO-(M-X) sinO→Q

4. 曲线元要素数据库：ZBQXYS

If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：* *→ T IfEnd ：

If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：* *→ T IfEnd ：

If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：* *→T IfEnd ：

If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：* *→ T IfEnd ：

If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：* *→ T IfEnd ：

……………………………

If L≥S And L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：* *→ T IfEnd ┘

(注：如有多个曲线元要素继续添加入数据库ZBQXYS中)

5 高程计算主程序ZGCZCX (后有修改说明)

Lbi1 ：〝SCGC=X〝？→X：〝R=M〝：5.98→M：〝CS=N〝：1.603→N：Prog＂GC SJK＂：C-D→F：Abs(RF÷2) →T：R AbsF÷F→R：If H≤B-T ：Then 0→K：GOTO 2：IfEnd ：If H>B-T And H

If H≥B+T ：Then 0→K：D→C：GOTO 2：IfEnd ：

Lbi 2 ：〝XLZG=G〝：A-（B-H）C-K^2÷2R→G▲If Z≥0：

Then If X>100 Then 〝YO1XGC=J〝：G+N→J▲

〝YGCFSKD=J〝：Abs√(M^2-(X-（G+N）)^2) →J▲

〝YKDCQ,+C,-Q=J〝：J- Abs (Z+0.000) →J▲

〝YSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲

〝YGCCQ,C+,Q-=J〝：X-J→J▲Else

〝YO1XGC=J〝：G+N→J▲

〝YSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲ IfEnd ：

Else 〝ZO1XGC=J〝：G+N→J▲If X>100 ：Then

〝ZGCFSKD=J〝：Abs√(M^2-(X-（G+N）)^2) →J▲

〝ZKDCQ,+C,-Q=J〝：J- Abs (Z+0.000) →J▲

〝ZSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲

〝ZGCCQ,C+,Q-=J〝：X-J→J▲Else

〝ZSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J ▲IfEnd ：IfEnd

6高程计算主程序子程序：GCSJK

If H>起点桩号 And H≤第一个竖曲线起点桩号Then 第一竖曲线交点高程→A：第一竖曲线交点桩号→B：第一竖曲线前坡度→C：第一竖曲线后坡度→D：第一竖曲线半径→R：IfEnd：

If H>第一竖曲线止点桩号 And H≤第二竖曲线起点桩号Then 第一竖曲线交点高程→A：第一竖曲线交点桩号→B：第一竖曲线前坡度→C：第一竖曲线后坡度→D：第一竖曲线半径→R：IfEnd：

If H>第一竖曲线止点桩号 And H≤第二竖曲线起点桩号Then 第一竖曲线交点高程→A：第一竖曲线交点桩号→B：第一竖曲线前坡度→C：第一竖曲线后坡度→D：第一竖曲线半径→R：IfEnd

………………………(继续添加要素)

说明：第一部分坐标部分（1、2、3、4）

V=1进入坐标正算 V=2进入坐标反算V=3进入单独的高程计算

当V不等于1、2、3时，则返回程序，要求再次输入V值。

变量说明：

S……..起点里程A…..起点X坐标B….起点Y坐标C….起点方位角

I ….….起点半径K…..终点里程T .…终点半径L….计算点里程

J…输入左右（左-，零，右+）角度Q….中桩到边桩的距离

〝SDZJ-Z+Y〝为隧中支距，左〝-〝右〝+〝

坐标正算中输入的Z值为线路支距

坐标反算中得出的Z值也为线路支距

注意：1：计算中桩坐标J D,JL 等于零。

2：这里的方位角是指〝主点作为起点〝的方位角

例如：（ZY , YZ , ZH ,QZ, HY , YZ）每个点都是起点所以特别注意

3、规定

(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，

半径＝半径*-1；当线元往右偏时，半径=半径；当线元为直线时，半径=以10的45次代替。

(2) 当所求点位于中线时，Q,J=0；当位于中线左侧时，J取负值；当位于中线右侧时，J取正值。

(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。

(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。

(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。

(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

4、输入与显示说明

V=1的时候

JL ？正算时所求点距中线的边距(在中线上取零)

J ？边桩时左右边桩连线与线路中线的交角线元左右偏标志

(左偏J=-1*角度，右偏J=角度，直线段J=0) 角度

X=×××正算时，计算得出的所求点的X坐标

Y=×××正算时，计算得出的所求点的Y坐标

FWJ=*** 计算得出所求点的方位角°′″

V=2的时候

XO=×××所求点的X坐标

YO=×××所求点的Y坐标

LC=**** 求点所对应的里程

JL=**** 求点到所对应的里程的距离 -5就是左边相反就是右边

想知道是否正确V=1 看看坐标是否一致

注意：验算的时候不需要改动JL ？ J ？[/center]◢

说明：第二部分高程部分（5高程计算主程序：SQXBG 6高程计算主程序子程序：S JK）

1、A：交坡点高程

2、B：交坡点桩号

3、C：前坡度（上坡为正，下坡为负）

4、D：坡度（上坡为正，下坡为负）

5、R：竖曲线半径

6、H：待求点桩号

7、E：下一竖曲起点桩号

8、X〝SCGC〝测点实测高程

9、M〝R〝 O1点半径（此处如须计算开挖线加上二衬厚度、沉降量、其他结构层的厚度即可）

10、N〝CS〝线路中桩设计高程至O1点的距离

11、J〝YO1XGC〝 O1点（圆心点）高程

12、J〝YSBSJGC〝根据桩号及支距（正反算程序中）计算得到的测点（设计）高程J〝YGCFSKD〝反算中根据高程反算得到的支距

J〝YKDCQ,+C,-Q〝实测高程计算得支距与坐标反算得支距进行对比,得到超欠挖

J〝YGCCQ,C+,Q-〝实测高程与坐标反算得到高程进行对比,得到超欠挖

13、J〝ZO1XGC〝 O1点（圆心点）高程

14、J〝YSBSJGC〝根据桩号及支距（正反算程序中）计算得到的测点（设计）高程J〝ZGCFSKD〝反算中根据高程反算得到的支距

J〝ZKDCQ,+C,-Q〝实测高程计算得支距与坐标反算得支距进行对比,得到超欠挖

J〝ZGCCQ,C+,Q-〝实测高程与坐标反算得到高程进行对比,得到超欠挖

（本人施测的是一公路隧道的上行线，线路中心线至隧道中心线的距离为0.125米，线路中心线在隧道中心线的左侧。Z〝SDZJ-Z+Y〝为隧中支距，Z+0.125为线路支距。如线路中线在隧道中线的右侧，则为Z-0.125为线路支距。其中Z在左侧取-，右侧取+。）

SQXBG

修改说明此式中X为实测的该点高程，V=1和3时，请将X输为0，当V=2时，输入为实测的高程数据。一般在测量时，将拱部点测得三维后，反算得到里程和支距，即用实测高程计算得到该高程点的理论支距，再用理论支距与坐标反算的支距进行对比，超欠挖自明。同时用反算的支距也可计算出该点的理论高程，用实测的高程与计算的理论高程对比，自可得到拱部是高度是否超欠挖。

Lbi1 ：〝SCGC=X〝？→X：：〝R=M〝？→M：〝CS=N〝？→N：Prog＂GCSJK＂：C-D→F：Abs(RF÷2) →T：R AbsF÷F→R：If H≤B-T ：Then 0→K：GOTO 2：IfEnd ：If H>B-T And H

If H≥B+T ：Then 0→K：D→C：GOTO 2：IfEnd ：Lbi 2 ：

〝XLZG=G〝：A-（B-H）C-K^2÷2R→G▲If Z≥0：

〝YO1XGC=J〝：G+N→J▲Then If X>100 Then

〝YGCFSKD=J〝：Abs√(M^2-(X-（G+N）)^2) →J▲

〝YKDCQ,+C,-Q=J〝：J- Abs (Z+0.000) →J▲

〝YSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲

〝YGCCQ,C+,Q-=J〝：X-J→J▲Else

〝YSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J：IfEnd ：▲

Else ：〝ZO1XGC=J〝：G+N→J▲If X>100 ：Then

〝ZGCFSKD=J〝：Abs√(M^2-(X-（G+N）)^2) →J▲

〝ZKDCQ,+C,-Q=J〝：J- Abs (Z+0.000) →J▲

〝ZSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲

〝ZGCCQ,C+,Q-=J〝：X-J→J▲Else

〝ZSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J ▲IfEnd ：IfEnd

如在4850中请将X〝X=〝▲ Y〝Y=〝▲改为〝X=〝：X◢〝Y=〝：Y◢

将L〝LC=〝▲Q〝JL=〝▲改为〝LC=〝：L◢〝JL=〝：Q◢

将G〝XLZG〝=A-（B-H）C-K2÷2R▲改为〝XLZG=〝：G=A-（B-H）C-K2÷2R▲将J〝YO1XGC〝=G+N▲改为J〝YO1XGC=〝：G+N▲

将J〝YKDCQ,+C,-Q〝= J- Abs (Z+0.125) ▲改为J〝YKDCQ,+C,-Q=〝：J- Abs (Z +0.125) ▲

将J〝YSBSJGC〝=G+N+√(M^2-(Z+0.125)^2) ▲

查看楼主其它问题

→回复内容只查看楼主与本人回复按支持人数排序

沙发：lbs326 楼主10-4-4 0:29

算例0403

1、平曲线要素

交点号JD37 交点桩号SK174+133.90 交点坐标X=3845932.100 交点坐标Y=499588. 222

右偏角45°54′41″前方位角297°18′17″半径=1200 LS1=LS2=150

ZH点桩号SK173+550.394 HY点桩号SK173+700.394

YH点桩号SK174+511.96 HZ点桩号SK174+661.960

A1=A2=424.264 T1=T2=583.596

SK173+300 QD点坐标X=3845549.528 Y=500329.288 C=297°18′17″

SK173+550.394 ZH点坐标X=3845664.390 Y=500106.7933 C=297°18′17″

SK173+700.394 HY点坐标X=3845735.948 Y=499974.9917 C=300°53′08.5″

SK174+106.177 QZ点坐标X=3845998.621 Y=499668.235 C=320°15′37.47″

K174+511.960 YH点桩号X=3846348.183 Y=499465.9908 C=339°38′06.45″

ZBQXYS

If L≥173300 And L＜173550.394：Then 173300→S：3845549.528→A：500329.288→B：297°18′17″→C：1E45→I：173550.394→K：1E45→T：IfEnd：

If L≥173550.394 And L＜173700.394：Then 173550.394→S：3845664.390→A：50010 6.7933→B：297°18′17″→C：1E45→I：173700.394→K：1200→T ：IfEnd：

If L≥173700.394 And L＜174106.177：Then 173700.394→S：3845735.948→A：49997 4.9917→B：00°53′08.55″→C：1200→I：174106.177→K：1200→T： IfEnd：

If L≥174106.177 And L＜174511.960：Then 174106.177→S：3845998.621→A ：4996 68.235→B：320°15′37.47″→C：1200→I：174511.96→K：1200→T ：IfEnd：

If L≥174511.96 And L＜174661.960：Then 174511.960→S：3846348.183→A：499465. 9908→B：339°38′06.45″→C：1200→I：174661.96→K：1E45→T ： IfEnd

注：1E45，意即无穷大。

2、竖曲线要素

第一变坡点桩号SK173+350 变坡点高程=1332.762 竖曲线半径=24498.033

前坡度-0.761% 后坡度-2.431% 竖曲线起点：SK173+145.441

竖曲线止点：SK173+554.559

第二变坡点桩号SK174+395.249 变坡点高程=1307.352 竖曲线半径=56000

前坡度-2.431% 后坡度-1.690% 竖曲线起点：SK174+187.949

竖曲线止点：SK174+602.909

第三变坡点的竖曲线起点桩号：SK174+900。

GCSJK

If H>173.145.441 And H≤174187.949 ：Then 1332.762→A：173350→B：0.00761→C：-0.02431→D：24498.033→R：IfEnd ：

If H>174187.949 And H≤174900 Then

1307.352→A：174395.429→B：-0.02431→C：-0.0169→D：56000→R：IfEnd

3、实例计算如下

其中：X”SCGC”输入任意实测高程值M”R”=5.98N”CS”=1.602

V=1 L输入173806 JL输入0.125 SDZJ,-Z+Y后显示0

X=3845794.175 Y=499886.936 ”FWJ=“305.928

XLZG=1321.677 YO1XG=1323.279 J”ZSBSJGC”=1329.259

V=1 L输入173806 JL输入-4.875 SDZJ,-Z+Y后显示-5

X=3845790.126 Y=499884.002 ”FWJ=“305.928

XLZG=1321.677 YO1XG=1323.279 J”ZSBSJGC”=1326.559

V=1 L输入173806 JL输入5.125 SDZJ,-Z+Y后显示5

X=3845798.224 Y=499889.869 ”FWJ=“305.928

XLZG=1321.677 YO1XG=1323.279 J”ZSBSJGC”=1329.559

J”ZGCFSKD”= Abs√(M^2-(X-（G+N）)^2) ▲J”ZKDCQ,+C,-Q”=J-Abs(Z+0.125) ▲J”ZSBSJGC”=G+N+√(M^2-(Z+0.125)^2) ▲J”ZGCCQ,C+,Q-”=X-J

均为相应值

V=2 L输入173806 X0=3845794.175 Y=499886.9355

LC=173805.9996 JL=0.125210 SDZJ,-Z+Y=0.000210

XLZG=1321.677 YO1XG=1323.279 J”ZSBSJGC”=1329.259

J”ZGCFSKD”J”ZKDCQ,+C,-Q”J”ZGCCQ,C+,Q-”

均为相应值

V=2 L输入173806 X0=3845790.126 Y=499884.002

LC=173805.9996 JL=-4.875065 SDZJ,-Z+Y=-5.000065

XLZG=1321.677 YO1XG=1323.279 J”ZSBSJGC”=1329.559

J”ZGCFSKD”J”ZKDCQ,+C,-Q”J”ZGCCQ,C+,Q-”

均为相应值

V=2 L输入173806 X0=3845798.224 Y=499889.869

LC=173806.0004 JL=-5.124899 SDZJ,-Z+Y=4.999899

XLZG=1321.677 YO1XG=1323.279 J”ZSBSJGC”=1329.559

J”ZGCFSKD”J”ZKDCQ,+C,-Q”J”ZGCCQ,C+,Q-”

均为相应值

V=3 ZH输入桩号173806 SDZF,-Z+Y =0 XLZJ输入0.125 XLZG=1321.677 YO1XG=1323.279 J”ZSBSJGC”=1329.259

V=3 ZH输入桩号173806 SDZF,-Z+Y =-5 XLZJ输入-4.875 XLZG=1321.677 YO1XG=1323.279 J”ZSBSJGC”=1329.559

V=3 ZH输入173806 SDZF,-Z+Y =5 XLZJ输入5.125 XLZG=1321.677 YO1XG=1323.279 J”ZSBSJGC”=1329.559

第77讲-分步法成本核算的一般程序

三、分步法成本核算的一般程序 【案例】甲公司生产A类产品，需要经过两个加工步骤，第一步骤为棉纱，第二步骤为棉布。（按照约当产量比例法分配完工产品和在产品成本，材料按照100%，人工和制造费用按50%） 要求:分别按照逐步综合结转和分项结转进行计算。结转半成品成本不通过半成品仓库，而是直接转入下一生产步骤。 【答案】 第一步骤：棉纱1月份 第二步骤：棉布（逐步综合结转）2月份 【提示】成本还原就是将1300分成直接材料500、直接人工400和制造费用400进行反应。 第二步骤：棉布（逐步分项结转）2月份

【提示】分项结转就是分成直接材料、直接人工和制造费用项目分别结转。 逐步结转分步法在完工产品和在产品之间分配生产成本，即在各步骤完工产品和在产品之间进行分配。 【提示】这里的在产品是指尚未完成本步骤生产的在产品，完工产品是指的仅仅完成本步骤生产的产品。 逐步结转分步法的优点： 1.能提供各个生产步骤的半成品成本资料； 2.为各生产步骤的在产品实物管理及资金管理提供资料； 3.能够全面的反映各生产步骤的生产耗费水平，更好的满足各生产步骤成本管理的要求。 其缺点：成本结转工作量较大，各生产步骤的半成品成本如果采用逐步综合结转方法，还要进行成本还原（关键点），增加了核算的工作量。 【例题?多选题】下列针对逐步结转分步法核算的特点说法正确的有（）。 A.能提供各个生产步骤的半成品成本资料 B.能够全面的反映各生产步骤的生产耗费水平，更好的满足各生产步骤成本管理的要求 C.逐步结转分步法在各步骤完工产品和在产品之间进行分配生产成本

D.逐步结转分步法根据成本在下一步骤成本计算单中的反映方式，分成综合结转和分项结转两种方法 【答案】ABCD 【解析】选项ABCD的表述都是正确的。 【例题·判断题】采用逐步结转分步法，成本结转工作量较大，各生产步骤的半成品产品如果采用逐步分项结转方法，还要进行成本还原，增加了核算的工作量。（）【答案】× 【解析】逐步分项结转方法不需要进行成本还原，逐步综合结转分步法需要进行成本还原。 （二）平行结转分步法（2011年多选、2010年判断） 1.平行结转分步法的概念 平行结转分步法是指在计算各步骤成本时，不计算各步骤所产半成品成本，也不计算各步骤所耗上一步骤的半成品成本，而只计算本步骤发生的各项其他成本，以及这些成本中应计入产成品的份额，将相同产品的各步骤成本明细账中的这些份额平行结转、汇总，即可计算出该种产品的产成品成本。 这种结转各步骤成本的方法，称为平行结转分步法，也称不计算半成品成本分步法。 【提示】它一般适用于大量、大批多步骤生产，但又不需要计算半成品成本的企业。 【相关链接】逐步结转分步法要求计算各步骤的半成品成本。 【提示】平行结转分步法流程图：

产品成本计算的分步法

第七章产品成本计算的分步法 一、分步法的涵义及适应范围 1.分步法的涵义 以产品的生产步骤作为成本计算对象，归集生产费用，计算产品成本的一种方法。 2.分步法的适应范围 主要适用于大量、大批的多步骤生产，并且管理上要求分步骤计算产品成本的企业。二、分步法的特点 （一）成本计算对象：产品品种及其所经过的各个生产步骤，在计算产品成本时，应按照产品的生产步骤设置产品成本明细账，归集各生产步骤的生产费用。 1.如果只生产一种产品成本计算对象就是该种产成品及其所经过的各生产步骤，产品成本明细账应该按照产品的生产步骤设置。 2.如果生产多种产品成本计算对象则是各种产成品及其所经过的各生产步骤，产品成本明细账应该按照每种产品的各个生产步骤设置。 在实际工作中，产品成本的计算步骤与产品生产步骤的划分不一定完全一致。 总之，分步法的成本计算对象是每种产品以及每种产品所经过的生产步骤，企业应根据生产特点和成本管理的要求，遵循简化成本计算的原则，合理确定作为成本计算对象的生产 步骤。

对管理上有必要分步计算成本的生产步骤应单独设立生产成本明细账，单独计算成本；对管理上不要求单独计算成本的生产步骤，则与其他生产步骤合并设立生产成本明细账，合并计算成本。 （二）成本计算期：在分步成本计算法下，以产品与步骤作为成本计算对象，而产品又是大量重复生产，所以产品成本计算期无法与产品生产周期一致，而是同会计报告期相一致。 每个会计报告期都要进行产品成本计算。 （三）期末完工产品和在产品成本的计算。为了计算完工产品成本和月末在产品成本，需要采用适当的分配方法，将汇集在产品成本明细账中的生产费用，在完工产品与在产品之间进行分配，从而计算出完工产品的成本和在产品成本的成本。 在大量大批的多步骤生产中，由于生产过程较长且可以间断，产品往往都是跨月陆续完工，因此，成本计算一般都是按月、定期地进行，在月末计算产品成本时，各步骤一般都存在 未完工的在产品。 （四）各步骤之间结转成本。在实际工作中，由于成本管理的要求不同，分步法在结转各步骤成本时，采用了逐步结转和平行结转两种方一、逐步结转分步法特点 法。 1.逐步结转分步法含义 按照产品加工步骤的先后顺序，逐步计算并结转各步骤半成品成本，直至最后步骤计算出产成品成本的一种方法。 2.适用范围

[整理]9860G线元法隧道(坐标正反计算、高程)计算程序

CASIO 9860G SD线元法隧道三维（坐标正反计算、高程）计算程序 悬赏分：+62 作者：刘工 2010-4-3 1. A（此为主程序） Lbl 0：〝1.LC=>XY〝：〝2.XY=>LC〝：〝3.ZHZL=>GC〝：〝PB=>V=1,2,3〞？→V： If V=1：Then GOTO 1 ：IfEnd ：If V=2：Then GOTO 2 ：IfEnd ： If V=3：Then GOTO 3 ：Else GOTO 0 ：IfEnd：Lbl 3：〝ZH=H〝？→H ：〝SDZF=Z〝？→Z：Prog〝ZGCZCX〝：GOTO 0：Lbl 1 ：〝ZH=L〝？→L： If L>173000 And L<174661.96：Then GOTO 4 ：Else GOTO 0 ：IfEnd ： Lbl 4：L→L：〝SDZF=Q〝？→Q：〝XLZJ,-Z+Y=Q〝：Q+0.125→Q： Prog 〝ZBQXYS〝：〝JSJD=J〝：90→J▲Prog 〝ZSZB〝： 〝X=〝：X ▲ 〝Y=〝：Y▲〝FWJ=O〝：O▼DMS▲ L→H：Q-0.125→Z：Prog 〝ZGCZCX〝：GOTO 0： Lbl 2：〝XO=M〝?→M：〝YO=R〝?→R：173300→L： If M>3845505.273 And M<3846506.099 And R>499371.832 And R<500352.224 ：Then GOTO 5：Else GOTO 2： IfEnd ：Lbl 5：0→Q：0→J： Prog 〝ZBFS〝：〝LC=L〝：L ▲〝JL=Q〝：Q▲ 〝SDZJ，-Z+Y=Q〝：Q-0.125→Q ▲ L→H：Q→Z：Prog 〝ZGCZCX〝：GOTO 0 2.正算坐标ZBZS ( L-S ) / 4→H：90/π→F：HHF（1/T-1/I）/（K-S）→U：2HF/ I→D：C+4D+16 U→Ｏ： O+J→P ：C+ D+ U→E：C+2D+4U→W：C+3D+9U→G： A+AbsH/3*(cosC+4(cosG+cosE)+2cosW+cosO)+Qcos P→X ： B+AbsH/3*(sinC+4(sinG+sinE)+2sinW+sinO)+Qsin P→Y 3.反算坐标：ZBFS Lbl 0：Prog 〝ZBQXYS〝：Prog 〝ZBZS〝：O-90→Z：(R-Y)cosZ-(M-X) sinZ→P ：

《坐标方位角及距离计算小程序》代码——Access实现

公用模块： Option Explicit Public Const PI = 3.14159265358979 '已知A、B两点坐标计算方位角，JSFWJ的中文意思是计算方位角 Public Function JSFWJ(xa As Double, ya As Double, xb As Double, yb As Double) As Double '已知A、B两点坐标计算方位角函数过程Dim vx As Double, vy As Double vx = xb - xa: vy = yb - ya '如果A、B两点坐标相同，出现提示对话框 If vx = 0 And vy = 0 Then MsgBox "您选择的是同一个点！", vbOKOnly + vbExclamation, "提示信息" JSFWJ = 999999999# End If '计算方位角的值 If vx = 0 And vy > 0 Then '与y轴正半轴平行 JSFWJ = RadianToAngle(PI / 2#) ElseIf vx = 0 And vy < 0 Then '与y轴负半轴平行 JSFWJ = RadianToAngle(PI * 3# / 2#) ElseIf vy = 0 And vx > 0 Then '与x轴正半轴平行 JSFWJ = RadianToAngle(0) ElseIf vy = 0 And vx < 0 Then '与x轴负半轴平行 JSFWJ = RadianToAngle(PI) ElseIf vx > 0 And vy > 0 Then '第一象限 JSFWJ = RadianToAngle(Atn(vy / vx)) ElseIf vx < 0 And vy > 0 Then '第二象限 JSFWJ = RadianToAngle(Atn(vy / vx) + PI) ElseIf vx < 0 And vy < 0 Then '第三象限 JSFWJ = RadianToAngle(Atn(vy / vx) + PI) ElseIf vx > 0 And vy < 0 Then '第四象限 JSFWJ = RadianToAngle(Atn(vy / vx) + 2 * PI) End If End Function '已知A、B两点坐标计算距离，JSJLS的中文意思是计算距离S Public Function JSJLS(xa As Double, ya As Double, xb As Double, yb As Double) As Double Dim vx As Double, vy As Double vx = xb - xa: vy = yb - ya '如果A、B两点坐标相同，出现提示对话框 If vx = 0 And vy = 0 Then MsgBox "您选择的是同一个点！", vbOKOnly + vbExclamation, "提示信息" JSJLS = 99999999# End If '计算距离 JSJLS = Sqr(vx * vx + vy * vy) End Function '弧度化角度 Public Function RadianToAngle(ByVal alfa As Double) As Double Dim alfa1 As Double, alfa2 As Double alfa = alfa * 180# / PI

分步法核算程序

实训三分步法的核算程序 一、实训目的 ●理解分步法的特点、分类和适用条件。 ●本实训以家具加工企业为例，通过本案例的实训，理解并掌握分步法的核算程序。 ●培养学生能够独立思考问题和有创造性地发表个人意见的能力。 二、实训资料 所举实例基本接近实际，但是为了便于学习，有些数字和生产情况是假设的，但都反映了实际中的工作经验。 生产概况：向阳家具厂主要生产钢木结构的折叠椅和圆凳。用料基本相同，一部分是面儿：由多层板和塑料皮组成；另一部分就是腿儿：由钢管和圆钢组成。该厂按订单下达生产任务，分批组织生产。生产程序分三步，第一步：将木料多层板和塑料皮下料，并且将塑料皮用胶粘在多层板上，做成折椅面儿、靠背和圆凳的面儿。这一工作在第一车间（木材加工车间）进行。第二步：将钢管和圆钢下料，并且焊接起来，做成折椅和圆凳的腿儿。这一工作在第二车间（钢管加工车间）进行。第三步：把折椅、圆凳的面儿和腿儿装配在一起，并且油漆成最后产成品。这一工作在第三车间（组装油漆车间）进行。第一、二步骤是平行生产的，三步中间设有中间库管理半成品。另有一个机修车间为辅助生产车间。 成本计算：生产特点和管理要求决定了成本计算方法。本厂采用平行结转分步法计算产品成本，按照生产工艺过程特点，第一步计算折椅和圆凳的木面儿成本；第二步计算折椅和圆凳的腿儿的成本；第三步计算组装和油漆的成本；最后平行结转企业计算完工产品成本。所以企业采用的成本计算方法是分批法的基础上结合应用分步法。主要材料和辅助材料均在“原材料”科目核算。 成本项目： 1.主要材料：要在各批产品之间分配。木材费用的分配方法是根据各批产品的技术图纸资料，计算出各批产品所需用的净木材的体积，按净木材的体积比例分配实际领料的金额。钢管费用分配方法是：根据各批产品的技术图纸资料，计算出各批产品所需用的净用钢材的重量，按净用钢材的重量比例分配实际领料的金额。圆钢用量极小（只有圆凳用一小部分，折椅不用），为简化核算手续，列入辅助材料。 2.辅助材料：按生产通知单限额发放辅助材料。由于班组辅助材料核算的基础工作比较好，辅助材料的消耗可以按产品批别划分，辅助材料全部直接计入各批产品成本。月底车间如有余料，则办理假退料手续。 3.职工薪酬：生产工人工资根据生产工时比例分配计入各批产品成本；车间管理人员工资计入制造费用；机修车间人员工资计入辅助生产成本；厂部管理人员工资计入管理费用。 4.动力：各部门有电表，可以查出各部门的耗电量。根据耗电量分配电费。然后根据工时比例分配计入各批产品成本。机修车间和管理部门的电费分别计入辅助生产成本和管理费用。 5.其他费用：制造费用按照生产工时比例分配计入各批产品成本。修理费用按照修理工时进行分配。 6.在发生批内产品跨越陆续完工的情况时，由于生产周期不长，在产品往往也接近完工，为了简化核算，所以按照完工产品和在产品的数量比例进行分配。 三、实训要求 根据下列相关成本资料，综合思考，编制各项费用分配表，并写出会计分录，登记相关成本费用明细账，计算产品成本。 该厂2007年10月份与成本有关的各种资料如下： （一）产量、工时统计 10月份生产任务和产量情况如下：

fx-5800p全线坐标正反算带高程计算程序(线元法)

曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序 一、程序功能及原理 1.功能说明：本程序由一个主程序(TYQXJS)和五个子程——正算子程序(SUB-ZS)、反算子程序(SUB-FS)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。本程序在CASIO fx-5800P计算器运行。 2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出放样数据。 二、源程序 1.主程序(TYQXJS)(A) Deg:fix 3 119→DimZ “INPUT(0) Or DATA(Else)”?I Lbl 0:“1.SZ=>XY,2.XY=>SZ，3.TF=>CK,4.SD=>FY，5.TW=>FY”?N If N=1 Or N=5:Then Goto 1 Else If N=2 Or N=3 Or N=4:Then Goto 2 Else Goto 3 IfEnd:IfEnd Lbl 1:“K(m)=”?S If S<0:Then Goto 0:IfEnd “JL(m)=”?Z If Z≠0:Then “ANGLE→R(Deg)=”?M:IfEnd If I=0:Then Prog “DAT1”:Else Prog “DAT2”:IfEnd S-O→W:If W<0:Then Goto 0:Else If W>H:Then Goto 0:IfEnd:IfEnd Prog “SUB-ZS”:Prog “SUB-GC” If Z<0:Then“XL(m)=”:X◢“YL(m)=”:Y◢ If N=5:Then Prog “SUB-TW”:IfEnd Else If Z>0:Then “XR(m)=”:X◢“YR(m)=”:Y◢ If N=5:Then Prog “SUB-TW”:IfEnd Else “X(m)=”:X◢“Y(m)=”:Y◢“Hs(m)=”:L◢“FWJ=”: F?DMS◢ IfEnd:IfEnd

CASIO fx5800p全线高程计算程序

CASIO fx5800p全线高程计算程序 GAOCHEN 主程序 Lbl 1 “KM=，<0,Stop”:?K：K<0=>Stop:“PY=”？L：Prog”GK” C-D→E:Abs(RE/2)→T：R(Abs(E)/E)→R If K≤B-T:Then 0→H:Else:If K≥B+T Then 0→H:D→C:Else K-B+T→H:Ifend:Ifend A-(B-K)C-H2/(2R)→G：Cls “KM=”：Locate 4，1，K：Locate 10，1，“PY=”：Locate 13，1，L：Fix 3 “H=”：Locate 4，2，G Prog “PODU”：（E-B）/（D-A）（K-A）+B→I：(F-C)/（D-A）（K-A）+C→J “HL=”：G+IL→X：Locate 4，3，X：Locate 11，3，“I=”：Locate 13，3，I*100 “HR=”：G+JL→Y：Locate 4，4，Y：Locate 11，4，“I=”：Locate 13，4，J*100◢Cls：Norm 2：“BM+HS≤0,Goto 1”？Z：Z≤0=> Goto 1：Cls (输入视线高) “KM=”：Locate 4，1，K：Locate 10，1，“PY=”：Locate 13，1，L：Fix 3 “QSM=”: Locate 6，2，Z-G (显示中桩读数) “QSL=”: Locate 6，3，Z-X (显示左桩读数) “QSR=”: Locate 6，4，Z-Y◢(显示右桩读数) Norm 2：Cls：Goto1 （后面可加已知视线高计算读数部分，不想计算读数则视线高输入0或负数如不想显示麻烦，可将Locate语句去掉） 以下两个子程序不需运行，只是两个独立的数据库赋值程序，字母重复不影响计算结果 GK 数据库子程序 If K≤第二曲线起点桩号：Then 第一曲线交点高程→A：第一曲线交点桩号→B：第一曲线前坡→C：第一曲线后坡→D：第一曲线半径→R：Return：Ifend …………….（有几个变坡点编几个If语句） PODU 计算坡度子程序 If K≤第一变（非变）坡段终点：Then 第一曲线起点桩号→A：第一曲线起点左坡→B：第一曲线起点右坡→C：第一曲终点桩号→D：第一曲终点左坡→E：第一曲终点右坡→F：Return：Ifend ………………（每一个超高变化线元一个If语句） 结果显示： KM=0000.000 PY=0.000 H= 00.000 HL=00.000 I=-1.5 HR=00.000 I=-1.5 KM=0000.000 PY=0.000 QSM= 00.000 QSL= 00.000 QSR= 00.000

测量坐标计算及高程计算

在测量岗位工作已经有三个月到时间了，三个月的时间学习和收获了许多，现对这三个月的工作学习做一下总结。 测量工作内容主要有以下两个方面：测量放线（坐标计算），高程控制。 一、测量放线 测量放线到主要技术包括坐标计算和仪器使用。坐标计算包括直线段坐标计算和曲线段坐标计算。 1、直线段坐标计算。直线坐标计算分为中桩坐标计算和边桩坐标计算。 1）中桩坐标计算。根据公式 ααsin ,cos d Y Y d X X +=+=起中起中 d — 所求点到起点距离； α— 该直线坐标方位角。在此顺带详细介绍一下坐标方位角到计算方法： （1）坐标方位角的计算 AB AB A B A B AB x y x x y y ??=--=arctan arctan α当 R y x R y x R y x R y x -360,0,0180,0,0-180,0,0;,0,0?=?+?=??>?αααα；； （2）坐标方位角的推算

， ， 218021*********βαβααβαβαα-?+=-=+?+=+=B B AB BA B 由此推出：βαα±?+=180后前（“左”→“+”， “右”→“-”），计算中，若α值大于360°，应减去360°；若小于0°，则加上360°。 2）边桩坐标计算 应用公式 )90sin(90cos(?±+=?±+=ααl y y l x x 中边中边）， 进行边桩坐标到计算。北客站为直线车站，坐标计算较简单，现以位于机场线第二段底板的变电所夹层东北角C 点为例进行计算： 以机场线右线为基准来计算中、边桩坐标。已知起点坐标A （22264.4009，11553.2031），终点坐标B （22180.2655，11279.0739），起点里程为YDK0+255.275,C 点里程为YDK0+286.075,偏距为15.33m ，则由以上公式计算C 点坐标： α=arctan(（11279.0739-11553.2031）/（22180.2655-22264.4009）)+180°=252.938°， =中x 22264.4009+（286.075-255.275）*cos252.938°=22255.3640 =中y 11553.2031+（286.075-255.275）*sin252.938°=11523.7586 =c x +15.33*cos （252.938°+90°）=22270.0193 = c y +15.33*sin （252.938°+90°）=11519.2606，则可求出C （22270.0193，11519.2606）。 2、曲线段坐标计算 1）不带缓和曲线的圆曲线中、边桩坐标计算 北 中 x 中 y

公路高程计算公式

公路高程计算公式 ⒈超高 ①超高方式：中央分隔带保持水平， 超高将两侧行车道绕中央分隔带边缘点旋转(包括路肩点)。 ②超高段横断面高程计算 图11 1-1 A 0％ A A A A A A A D D D 3-3 4-4 I％I％ I％ E％ I％ 图12 ⒉ 横坡度计算 外侧横坡度： I L L E I I C X X ?+= )(；(公式中的I 、E 均取正值，下同。) 公式 1 内侧横坡度： I L I E I L L I E I L I E I C C C X X +?+??+? ?= 22)((。 公式 2 1 23 L C I B 左0％ E E +I Z I E +I l c l c I E +I E +I l c I l c E +I I 右 （左 )

式中：2 I/(E+I)* L C—在L C段内横坡等于I％的长度,m。 X在区间0～2 I/(E+I)*LC时，横坡度为I； 在区间2 I/(E+I)* L C～L C段内时，横坡度为I～E。 I—横坡度设计值， E—超高设计值， L C—缓和曲线长，m。 ⒊竖曲线计算公式： W=I1-I2；当w＞0时，为凸曲线；当w＜0时，为凹曲线。 L=R*W； E=T2/2R； H=l2/2r； T=TA=TB=L/2=R*W/2。 式中：H—切线上任一点至竖曲线上的垂直距离；M． l—曲线上相应于H的P点至切点A或B点的距离，M． R—二次抛物线的参数。(原点处的曲率半径)通常称竖曲率半径，M． I1、I2—切线的斜率，即纵坡度，％．纵坡度(％)，从左向右上坡取“+”，下坡取“-”值．当α很小时，

产品成本计算的分步法

产品成本计算的分步法 TPMK standardization office【 TPMK5AB- TPMK08- TPMK2C- TPMK18】

第七章产品成本计算的分步法 一、分步法的涵义及适应范围 1.分步法的涵义 以产品的生产步骤作为成本计算对象，归集生产费用，计算产品成本的一种方法。 2.分步法的适应范围 主要适用于大量、大批的多步骤生产，并且管理上要求分步骤计算产品成本的企业。二、分步法的特点 （一）成本计算对象：产品品种及其所经过的各个生产步骤，在计算产品成本时，应按照产品的生产步骤设置产品成本明细账，归集各生产步骤的生产费用。 1.如果只生产一种产品成本计算对象就是该种产成品及其所经过的各生产步骤，产品成本明细账应该按照产品的生产步骤设置。 2.如果生产多种产品成本计算对象则是各种产成品及其所经过的各生产步骤，产品成本明细账应该按照每种产品的各个生产步骤设置。 在实际工作中，产品成本的计算步骤与产品生产步骤的划分不一定完全一致。 总之，分步法的成本计算对象是每种产品以及每种产品所经过的生产步骤，企业应根据生产特点和成本管理的要求，遵循简化成本计算的原则，合理确定作为成本计算对象的生产 步骤。

对管理上有必要分步计算成本的生产步骤应单独设立生产成本明细账，单独计算成本；对管理上不要求单独计算成本的生产步骤，则与其他生产步骤合并设立生产成本明细账，合并计算成本。 （二）成本计算期：在分步成本计算法下，以产品与步骤作为成本计算对象，而产品又是大量重复生产，所以产品成本计算期无法与产品生产周期一致，而是同会计报告期相一 致。每个会计报告期都要进行产品成本计算。 （三）期末完工产品和在产品成本的计算。为了计算完工产品成本和月末在产品成本，需要采用适当的分配方法，将汇集在产品成本明细账中的生产费用，在完工产品与在产品之间进行分配，从而计算出完工产品的成本和在产品成本的成本。 在大量大批的多步骤生产中，由于生产过程较长且可以间断，产品往往都是跨月陆续完工，因此，成本计算一般都是按月、定期地进行，在月末计算产品成本时，各步骤一般都 存在未完工的在产品。 （四）各步骤之间结转成本。在实际工作中，由于成本管理的要求不同，分步法在结转各步骤成本时，采用了逐步结转和平行结转两种方一、逐步结转分步法特点 法。 1.逐步结转分步法含义 按照产品加工步骤的先后顺序，逐步计算并结转各步骤半成品成本，直至最后步骤计算出产成品成本的一种方法。 2.适用范围

怎样计算高速公路路线坐标及高程

一个excle 模板的制作 在当今社会，excle的使用已经是越来越来频繁了，几乎涉及所有的行业，路桥施工也 不例外。我在某路桥公司曾经负责过某项目部的测量工作。大家都知道，测量最主要的就 是计算了，如坐标、高程、横坡度等。我现在给大家推荐一款我自己编制的关于测量计算 的excel模板。 首先我会跟大家介绍一下模板的作用，然后再一一讲解此模板的制作过程。 首先给大家看一下此模板的界面如下： 也许大家咋一看，切~ 这算啥，我也会做这张表格，实在是太简单了。不错，如果仅 仅是靠手动输入这样子的数字，也许只要懂一点点excle 的人都会制作出这张表格吧。不过，这张表格并不是你表面所看到的仅仅是几个数字而已，其内在的公式才是它的亮点。也许 这样讲大家还不是很清楚，我继续给大家截个图，看看它里面的公式是什么。 大家注意到上面的公式了吗，并不是仅仅是输入数字就完事的，它是一个自定义函数 zbx（），那么后面的都是一样吗？完全正确，后面的都是自定义函数，它们分别是zby（）、sqx（）、hpz（）、hpy（）。也许大家会问，恩，是不错，但是有什么用呢？那让我先给大家 简述一下这个自定义函数的用法。竟然是一个函数，那么它就必须要有一个自变量，这几个 函数的自变量又是什么呢？其实这个模板里面所有函数的自变量只有一个，就是桩号。什么 意思？就是只要你给出任意一个桩号，都能得到其对应的坐标、中桩高程和横坡度。假设我 们要K38+000~K38+200 段落内每隔20M 一个断面所有点的坐标、中桩高程、以及左右横坡。我就用这个模板给大家演示一下（此模板暂时数据只针对黄祁高速公路六标项目部）。 先在桩号那一列把K38+000~K38+200 输入进去，可不要真的把字母“K”和加号

分步法的核算程序

实训三分步法的核算程序 一、实训目的理解分步法的特点、分类和适用条件。●本实训以家具加工企业为例，通过本案例的实训，理解并掌握分步法的核算程序。●培养学生能够独立思考问题和有创造性地发表个人意见的能力。● 二、实训资料所举实例基本接近实际，但是为了便于学习，有些数字和生产情况是假设的，但都反映了实际中的工作经验。：向阳家具厂主要生产钢木结构的折叠椅和圆凳。用料基本相同，一部分是面儿：由多层板生产概况和塑料皮组成；另一部分就是腿儿：由钢管和圆钢组成。该厂按订单下达生产任务，分批组织生产。生产程序分三步，第一步：将木料多层板和塑料皮下料，并且将塑料皮用胶粘在多层板上，做成折椅面儿、靠背和圆凳的面儿。这一工作在第一车间（木材加工车间）进行。第二步：将钢管和圆钢下料，并且焊接起来，做成折椅和圆凳的腿儿。这一工作在第二车间（钢管加工车间）进行。第三步：把折椅、圆凳的面儿和腿儿装配在一起，并且油漆成最后产成品。这一工作在第三车间（组装油漆车间）进行。第一、二步骤是平行生产的，三步中间设有中间库管理半成品。另有一个机修车间为辅助生产车间。生产特点和管理要求决定了成本计算方法。本厂采用平行结转分步法计算产品成本，按照成本计算：生产工艺过程特点，第一步计算折椅和圆凳的木面儿成本；第二步计算折椅和圆凳的腿儿的成本；第三步计算组装和油漆的成本；最后平行结转企业计算完工产品成本。所以企业采用的成本计算方法是分批法的基础上结合应用分步法。主要材料和辅助材料均在“原材料”科目核算。成本项目：要在各批产品之间分配。木材费用的分配方法是根据各批产品的技术图纸资料，计算出主要材料：1.各批产品所需用的净木材的体积，按净木材的体积比例分配实际领料的金额。钢管费用分配方法是：根据各批产品的技术图纸资料，计算出各批产品所需用的净用钢材的重量，按净用钢材的重量比例分配实际领，为简化核算手续，列入辅助材料。料的金额。圆钢用量极小（只有圆凳用一小部分，折椅不用）按生产通知单限额发放辅助材料。由于班组辅助材料核算的基础工作比较好，辅助材料辅助材料：2.的消耗可以按产品批别划分，辅助材料全部直接计入各批产品成本。月底车间如有余料，则办理假退料手续。生产工人工资根据生产工时比例分配计入各批产品成本；车间管理人员工资计入制造费职工薪酬：3.用；机修车间人员工资计入辅助生产成本；厂部管理人员工资计入管理费用。各部门有电表，可以查出各部门的耗电量。根据耗电量分配电费。然后根据工时比例分配计动力：4.入各批产品成本。机修车间和管理部门的电费分别计入辅助生产成本和管理费用。制造费用按照生产工时比例分配计入各批产品成本。修理费用按照修理工时进行分配。5.其他费用：在发生批内产品跨越陆续完工的情况时，由于生产周期不长，在产品往往也接近完工，为了简化核6.算，所以按照完工产品和在产品的数量比例进行分配。三、实训要求根据下列相关成本资料，综合思考，编制各项费用分配表，并写出会计分录，登记相关成本费用明细账，计算产品成本。月份与成本有关的各种资料如下：10该厂2007年（一）产量、工时统计月份生产任务和产量情况如下：01 日全部完工。30附注：折椅分两次投产，最后在10月 工时统计表单位：小时月2007年10

5800坐标高程计算程序

CASIO5800计算器 公路测量计算程序 程序设计:魏加训 2009.2.28

Casio 5800计算器数据库型万能坐标正反算计算程序 一、主程序：1XY Lbl 0:“1.ZS 2.FS”?→V↙ If V=1: Then “CZ X” ?H: “CZ Y” ?T:Goto 1: Else If V=2: Then Goto 2 :IfEnd: IfEnd ↙ Lbl 1: “K××+×××”?D:?Z: “RJ”?G↙ Prog “P.Z”↙(注:计算另一线路时修改替换此处和FS子程序中的P.Z为对应线路的数据库名称即可) Prog “ZS” ↙ If Z<0: Then Cls:“X（L）=”: “Y（L）=”: Locate 6，1，X : Locate 6，2，Y◢ Pol（X-H，Y-T）: Cls: “S（L）=”: Locate 6，1，I : "F（L）="：360Frac（（J+360）÷360▼DMS◢ Goto 1:IfEnd↙ If Z=0: Then Cls:“X（Z）=”: “Y（Z）=”: Locate 6，1，X : Locate 6，2，Y : “QXFWJ （Z）=”: 360Frac（（J+360）÷360▼DMS◢ Pol（X-H，Y-T）: Cls: “S（Z）=”: Locate 6，1，I : "F（Z）="：360Frac（（J+360）÷360▼DMS◢ Goto 1:IfEnd↙ If Z >0: Then Cls:“X（R）=”: “Y（R）=”: Locate 6，1，X : Locate 6,2，Y◢ Pol（X-H，Y-T）: Cls: “S（R）=”: Locate 6，1，I : "F（R）="：360Frac（（J+360）÷360▼DMS◢ Goto 1:IfEnd↙ Lbl 2: 0→Z:0→G:”X” ?M:”Y” ?I:Prog “FS”: Cls:“K=”：“Z=”：Locate 4，1，D : Locate 4，2，Z◢ Goto 2↙ 二、正算子程序：ZS 5→N: U(E-1-R-1)÷Abs（K-F）→P: Abs（D-F）÷N→Q: 90Q÷π→S: (注:此处5→N是控制计算精度可修改的,一般取值为4～6即可) C+(NPQ+2UR-1)NS→J:1→L↙ A+Q÷6×(Cos (C)+Cos (J) +4∑（Cos (C+((L+0.5)PQ+2UR-1)×(L+0.5)S),L,0,(N-1)）+2∑（Cos (C+((LPQ+2UR-1)LS,L,1,(N-1))）+ZCos（J+G) →X : B+Q÷6×(Sin(C)+Sin( J) +4∑（Sin (C+((L+0.5)PQ+2UR-1)×(L+0.5)S),L,0,(N-1)）+2∑（Sin (C+((LPQ+2UR-1)LS,L,1,(N-1))）+Z Sin（J+G)→Y ↙ 三、反算子程序：FS Lbl 0:Prog “P.Z”:Prog “ZS”↙ (注:计算另一线路时修改替换此处和1XY主程序中的P.Z为对应线路的数据库名称即可) (I-Y)sin(J)+(M-X) cos(J)→ P :D+P→ D ↙ If Abs(P)≥0.001:Then Goto 0 : Else Goto 1 : IfEnd↙ Lbl 1: (I-Y)cos(J)-(M-X) sin(J) →Z

4800公路中边桩高程计算程序

４８００公路中边桩高程计算程序 fx-4800高等级公路中边桩标高程计算程序 （适用超高方式为有分隔带绕左内侧旋转，无分隔绕线路中心旋转） 随着高等级公路建设的不断发展，对路基施工高程控制要求不断提高，经常在现场要对路基中边桩高程进行测量，由于施工线路较长，高程数据较多，而且只提供设计桩号的高程，对非设计断面的横坡及高程计算相当复杂，因此利用fx-4800计算器的编程功能及扩展变量的储存功能，编制一个程序，可以预先输入整条线路的曲线要素，使用时，只要输入任意点桩号就可以计算中边桩高程。 程序由中桩高程计算主程序和横坡计算子程序组成，程序如下： 1、中桩高程计算程序文件名（ZZGC） 程序说明 Lb1 0 Fix 3 （输入变坡点数） N=? （输入扩展变量位置数） V=? M=V （输入待求桩号） {K} Lb1 1 K>Z[2+M]-Z[3N+3+M]=> （确定待求桩号在哪个竖曲线内） M=M+1：Goto 1 （读取该竖曲线半径） R=Z[2N+2+M] （读取该竖曲线切线长） T=Z[3N+2+M] （读取该变坡点前坡率） I=Z[4N+2+M]÷100 （读取该变坡点后坡率） L=Z[4N+3+M]÷100 （计算待求桩号与该竖曲线起点距离） S=K-Z[1+M]+Z[3N+2+M] M=V=> （如果桩号在起点与第1竖曲线起点之间，转Lb1 5 ） Goto 5⊿ （计算坡率差） A=I-L （判断竖曲线凹凸） J=AbsA÷A S （如果距离在前半曲线内，计算改正值） Y=S^2÷2R ：Goto 2 ⊿ S<2T=> （如果距离在后半曲线内，计算改正值） Y=(2T-S)^2÷2R ：Goto 3 ⊿ Goto4 Lb1 2 H=Z[N+2+M]-I(T-S)- YJ D"H" =D ◢ Goto 6 Lb1 3 H= Z[N+2+M]+L(S-T)- YJ D"H" =D ◢ Goto 6 Lb1 4 （在直线内，计算高程） H=Z[N+2+M]+L(K-Z[1+M]) D"H" =D ◢ Goto 6

第章习题(分步法)

第十一章产品成本计算的分步法 一、思考题 1.什么是分步法？其成本核算对象有何特点？ 2.简述逐步结转分步法的成本核算程序。 3.什么是成本还原?在逐步综合结转分步法下，为什么要进行成本还原？ 4.半成品成本的综合结转和分项结转各有哪些优缺点？ 5.简述逐步结转分步法的优缺点及其适用范围。 6.平行结转分步法有哪些特点？ 7.简述平行结转分步法的成本核算程序。 8.平行结转分步法下如何计算约当产量？ 9.简述平行结转分步法的优缺点及其适用范围。 10.逐步结转分步法与平行结转分步法有什么区别？ 二、单项选择题 1.分步法的适用范围是（）。 A.大量大批单步骤生产 B.大量大批多步骤生产 C.单件小批多步骤生产 D.管理上要求分步计算成本的大量大批多步骤生产 2.分步法计算产品成本时，由于不同企业对于各个生产步骤的成本管理有着不同的要求，以及出于简化成本核算工作的考虑，各个生产步骤成本的计算和结转，采用着两种方法。即（）。 A.逐步结转法和平行结转法 B.分项结转法和综合结转法 C.分项结转法和平行结转法 D.分项结转法和逐步结转法 3.半成品实物转移，成本也随之结转的成本计算方法是（）。 A.分批法 B.逐步结转分步法 C.分步法 D.平行结转分步法

4.采用逐步结转分步法时，完工产品与在产品之间的费用分配，是（）之间的费用分配。 A.产成品与月末在产品 B.产成品与广义在产品 C.完工半成品与月末加工中在产品 D.前面生产步骤的完工半成品与加工中在产品；最后生产步骤的产成品与加工中在产品 5.不计算半成品成本的分步法是指（）分步法。 A.综合结转 B.逐步结转 C.分项结转 D.平行结转 6.采用（）法计算出的产成品成本能提供按原始的成本项目反映产品的成本结构，不需进行成本还原。 A.综合结转 B.逐步结转 C.分项结转 D.平行结转 7.采用逐步结转分步法时，自制半成品入库应借记的账户是（）。 A.“自制半成品” B.“生产成本——基本生产” C.“制造费用” D.“生产成本——辅助生产” 8.分步法中需要进行成本还原的成本计算方法是（）。 A.综合结转 B.逐步结转 C.分项结转 D.平行结转 9.成本还原的方法是从（）半成品项目予以还原。 A.第一步骤 B.第二步骤 C.任意一步骤 D.最后一步骤 10.成本还原是将（）成本中自制半成品项目的成本还原为原始成本项目的成本。 A.在产品 B.半成品 C.产成品 D.自制半成品 11.在下列企业中，（）必须采用逐步结转分步法。 A.有自制半成品生产的企业 B.有自制半成品交给下一步骤的企业 C.有自制半成品对外销售的企业 D.没有自制半成品生产的企业 12.采用平行结转分步法时，完工产品与在产品之间的费用分配，是（）之间的费用分配。

坐标、高程计算公式

一个建筑设计师应知道的基本数据 一、普通住宅建筑混凝土用量和用钢量： 1、多层砌体住宅： 钢筋：30KG/m2 砼：0.3～0.33m3/m2 2、多层框架： 钢筋：38～42KG/m2 砼：0.33～0.35m3/m2 3、小高层11～12层： 钢筋：50～52KG/m2 砼：0.35m3/m2 4、高层17～18层： 钢筋：54～60KG/m2 砼：0.36m3/m2 5、高层30层H=94米：钢筋：65～75KG/m2 砼：0.42～0.47m3/m2 6、高层酒店式公寓28层H=90米： 钢筋：65～70KG/m2 砼：0.38～0.42m3/m2

7、别墅：混凝土用量和用钢量介于多层砌体住宅和高层11～12层之间； 以上数据按抗震7度区规则结构设计 二、普通多层住宅楼施工预算经济指标 1、室外门窗（不包括单元门、防盗门）面积占建筑面积0.20～0.24 2、模版面积占建筑面积2.2左右 3、室外抹灰面积占建筑面积0.4左右 4、室内抹灰面积占建筑面积3.8 三、施工功效 1、一个抹灰工一天抹灰在35平米 2、一个砖工一天砌红砖1000～1800块 3、一个砖工一天砌空心砖800～1000块 4、瓷砖15平米 5、刮大白第一遍300平米/天，第二遍180平米/天，第三遍压光90平米/天 四、基础数据 1、混凝土重量2500KG/m3 2、钢筋每延米重量0.00617×d×d 3、干砂子重量1500KG/m3，湿砂重量1700KG/m3 4、石子重量2200KG/m3 5、一立方米红砖525块左右（分墙厚） 6、一立方米空心砖175块左右 7、筛一方干净砂需1.3方普通砂 建筑程序歌 要想建设效果好，选择队伍要招标。

分批法的成本计算程序

分批法的成本计算程序 （1）设置成本明细账及成本计算单 在成本计算的分批法下，成本明细账应按产品的投产批别分别设置，见表10-5、表10-6、表10-7。 （2）分配各项费用要素 根据资料，编制费用分配表来分配各费用要素，编制会计分录如下： ①编制原材料费用分配表，见表10-1。 表10-1 原材料费用分配表 20×8年9月 根据原材料分配表，编制会计分录： 借：生产成本——基本生产成本——901产品（直接材料） 125 000 ——902产品（直接材料） 167 000 ——903产品（直接材料） 226 000 制造费用——基本生产车间（材料费） 8 600 贷：原材料 526 600 借：生产成本——基本生产成本——901产品（直接材料） 5 000 ——902产品（直接材料） 6 680 ——903产品（直接材料） 9 040 制造费用——基本生产车间（材料费） 344 贷：材料成本差异 21 064 ②编制工资及职工福利费分配表，见表10-2。 表10-2 工资及职工福利费分配表 20×8年9月

根据工资分配表，编制会计分录： 借：生产成本——基本生产成本——90l产品（直接人工）7 200 ——902产品（直接人工）8 000 ——903产品（直接人工） 4 400 制造费用——基本生产车间（人工费） 2 100 贷：应付职工薪酬——应付工资21 700 借：生产成本——基本生产成本——901产品（直接人工） 1 008 ——902产品（直接人工） 1 120 ——903产品（直接人工）616 制造费用——基本生产车间（人工费）294 贷：应付职工薪酬——应付福利费 3 038 ③折旧费、水电费及其他费用的核算 A．支付本月的水电费： 借：制造费用——基本生产车间（水电费）2 400 贷：银行存款 2 400 B．提取固定资产折旧费： 借：制造费用——基本生产车间（折旧费）3 800 贷：累计折旧 3 800 C．本月发生的其他费用： 借：制造费用——基本生产车间（其他）250 贷：银行存款 250 （3）归集和分配基本生产车间的制造费用，见表10-3、表10-4。 表10-3 制造费用明细账