專利名稱:基建項(xiàng)目指數(shù)預(yù)測(cè)與動(dòng)態(tài)管理方法
技術(shù)領(lǐng)域:
本發(fā)明創(chuàng)造涉及基本建設(shè)項(xiàng)目工程造價(jià)管理領(lǐng)域。
基本建設(shè)項(xiàng)目造價(jià)管理是國家管理機(jī)關(guān)對(duì)基本建設(shè)項(xiàng)目的土建、水、暖、電部分的所需建材的消耗數(shù)量、價(jià)格,人工工日、機(jī)械臺(tái)班定額以及基本建設(shè)工程預(yù)、決算價(jià)格的一種確認(rèn)管理。隨著改革開放的深入和市場(chǎng)經(jīng)濟(jì)的不斷推進(jìn),建材產(chǎn)品的生產(chǎn)雖然還受到國家的宏觀調(diào)控,但是供貨渠道的日益增多,產(chǎn)品的價(jià)格高低不等,質(zhì)量參差不齊,市場(chǎng)經(jīng)濟(jì)這只無形的手對(duì)產(chǎn)品價(jià)格的影響愈來愈大?;ㄒ?guī)模增大、建筑材料供不應(yīng)求時(shí),價(jià)格就大幅上升,反之,價(jià)格下跌。價(jià)格圍繞價(jià)值上下波動(dòng),價(jià)格時(shí)常背高價(jià)值。這些因素對(duì)傳統(tǒng)的工程造價(jià)管理的準(zhǔn)確性有著非常大的影響。工程造價(jià)傳統(tǒng)的計(jì)算辦法是根據(jù)工程所用建材的消耗數(shù)量、人工工日、機(jī)械臺(tái)班數(shù),然后依靠“定額估價(jià)本”上確定的各種定額,計(jì)算基本建設(shè)工程的最終造價(jià)?!岸~估價(jià)本”由管理部門三至五年編制一次,每次使用周期很長。其內(nèi)容包括基本建設(shè)工程中對(duì)人工、材料、機(jī)械臺(tái)班消耗量表現(xiàn)的定額,它是編制建筑工程地區(qū)單位估價(jià)表和施工圖預(yù)算、進(jìn)行工程撥款和竣工結(jié)算的依據(jù),也是作為選擇經(jīng)濟(jì)合理的建筑設(shè)計(jì)方案和建筑企業(yè)實(shí)行核算、考核工程成本的依據(jù),同時(shí)也是編制建筑工程擴(kuò)大定額的基礎(chǔ)?!岸~估價(jià)本”適用于一般工業(yè)與民用新建、擴(kuò)建工程。考慮到市場(chǎng)建材價(jià)格變化因素,管理部門在每年年終時(shí)再發(fā)布一個(gè)綜合調(diào)價(jià)指數(shù),對(duì)“定額估價(jià)本”進(jìn)行微調(diào)。綜合調(diào)價(jià)指數(shù)是管理部門在對(duì)當(dāng)?shù)氐慕ú膬r(jià)格進(jìn)行調(diào)查、分析后,經(jīng)過計(jì)算得出的數(shù)據(jù)。
利用”定額估價(jià)本”手工分析材料用量及品種規(guī)格非常麻煩,在基本建設(shè)(土本建筑)工程中,按其定額子目數(shù)量計(jì)算有3550個(gè),按使用的材料由過去的種類660種發(fā)展到現(xiàn)在的1000余種。也就是說,要查閱某個(gè)定額子目(如鋼筋混凝土300#現(xiàn)澆梁)其繁瑣程度達(dá)三千分之一;查找一個(gè)材料或品種的繁瑣程度,也達(dá)到六百六十分之一至千分之一。
下面簡(jiǎn)要介紹綜合調(diào)價(jià)指數(shù)的確定方法及內(nèi)容。以水泥為例首先需要確定一個(gè)管轄區(qū)域內(nèi)水泥進(jìn)貨的數(shù)量、標(biāo)號(hào)、價(jià)格加權(quán)平均法確定各廠家進(jìn)貨數(shù)量單價(jià)水泥廠牌名稱 數(shù)量單價(jià)標(biāo)號(hào)1、F001廠的水泥 N1 X1 ***2、F002廠的水泥 N2 X2 ***3、F003廠的水泥 N3 X3 ***4、F004廠的水泥 N4 X4 ******n、F0On廠的水泥 Nn Xn ***計(jì)算公式
上述只是上千種材料其中的一個(gè)材料(水泥)的分析所要經(jīng)過的幾個(gè)階段。為加快工程預(yù)決算的速度和運(yùn)算質(zhì)量,必須利用計(jì)算機(jī)進(jìn)行計(jì)算。工程決算系數(shù)測(cè)算到項(xiàng)目上,若用原始的手工操作,難以完成眾多的工作量。開發(fā)出與土建定額軟件相配套的系數(shù)軟件,軟件替代了手工計(jì)算和翻閱所用某個(gè)材料的頁碼及材料價(jià)格、品種、規(guī)格用量多少,只需將工程預(yù)算書一次性輸入電腦,提示電腦所要求的年份、月、季立即可測(cè)得指數(shù)。
另外,工程造價(jià)傳統(tǒng)的計(jì)算辦法不分工程結(jié)構(gòu)形式,不分工業(yè)與民用建筑,也不分企業(yè)級(jí)別統(tǒng)一使用。這種造價(jià)管理方法的弊端較多一是自始至終是跟蹤服務(wù),屬于事后服務(wù),它無法預(yù)測(cè)未來價(jià)格的變化;二是綜合調(diào)價(jià)指數(shù)一年發(fā)布一次,頻度過低,不能及時(shí)、準(zhǔn)確地調(diào)整定額。這種滯后服務(wù)造成綜合調(diào)價(jià)指數(shù)不分建筑企業(yè)、建筑工程的具體情況統(tǒng)一使用,實(shí)行風(fēng)險(xiǎn)共擔(dān)、利益共享,嚴(yán)重?fù)p害國有大中型企業(yè)利益,不利于提高工程質(zhì)量;三是年終發(fā)布調(diào)價(jià)指數(shù)形成投資的追加,建設(shè)單位背上沉重包袱;四是工程竣工后因材料差價(jià)形成的投資缺口,被幾年甚至十幾年的拖欠,給建設(shè)和施工單位都造成經(jīng)濟(jì)上的損失,工程也無法按期交付使用;另外,基本建設(shè)定額估價(jià)工作一直是手工計(jì)算,速度慢,準(zhǔn)確率低,耗時(shí)多,造成發(fā)布造價(jià)指數(shù)時(shí)間間隔較長。
本發(fā)明的目的是要提供一種基建項(xiàng)目指數(shù)預(yù)測(cè)動(dòng)態(tài)管理方法,它能有效地克服上述缺點(diǎn),對(duì)基本建設(shè)造價(jià)實(shí)施超前管理,實(shí)行基建項(xiàng)目綜合動(dòng)態(tài)指數(shù)測(cè)定與工程造價(jià)預(yù)測(cè)管理微機(jī)控制,并能為國內(nèi)大、中型工程和哈薩克斯坦的國際招標(biāo)提供準(zhǔn)確數(shù)據(jù)。
本發(fā)明的目的是按如下方法實(shí)現(xiàn)的。
基建項(xiàng)目指數(shù)預(yù)測(cè)與動(dòng)態(tài)管理方法,稱為”基建項(xiàng)目綜合動(dòng)態(tài)指數(shù)測(cè)定與工程造價(jià)預(yù)測(cè)管理系統(tǒng)”,簡(jiǎn)稱為管理系統(tǒng),系統(tǒng)核心分為數(shù)據(jù)庫部分和分析預(yù)測(cè)部分。數(shù)據(jù)庫部分應(yīng)該包括三種數(shù)據(jù)首先將歷年來竣工工程的各項(xiàng)數(shù)據(jù)按類別、結(jié)構(gòu)形式分別記錄在庫;其次,將每月調(diào)查分析的建筑材料市場(chǎng)價(jià)格以及進(jìn)貨數(shù)量記錄下來;第三,輸入“定額估價(jià)本”的數(shù)據(jù)。分析預(yù)測(cè)部分如下設(shè)計(jì)(1)、分析部分利用上述數(shù)據(jù)庫中記錄下來的當(dāng)月的建筑材料市場(chǎng)價(jià)格及進(jìn)貨數(shù)量,通過加權(quán)平均的方法計(jì)算出國家規(guī)定的1000多種材料的調(diào)價(jià)指數(shù)。
建筑材料加權(quán)平均價(jià)計(jì)算公式
(2)、預(yù)測(cè)部分建筑材料市場(chǎng)價(jià)格圍繞價(jià)值上下波動(dòng),其變化的時(shí)間--價(jià)格坐標(biāo)曲線變化較緩。以年為單位,利用數(shù)據(jù)庫部分中的近5年來竣工工程的各項(xiàng)數(shù)據(jù)以及5年來的綜合調(diào)價(jià)指數(shù),做出建筑材料市場(chǎng)價(jià)格的時(shí)間--價(jià)格坐標(biāo)曲線圖。利用”統(tǒng)計(jì)學(xué)”中的環(huán)比計(jì)算方法,P1∶P2=P2∶Px,計(jì)算出未來建筑材料市場(chǎng)價(jià)格Px(P1是前期價(jià)格,P2是后期價(jià)格,Px是預(yù)測(cè)價(jià)格,P1和P2之間的時(shí)間間隔與P2和Px的間隔相等,以一至十二個(gè)月為宜)。如果時(shí)間跨度較大,可以利用建筑材料市場(chǎng)價(jià)格的時(shí)間--價(jià)格坐標(biāo)曲線圖對(duì)Px進(jìn)行修正對(duì)P1、P2兩種價(jià)格間的曲線做出曲線變化公式,更精確地計(jì)算出Px的值。根據(jù)每個(gè)建筑材料單項(xiàng)預(yù)測(cè)的調(diào)價(jià)指數(shù),以及數(shù)據(jù)庫中的歷年竣工工程的數(shù)據(jù),就可以分析預(yù)測(cè)出未來建筑材料價(jià)格變化情況和未來工程造價(jià)。
可以設(shè)計(jì)相應(yīng)的計(jì)算機(jī)應(yīng)用程序,包括數(shù)據(jù)庫和分析預(yù)測(cè)部分。將分析部分和預(yù)測(cè)部分編制成兩個(gè)獨(dú)立的單元。利用計(jì)算機(jī)完成每月的工程造價(jià)的指數(shù)測(cè)定并求得歷年來建筑材料上漲、下落的曲線、幅度與指數(shù),預(yù)測(cè)未來建材價(jià)格變化情況,預(yù)計(jì)標(biāo)的工程的造價(jià)。這樣就可以利用先進(jìn)的計(jì)算機(jī)技術(shù)改變過去基建項(xiàng)目工程造價(jià)管理中“跟蹤造價(jià)型”服務(wù)的陳舊模式,實(shí)行“超前預(yù)測(cè)型”服務(wù)方式,實(shí)現(xiàn)基建項(xiàng)目快速、準(zhǔn)確、有效的造價(jià)管理工作。
本發(fā)明的優(yōu)點(diǎn)在于1、改變了幾十年傳統(tǒng)式的定額估價(jià)加綜合指數(shù)法,實(shí)現(xiàn)跟蹤服務(wù)方式向超前預(yù)測(cè)型服務(wù)方式轉(zhuǎn)變。2、在全年任意時(shí)期均可進(jìn)行土建、水、暖、電安裝工程造價(jià)指數(shù)測(cè)算,改革了目前年終發(fā)布調(diào)價(jià)指數(shù),進(jìn)行工程決算的滯后服務(wù)方法。3、可提前提供數(shù)據(jù),使建設(shè)單位根據(jù)實(shí)際經(jīng)濟(jì)承受能力決定建設(shè)規(guī)模,杜絕“三角債”的形成。4、消除了過去預(yù)算超概算、決算超預(yù)算情況,使X(預(yù)算)=Y(jié)(概算)=Z(決算)。5、利用環(huán)比計(jì)算方法,也可求得歷年來建筑材料上漲、下幅指數(shù),一次性完成造價(jià)預(yù)測(cè),并能為所有的工業(yè)與民用建筑招標(biāo)提供準(zhǔn)確計(jì)算數(shù)據(jù)。6、利用先進(jìn)的計(jì)算機(jī)技術(shù)進(jìn)行工程造價(jià)管理,結(jié)束了多年來手工計(jì)算速度慢、準(zhǔn)確率低、服務(wù)滯后等缺點(diǎn),使管理部門真正做到”合理確定”和“有效控制”。
說明書附圖
是根據(jù)本發(fā)明提出的“基建項(xiàng)目指數(shù)預(yù)測(cè)與動(dòng)態(tài)管理方法”的計(jì)算機(jī)程序流程圖。
實(shí)施例基建項(xiàng)目指數(shù)預(yù)測(cè)與動(dòng)態(tài)管理辦法。
基建項(xiàng)目指數(shù)預(yù)測(cè)與動(dòng)態(tài)管理方法,稱為”基建項(xiàng)目綜合動(dòng)態(tài)指數(shù)測(cè)定與工程造價(jià)預(yù)測(cè)管理系統(tǒng)”,簡(jiǎn)稱為管理系統(tǒng),系統(tǒng)核心分為數(shù)據(jù)庫部分和分析預(yù)測(cè)部分。數(shù)據(jù)庫部分應(yīng)該包括三種數(shù)據(jù)首先將歷年來竣工工程的各項(xiàng)數(shù)據(jù)按類別、結(jié)構(gòu)形式分別記錄在庫;其次,將每月調(diào)查分析的建筑材料市場(chǎng)價(jià)格以及進(jìn)貨數(shù)量記錄下來;第三,輸入“定額估價(jià)本”的數(shù)據(jù)。分析預(yù)測(cè)部分如下設(shè)計(jì)(1)、分析部分利用上述數(shù)據(jù)庫中記錄下來的當(dāng)月的建筑材料市場(chǎng)價(jià)格及進(jìn)貨數(shù)量,通過加權(quán)平均的方法計(jì)算出國家規(guī)定的1000多種材料的調(diào)價(jià)指數(shù)。
建筑材料加權(quán)平均價(jià)(調(diào)價(jià)指數(shù))計(jì)算公式
(2)、預(yù)測(cè)部分建筑材料市場(chǎng)價(jià)格圍繞價(jià)值上下波動(dòng),其變化的時(shí)間--價(jià)格坐標(biāo)曲線變化較緩。以年為單位,利用數(shù)據(jù)庫部分中的近5年來竣工工程的各項(xiàng)數(shù)據(jù)以及5年來的綜合調(diào)價(jià)指數(shù),做出建筑材料市場(chǎng)價(jià)格的時(shí)間--價(jià)格坐標(biāo)曲線圖。利用”統(tǒng)計(jì)學(xué)”中的環(huán)比計(jì)算方法,P1∶P2=P2∶Px,計(jì)算出未來建筑材料市場(chǎng)價(jià)格Px(P1是前期價(jià)格,P2是后期價(jià)格,Px是預(yù)測(cè)價(jià)格,P1和P2之間的時(shí)間間隔與P2和Px的間隔相等,以一至十二個(gè)月為宜)。如果時(shí)間跨度較大,可以利用建筑材料市場(chǎng)價(jià)格的時(shí)間--價(jià)格坐標(biāo)曲線圖對(duì)Px進(jìn)行修正對(duì)P1、P2兩種價(jià)格間的曲線做出曲線變化公式,更精確地計(jì)算出Px的值。根據(jù)每個(gè)建筑材料單項(xiàng)預(yù)測(cè)的調(diào)價(jià)指數(shù),以及數(shù)據(jù)庫中的歷年竣工工程的數(shù)據(jù),就可以分析預(yù)測(cè)出未來建筑材料價(jià)格變化情況和未來工程造價(jià)。
設(shè)計(jì)相應(yīng)的計(jì)算機(jī)應(yīng)用程序,包括數(shù)據(jù)庫和分析預(yù)測(cè)部分。將分析部分和預(yù)測(cè)部分編制成兩個(gè)獨(dú)立的單元。利用計(jì)算機(jī)完成每月的工程造價(jià)的指數(shù)測(cè)定并求得歷年來建筑材料上漲、下落的曲線、幅度與指數(shù),預(yù)測(cè)未來建材價(jià)格變化情況,預(yù)計(jì)標(biāo)的工程的造價(jià)。這樣就可以利用先進(jìn)的計(jì)算機(jī)技術(shù)改變過去基建項(xiàng)目工程造價(jià)管理中“跟蹤造價(jià)型”服務(wù)的舊模式,實(shí)行”超前預(yù)測(cè)型”服務(wù)方式,實(shí)現(xiàn)基建項(xiàng)目快速、準(zhǔn)確、有效的造價(jià)管理工作。
程序如下
<pre listing-type="program-listing"><![CDATA[type zscd.prg*********************************************************** ZCX ***********************************************************CLEA ALLSET PROC TO ZSCDSET BELL OFFSET ECHO OFFSET MENU OFFSET TALK OFFSET STATUS OFFSET SAFETY OFFSET ESCAPE OFFset scor offSET TYPE TO 2SET CONFIRM ONDO MENU@ 20.1 say″按F10重返程序 OUIT退回DOS系統(tǒng)″CLEAR TYPEAHEADCLOSE ALLCLOSE PROCRETURNPROC MENUSET COLOR TO 7+/1.2/0CLEA***************************************************************************************************@3, 0 say″ 歡迎 您使 用″@4, 0 SAY″===========================================@7, 0 SAY″ 基本建設(shè)項(xiàng)目指數(shù)測(cè)定管理系統(tǒng)(2.0)″@10,0 SAY″ WELCOM YOU″@14,0 say″ 塔城地區(qū)基本建設(shè)工程定額站″@16,0 say″塔城地區(qū)經(jīng)濟(jì)信息中心″@20,0 say″ 研制人桑建新褚風(fēng)香張新立WAIT′″******************************************#*********************************************************XZZY=SPAC(26)SET FUNC 10 TO″DO ZSCD″PUBLIC xz,bm,chxz=0STORE′′TO bM,chCLEADO WHILE.T.SELE AUSESELE BUSESELE CUSE@ 3,0 CLEA@ 20,50 SAY XZZYset mess to 24mess1=″ ″mess2=″基本建設(shè)項(xiàng)目指數(shù)測(cè)定管理系統(tǒng)@ 1,1,1,79 BOX″ ″@ 3,2 PROM″1.數(shù)據(jù)錄入修改″@ 3,21 prom″2.項(xiàng)目編輯″@ 3,36 prom″3.輔助功能″@ 3,51 PROM″4.預(yù)處理″@ 3,66 PROM″5.退出″@ 4,1 say″————————————————————————————————————————————————————————————————″@ 1,8 say mess2@ 2,1 SAY″==============================================================================″menu to SADO CASE CASE SA=1DO XGSJ CASE SA=2DO XMBJ CASE SA=3DO DY CASE SA=4DO YCL CASE SA=5QUIT OTHERCLEAEXITENDCASEENDDORETURN]]></pre>
RETURM********************************************************************** XGSJ**********************************************************************PROCEDURE XGSJch=′′bm=′′ERNUM=0
@ 6,4 prom″1.數(shù)據(jù)錄入″@ 7,4 prom″2.數(shù)據(jù)修改″@ 8,4 prom″ESC-返回″MENU TO ANDO CASECASE AN=1DO LRCASE AN=2DO XOTHE CLEARETURNENDCASERETURN**********************************************************************LR **********************************************************************PROCEDURE LRclearuse cgleditCLEARretu********************************************************************** X**********************************************************************PROC Xclearuse cgl?″記錄修改″acce″請(qǐng)輸入要修改的記錄號(hào)(退出按ESC)″to jlhgo &jlhEDITCLEARRETU機(jī)會(huì)自動(dòng)計(jì)算并填入組合序數(shù)、年份個(gè)、十位數(shù)的背景色與前景標(biāo)準(zhǔn)色的灰度,再右點(diǎn)一下鼠標(biāo)確認(rèn)(確認(rèn)后表格消失),接著可輸入兩位年份數(shù),若覺得數(shù)字前景標(biāo)準(zhǔn)色與背景色不易區(qū)分,還可在相應(yīng)數(shù)字欄顯示方式處選增強(qiáng)顯示,計(jì)算機(jī)默認(rèn)為標(biāo)準(zhǔn)顯示。以上定義對(duì)以
后的日期一直有效,直到重新定義或修改或取消。取消定義后該處的年份數(shù)為普通顯示方式,即背景色、前景色與屏幕一致,前景色只有一種,取消定義的方法為將光標(biāo)移到年份數(shù)位置處,左點(diǎn)一下鼠標(biāo),出現(xiàn)上述空表格后再右點(diǎn)一下鼠標(biāo)(右點(diǎn)鼠標(biāo)后表格消失)。軟件應(yīng)能識(shí)別年份數(shù)的背景色、前景標(biāo)準(zhǔn)色、增強(qiáng)色、組合序數(shù),在計(jì)算、比較等需要世紀(jì)數(shù)處,應(yīng)有轉(zhuǎn)換程序,自動(dòng)按前述方法將背景色、前景標(biāo)準(zhǔn)色灰度及組合序數(shù)代入公式計(jì)算出世紀(jì)數(shù)從而計(jì)算出公元紀(jì)年。還可查詢世紀(jì)數(shù),將光標(biāo)移到要查詢的年份數(shù)位置處,右點(diǎn)一下鼠標(biāo),便出現(xiàn)上述表格,其中世紀(jì)數(shù)、組合序數(shù)、年份個(gè)、十位數(shù)的背景色、前景標(biāo)準(zhǔn)色的灰度都已填好,此時(shí)也可左點(diǎn)一下鼠標(biāo)選用或改變顯示方式,再右點(diǎn)一下鼠標(biāo)確認(rèn)后表格消失。
防止“00”和“99”問題的方法在軟件中設(shè)有測(cè)定數(shù)字前景色的程序,若前景色不止一種,則不執(zhí)行系統(tǒng)賦予“00”和“99”的特殊功能,由于日期中每個(gè)年份數(shù)字都由標(biāo)準(zhǔn)色和增強(qiáng)色兩種顏色表示,故不會(huì)產(chǎn)生因日期中的“00”和“99”而產(chǎn)生的誤操作。注意在修改已有數(shù)據(jù)或新建數(shù)據(jù)時(shí),應(yīng)將賦予了特殊含義的“00”和“99”表示成普通顯示方式,即使它們有日期格式的形式也應(yīng)表示成普通顯示方式,若已表示成年份數(shù)的標(biāo)準(zhǔn)色與增強(qiáng)色共同顯示的方式,應(yīng)用前述方法取消對(duì)它們的定義,使它們恢復(fù)成普通顯示方式。
由于本方法用兩位數(shù)實(shí)際上已把整個(gè)公元紀(jì)年都表示出來了,閏年問題也就自然解決了,程序在算出公元紀(jì)年后做如下判斷若后兩位數(shù)都是0且能被400整除,則該年份是閏年,若后兩位數(shù)不都是0且能被4整除,則該年份是閏年,否則不是閏年。
對(duì)于用四位數(shù)表示年份的應(yīng)用程序,應(yīng)做如下修改當(dāng)存貯或向外傳遞與日期有關(guān)的信息時(shí)應(yīng)將年份轉(zhuǎn)換成用本方法表示的兩位數(shù),當(dāng)調(diào)用或接收與日期有關(guān)的信息時(shí)應(yīng)將用本方法表示的兩位年份數(shù)轉(zhuǎn)換成對(duì)應(yīng)的四位數(shù)。這樣修改后用四位數(shù)表示年份的應(yīng)用程序與根據(jù)本方法作了相應(yīng)修改的用兩位數(shù)表示年份的應(yīng)用程序同時(shí)使用時(shí)的兼容問題也就解決了。
本發(fā)明除了具有日期表示范圍足夠長、不會(huì)因日期而產(chǎn)生“00”和“99”問題、解決了閏年問題、兼容問題、且符合人們習(xí)慣等優(yōu)點(diǎn)外,與目前常用的擴(kuò)增法、滑動(dòng)窗口法、日期操縱法、月份加計(jì)法相比還有如下優(yōu)點(diǎn)根據(jù)這四種方法修改時(shí),由于原應(yīng)用軟件不能正常識(shí)別修改后的日期數(shù)據(jù),因此修改時(shí)原應(yīng)用軟件不能再用了,也必須同時(shí)修改或更換新軟件,由于很多應(yīng)用軟件是軟件公司開發(fā)的,用戶不知道源程序,自己無法修改,所以只有在獲得所有與原應(yīng)用軟件相對(duì)應(yīng)的新軟件后才能對(duì)日期數(shù)據(jù)進(jìn)行修改,因此根據(jù)這四種方法修改起來很被動(dòng),時(shí)間很緊迫。而本發(fā)明對(duì)年份的修改只是改變了年份數(shù)字的前景色與背景色,其<p><pre listing-type="program-listing"><![CDATA[******************************************** Z ********************************************proc Zuse gldo while.t.set talk off?″?″0----返回″?″1----以插入方式增加″?″2----以添加方式增加″wait to fsdo case case fs=″1″?″以插入方式增加″?″ ″ input″請(qǐng)輸入須增加項(xiàng)目的記錄號(hào)″to xhgo xhset talk ondispacce″是在該記錄前插入嗎?(y/n)″to jlif jl=″y″.or.j1=″Y″inse befoendif case fs=″2″appe case fs=″0″CLEARreturnendcaseenddoCLEARretu******************************************** S ********************************************procecdure S@3,0 cleause gldo while.t.acce″請(qǐng)輸入要?jiǎng)h除的記錄號(hào)(退出按0)″to jlhif jlh=″0″CLEARreturnendifgo &jlh.dispacce″要?jiǎng)h除的是該記錄嗎(y/n)?″to scif sc=″y″.or.sc=″Y″dele reco &jlh.packendifCLEARretu]]></pre>
實(shí)施例7用鋁硅酸鹽纖維制造一個(gè)外徑為29.4mm、內(nèi)徑為8.0mm和長度為338.0mm的容納油的器件作為主要部件。在該容納油的器件中插入一根軸。此外,該容納油的器件用粘度為100cSt(25℃)的130g二甲基硅油浸漬。將厚度為2.8mm和密度為260kg/m3的芳族聚酰胺耐熱纖維氈墊(商品名稱“NOMEX”由Japan FeltInd.Co.,Ltd.制造)纏繞并固定到容納油的器件的外圓周邊的表面上,從而形成一個(gè)油遷移層。此外,將9∶1的硅酮漆(由Shin-Etsu Chemical Co.,Ltd.制造的“KR105”)和硅油(由Shin-Etsu Chemical Co.,Ltd.制造的“KF-96”)的混合物(該混合物溶液中加入按重量計(jì)大約3%的固化加速劑)涂敷到最大孔徑尺寸為0.1μm的拉伸PTEE多孔膜油涂敷量控制層的整個(gè)表面上。將該油涂敷量控制層纏繞一圈并粘接,在油遷移層的外圓周邊的表面上形成一個(gè)卷。這樣,就得到一個(gè)涂油輥。按照以下檢測(cè)過程(1)和(2)評(píng)價(jià)涂油輥。(1)將涂油輥安裝到買來的彩色打印機(jī)(彩色紙供給速度每分鐘4頁)上。將5000張普通彩色紙送入打印機(jī)。在送入500張、1000張、2000張、3000張、4000張和5000張紙后分別測(cè)量涂敷到一張普通彩色紙上的硅油量。此外,在實(shí)驗(yàn)后通過用肉眼觀察大量印刷30000張A4紙后該油涂敷量控制層的剝落或移動(dòng)進(jìn)行檢測(cè)。如果沒有觀察到剝落或移動(dòng),等級(jí)確定為“A”,如果觀察到剝落或移動(dòng),等級(jí)確定為“B”。
(2)在前面所述的彩色打印機(jī)中,將一種品紅單一顏色的單色打印圖象定影到一張OHP紙上。然后送出這張OHP紙。觀察這張OHP紙上的硅油的不均勻涂<p><pre listing-type="program-listing"><![CDATA[*********************************************GL*********************************************PROC GLset talk offacce″請(qǐng)輸入工程名稱″to mcacce″請(qǐng)輸入工程年份″to nfacce″請(qǐng)輸入預(yù)算價(jià)年份″to ysSET CONS OFF??chr(27)+″U08″??chr(27)+″P″??chr(27)+″ID″set device to printset print on@ prow()+1,20 say nf picture″@r xxxx″@ prow(),20 say″ 年建筑工程預(yù)決算指數(shù)實(shí)測(cè)表(土建部分)″@prow()+1,20say ″======================″set print off??chr(22)+″I″+″A″set print on@ prow()+2,5 say·″工程名稱″@ prow(),16 say mc picture″@r xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx@ prow()+1,3 say;″---------------------------------------------------------------------------------″@ prow()+1,3 say;″序號(hào) 材料名稱 單位材料用量 預(yù)算價(jià) 總值 實(shí)際價(jià)總值 指數(shù) ″@ prow(),36 say ys picture″@r xx″@ prow(),56 say substr(nf,3,2)picture″@r xx″@ prow()+1,3 say;″----+------------+----+---------+--------+-----------+------------------+-------″x=prow()+1use cgldo while.not.eof()@ x,3 say序號(hào)picture″@rxxxx″@ x,8 say材料名稱picture″@rxxxxxxxxxxx″@ x,21 say單位picture″@rxxxx″@ x,26 say材料用量picture″99999.99″@ x,35 say預(yù)算價(jià)picture″99999.99″store 材料用量*預(yù)算價(jià)to總值1@ x,44 say總值1 picture″9999999.99″@ x,55 say實(shí)際價(jià)picture″99999.99″store材料用量*實(shí)際價(jià)to總值2@ x,64 say總值2 picture″9999999.99″store總值2/總值1 to指數(shù)@ x,75 say指數(shù)picture″999.999″@ x,83 say″″skipx=x+1if eof()sum 材料用量*預(yù)算價(jià),材料用量*實(shí)際價(jià)to z1,z2@ prow()+1,3 say;″----+------------+----+-----------------+-----------+--------+----------+-------″store prow() to x@ x+1,3 say″合計(jì)″@ prow(),8 say″″@ prow(),21 say″″@ prow(),26 say″″@ prow(),35 say″″@ prow(),44 say z1 picture″9999999.99″@ prow(),55 say″″@ prow(),64 say z2 picture″9999999.99″store z2/z1 to zs@ prow(),75 say zs picture″999.999″@ prow(),83 say″″@ prow()+1,3 say;″-------------------------------------------------------------------------″?else@ x,3 say;″----+------------+----+--------+--------+-----------+-------″e(cuò)ndifx=x+1enddoset print offset device to screenSET CONS ONreturn************************************************************ dos ************************************************************procedure dosdo whil.t.cleacom=″@2,5 say″========ESC退出======″@5,5 say″DOS命令″get comreadif readkey()=12exitendiif len(trim(com))>3!&comwait″按任意鍵...″e(cuò)ndienddCLEARreturn************************************************************ cxjk ************************************************************procedure cxjkmm=space(8)@14,20 say″請(qǐng)輸入文件名″get mmreadif readkey()=12returnendimm=trim(mm)mm1=mm+′.prg′mm2=mm+′.fox′if file(mm1).or.file(mm2)do &mmelse@16,20 say″文件不存在!″wait″按任意鍵...″@14,20 clea to 21.80returnendicleareturn]]></pre>
*************************************************** YCL ***************************************************PROC YCL@5,0 clea
@ 6,53 prom″1.初始化″@ 7,53 prom″2.改庫結(jié)構(gòu)″@ 8,53 prom″ESC-返回″menu to sa6do casecase sa6=1do cshcase sa6=2do XGKother cleareturnendcreturn*************************************************** csh ***************************************************proc cshset safe off@ 4,0 CLEA@ 10,10 SAY″正在進(jìn)行初始化,請(qǐng)稍候...″use GLL=0RE2LACE ALL材料用量WTTH LRETU*************************************************** XGK***************************************************PROC XGKCLEARUSE GLMODI STRURETU
<pre listing-type="program-listing"><![CDATA[C\FOX>type gll.prgset talk offacce″請(qǐng)輸入工程名稱″to mcset cons off??chr(27)+″U08″??chr(27)+″P″?chr(27)+″I″+″B″set device to printset print on@ prow()+1,35 say″建筑工程逐年環(huán)比測(cè)算指數(shù)分析表″@ prow()+1,35 say″------------------------------″set print off??chr(22)+″I″+″A″set print on@ prow()+2,5 say″工程名稱″@ prow(),16 say mc picture″@r xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx″@ prow()+1,3 say;″-----------------------------------------------------------------------------------------------------------″@ prow()+1,3 say;″序號(hào) 材料名稱 單位材料用量93預(yù)算價(jià)93實(shí)際價(jià) 指數(shù)94實(shí)際價(jià) 指數(shù) 95實(shí)際價(jià) 指數(shù) 96實(shí)際價(jià) 指數(shù) ″@ prow()+1,3 say;″----+------------+----+--------+--------+--------+-------+----------+--------+--------+-------+--------+------″x=prow()+1use glldo while.not.eof()@ x,3 say序號(hào)picture″@r xxxx″@ x,8 say材料名稱picture″@r xxxxxxxxxxx″@ x,21say單位picture″@r xxxx″@ x,26 say材料用量picture″99999.99″@ x,35 say預(yù)算價(jià)picture″99999.99″store材料用量*預(yù)算價(jià)to總值1@ x,44 say實(shí)際價(jià)93 picture″99999.99″store材料用量*實(shí)際價(jià)93 to總值2store總值2/總值1 to指數(shù)1@ x,53 say指數(shù)1 picture″999.999″@ x,61 say實(shí)際價(jià)94 picture″99999.99″store材料用量*實(shí)際價(jià)94 to總值3store總值3/總值2 to指數(shù)2@ x,70 say指數(shù)2 picture″999.999″@ x,78 say實(shí)際價(jià)95 picture″99999.99″store材料用量*實(shí)際價(jià)95 to總值4store總值4/總值3 to指數(shù)3@ x,87 say指數(shù)3 picture″999.999″@ x,95 say實(shí)際價(jià)96 picture″99999.99″store材料用量*實(shí)際價(jià)96 to總值5store總值5/總值4 to指數(shù)4@ x,104 say指數(shù)4 picture″999.999″@ x,112 say″″skipx=x+1if eof()sum 材料用量*預(yù)算價(jià),材料用量*實(shí)際價(jià)93,材料用量*實(shí)際價(jià)94,材料用;量*實(shí)際價(jià)95,材料用量*實(shí)際價(jià)96 to z1,z2,z3,z4,z5@ prow()+1,3 say;″----+------------+----+--------+--------+----------------+--------+-------+--------+-------+--------+-------″store prow()to x@ x+1,3 say″合計(jì)″@ prow(),8 say″″@ prow(),21 say″″@ prow(),26 say″″@ prow(),35 say″″@ prow(),44 say″″store z2/z1 to zs1@ prow(),53 say zs1 picture″999.999″@ prow(),61say″″store z3/z2 to zs2@ prow(),70 say zs2 picture″999.999″@ prow(),78 say″″store z4/z3 to zs3@ prow(),87 say zs3 picture″999.999″@ prow(),95 say″″store z5/z4 to zs4@ prow(),104 say zs4 picture″999.999″@ prow(),112 say″″@ prow()+1,3 say;″-------------------------------------------------------------------------------------------------------″?else@ x,3 say;″----+------------+----+--------+--------+--------+-------+--------+-------+--------+-------+--------+-------″e(cuò)hdifx=x+1enddoset print offset device to screenset cons onreturnC\FOX>type gl.preset talk offacce″請(qǐng)輸入工程名稱″to mcacce″請(qǐng)輸入工程年份″to nf??chr(27)+″U08″??chr(27)+″P″??chr(27)+″I″+″B″set device to printset print on@ prow()+1,30 nf picture″@r xxxx″@ prow(),30 say″ 年建筑工程預(yù)決算指數(shù)實(shí)測(cè)表(水暖電部分)″@ prow()+1,30 say″=======================================″set print off??chr(22)+″I″+″A″set print on@ prow()+2,5 say″工程名稱″@ prow(),16 say mc picture″@r xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx″@ prow()+1,3 say;″--------------------------------------------------------------------------------------------------″@ prow()+1,3 say;″序號(hào)定額編號(hào) 材料 名稱 單位材料用量93預(yù)算價(jià) 總值 96實(shí)際價(jià)總值 指數(shù) ″@ prow()+1,3 say;″----+--------+--------------------+----+--------+--------+----------+--------+----------+-------″x=prow()+1use cgldo while.not.eof()@ x,3 say序號(hào)picture″@r xxxx″@ x,8 say定額編號(hào)PICTURE″@r xxxxxxxx″@ x,17 say材料名稱picture″@r xxxxxxxxxxxxxxxxxxxx″@ x,38 say單位picture″@r xxxx″@ x,43 say材料用量picture″99999.99″@ x,52 say預(yù)算價(jià)picture″99999.99″store材料用量*預(yù)算價(jià)to總值1@ x,61 say總值1 picture″9999999.99″@ x,72 say實(shí)際價(jià)picture″99999.99″store材料用量*實(shí)際價(jià)to總值2@ x,81 say總值2 picture″9999999.99″store總值2/總值1 to指數(shù)@ x,92 say指數(shù)picture″999.999″@ x.100 say″″skipx=x+1if eof()sum材料用量*預(yù)算價(jià),材料用量*實(shí)際價(jià)to z1,z2@ prow()+1,3 say;″----+--------+--------------------+----+--------+--------+----------+--------+------------------+---------″store prow()to x@x+1,3 say″合計(jì)″@ prow(),8 say″″@ prow(),17 say″″@ prow(),38 say″″@ prow(),43 say″″@ prow(),52 say″″@ prow(),61say z1 picture″9999999.99″@ prow(),72 say″″@ prow(),81 say z2 picture″9999999.99″store z2/z1 to zs@ prow(),92 say zs picture″999.999″@ prow(),100 say″″@ prow()+1,3 say;″--------------------------------------------------------------------------------------------------″?else@ x,3 say;″----+--------+--------------------+----+--------+--------+----------+--------+------------------+------------″e(cuò)ndifx=x+1enddoset print offset device to screenCLEARreturn]]></pre>
權(quán)利要求
1.基建項(xiàng)目指數(shù)預(yù)測(cè)與動(dòng)態(tài)管理方法,稱為“基建項(xiàng)目綜合動(dòng)態(tài)指數(shù)測(cè)定與工程造價(jià)預(yù)測(cè)管理系統(tǒng)”,它包括分析部分,即利用調(diào)查分析來的當(dāng)月的建筑材料市場(chǎng)價(jià)格及進(jìn)貨數(shù)量,通過加權(quán)平均的方法計(jì)算出國家規(guī)定的一千多種材料的調(diào)價(jià)指數(shù),其特征在于它還包括與分析部分共同組成系統(tǒng)核心的數(shù)據(jù)庫部分和預(yù)測(cè)部分。數(shù)據(jù)庫部分包括三種數(shù)據(jù)首先是歷年來竣工工程按類別、結(jié)構(gòu)形式記錄的各項(xiàng)數(shù)據(jù),其次是每月調(diào)查分析的建筑材料市場(chǎng)價(jià)格以及進(jìn)貨數(shù)量,第三,“定額估價(jià)本”的各項(xiàng)數(shù)據(jù);預(yù)測(cè)部分是利用“統(tǒng)計(jì)學(xué)”中的環(huán)比計(jì)算方法,P1∶P2=P2∶Px,計(jì)算出未來建筑材料市場(chǎng)價(jià)格Px(P1是前期價(jià)格,P2是后期價(jià)格,Px是預(yù)測(cè)價(jià)格,P1和P2之間的時(shí)間間隔與P2和Px的間隔相等,以一至十二個(gè)月為宜),如果時(shí)間跨度較大,可以利用建筑材料市場(chǎng)價(jià)格的時(shí)間--價(jià)格坐標(biāo)曲線圖對(duì)Px進(jìn)行修正對(duì)P1、P2兩種價(jià)格間的曲線做出曲線變化公式,更精確地計(jì)算出Px的值。根據(jù)每個(gè)建筑材料單項(xiàng)預(yù)測(cè)的調(diào)價(jià)指數(shù)以及數(shù)據(jù)庫中的歷年竣工工程的數(shù)據(jù),就可以分析預(yù)測(cè)出未來建筑材料價(jià)格變化情況和未來工程造價(jià)。
全文摘要
基建項(xiàng)目指數(shù)預(yù)測(cè)與動(dòng)態(tài)管理方法,涉及基本建設(shè)項(xiàng)目工程造價(jià)管理領(lǐng)域,編制使用基建項(xiàng)目綜合動(dòng)態(tài)指數(shù)測(cè)定與工程造價(jià)預(yù)測(cè)管理系統(tǒng),系統(tǒng)分為數(shù)據(jù)庫部分和分析預(yù)測(cè)部分,可以分析計(jì)算出國家規(guī)定的1000多種材料的調(diào)價(jià)指數(shù),還可以計(jì)算出未來建筑材料市場(chǎng)價(jià)格變化趨勢(shì),其優(yōu)點(diǎn):改變了傳統(tǒng)式的定額估價(jià)加綜合指數(shù)法,實(shí)現(xiàn)跟蹤服務(wù)方式向超前預(yù)測(cè)型服務(wù)方式轉(zhuǎn)變;在全年任意時(shí)期均可進(jìn)行土建、水、暖、電安裝工程造價(jià)指數(shù)測(cè)算;提前提供數(shù)據(jù),使建設(shè)單位根據(jù)實(shí)際經(jīng)濟(jì)承受能力決定建設(shè)規(guī)模;一次性完成造價(jià)預(yù)測(cè),為工業(yè)與民用建筑招標(biāo)提供準(zhǔn)確計(jì)算數(shù)據(jù);利用計(jì)算機(jī)技術(shù)進(jìn)行工程造價(jià)管理,計(jì)算速度快、準(zhǔn)確率高、服務(wù)快速。
文檔編號(hào)G06T1/00GK1247349SQ9811893
公開日2000年3月15日 申請(qǐng)日期1998年9月9日 優(yōu)先權(quán)日1998年9月9日
發(fā)明者桑建新, 褚風(fēng)香, 張新立 申請(qǐng)人:桑建新, 褚風(fēng)香, 張新立