/********************************************************************
	created:	2004/09/07
	created:	7:9:2004   16:42
	filename: 	f:\tg_dev\telecdev\twtkernal\feedcalc.cpp
	file path:	f:\tg_dev\telecdev\twtkernal
	file base:	feedcalc
	file ext:	cpp
	author:		沈睿
	
	purpose:	给水计算
*********************************************************************/



#include "stdafx.h"
//#include <cbclass.h>
#include <DbEquipment.h>
#include <MSWORD8.h>
#include <twtdef.h>

#include "CalcFeedDataDlg.h"

//***************************************************************************************************
//                                        住宅给水计算
//***************************************************************************************************

double GetAcByU0(double nU0)
{
    //差值法查表 2003规范 P107页
    double nAc(0);
    if(nU0 <= 1)
        nAc = 0.00323;
    else if(nU0 > 1 && nU0 <= 1.5)
        nAc = GetValBetween2(0.00323, 0.00697, 1.0, 1.5, nU0);
    else if(nU0 > 1.5 && nU0 <= 2.0)
        nAc = GetValBetween2(0.00697, 0.01097, 1.5, 2.0, nU0);
    else if(nU0 > 2.0 && nU0 <= 2.5)
        nAc = GetValBetween2(0.01097, 0.01512, 2.0, 2.5, nU0);
    else if(nU0 > 2.5 && nU0 <= 3.0)
        nAc = GetValBetween2(0.01512, 0.01939, 2.5, 3.0, nU0);
    else if(nU0 > 3.0 && nU0 <= 3.5)
        nAc = GetValBetween2(0.01939, 0.02374, 3.0, 3.5, nU0);
    else if(nU0 > 3.5 && nU0 <= 4.0)
        nAc = GetValBetween2(0.02374, 0.02816, 3.5, 4.0, nU0);
    else if(nU0 > 4.0 && nU0 <= 4.5)
        nAc = GetValBetween2(0.02816, 0.03263, 4.0, 4.5, nU0);
    else if(nU0 > 4.5 && nU0 <= 5.0)
        nAc = GetValBetween2(0.03263, 0.03715, 4.5, 5.0, nU0);
    else if(nU0 > 5.0 && nU0 <= 6.0)
        nAc = GetValBetween2(0.03715, 0.04629, 5.0, 6.0, nU0);
    else if(nU0 > 6.0 && nU0 <= 7.0)
        nAc = GetValBetween2(0.04629, 0.05555, 6.0, 7.0, nU0);
    else if(nU0 > 7.0 && nU0 <= 8.0)
        nAc = GetValBetween2(0.05555, 0.06489, 7.0, 8.0, nU0);
    else if(nU0 > 8.0 )
        nAc = 0.06489;
    return nAc;
}

//把立管加入SCalcFloorData结构中
void AddVerticalPipeToData(SSearchPipeList *pListAll, DList<SCalcFloorData> &lstFeedData, BOOL bFromDownToUp)
{
    AcDbObjectId id = NULL;
    id = pListAll->m_ID;
    if(pListAll->m_iType == 0){//管线
        CString csFloor,csVPipeName;
        OPENOBJ_BEGIN(id, AcDb::kForRead, TDbPipe, pPipe);
        if(pPipe){
            CString csLabel = pPipe->GetSysLabel();
            int idx = csLabel.Find(_T("-"));
			if(idx > -1){
				csFloor = csLabel.Left(idx);
				csVPipeName = csLabel.Right(csLabel.GetLength()-idx-1);
			}
        }
        OPENOBJ_END();
        if(csFloor.Find(_T("立管")) >= 0){
			int iLen = (int)_tcslen(_T("立管"));
            int iNum = csFloor.GetLength() - iLen;
            csFloor = csFloor.Left(iNum);
			if(!bFromDownToUp){//自上往下供水，4楼立管属于3楼，。。。//小心UNICODE
                iLen = (int)_tcslen(_T("楼"));
				csFloor = csFloor.Left(csFloor.GetLength() - iLen);
				csFloor.Format(_T("%d楼"), _ttoi(csFloor) - 1);
			}
            int len = lstFeedData.Length();
            for(int i=0;i<len;i++){
                SCalcFloorData *pDataTmp = lstFeedData[i];
                if(pDataTmp->m_csFloor == csFloor && pDataTmp->m_csVPipeName == csVPipeName){
                    pDataTmp->m_IDMain = id;
                    break;
                }
            }
        }
    }
    long len = pListAll->m_lstNode.Length();
    for(long i=0;i<len;i++){
        SSearchPipeList *pList = pListAll->m_lstNode[i];
        AddVerticalPipeToData(pList, lstFeedData, bFromDownToUp);
    }
    
}

//转换数据函数 把链表转换为数组
BOOL TransformCalcFeedData(SSearchPipeList *pListAll, DList<SCalcFloorData> &lstFeedData, CString csCurFloor, CString csCurVPipeName)
{
    AcDbObjectId id = NULL;
    id = pListAll->m_ID;

    if(pListAll->m_iType == -1){
        double nDang(0);
        double nPeopleNum(3);
        double nFactor(2.8);
        int iRation(250), iDoorNum(1);
        double nU0(0);
        double nAc(0);
        double nU(0);
        AcDbObjectId id = pListAll->m_ID;
        OPENOBJ_BEGIN(id, AcDb::kForRead, TDbEquipment, pEquip);
        if(pEquip){
            nDang = pEquip->GetDang();
            nPeopleNum = pEquip->GetPipeLength();
            nFactor = _tstof(pEquip->GetNumber());
            iRation = _ttoi(pEquip->GetSysBlock());
            iDoorNum = pEquip->GetICookie(0);
            if(iDoorNum < 1)
                iDoorNum = 1;
            if(nDang < 0 && nPeopleNum < 0.5)//根本没有住宅信息
                return FALSE;
			if(iDoorNum < 0.001 || nDang < 0.001)
				nU0 = 0;
			else
				nU0 = (iDoorNum * iRation * nPeopleNum * nFactor) / (0.2*iDoorNum * nDang*24*3600);
            nAc = GetAcByU0(nU0*100);
			if(iDoorNum < 0.001 || nDang < 0.001)
				nU = 0;
			else
				nU = (1 + nAc * pow((iDoorNum * nDang -1), 0.49)) / sqrt(iDoorNum * nDang);
        }
        OPENOBJ_END();
        int len = lstFeedData.Length();
        for(int i=0;i<len;i++){
            SCalcFloorData *pDataTmp = lstFeedData[i];
            if(pDataTmp->m_csFloor == csCurFloor && pDataTmp->m_csVPipeName == csCurVPipeName){
                SCalcHouseData *pData = new SCalcHouseData();
                pData->m_ID = id;//前一节点是管线
                pData->m_iDoorNum = iDoorNum;
                pData->m_nNg = nDang;
                pData->m_nPeopleNum = nPeopleNum;
                pData->m_nFactor = nFactor;
                pData->m_iRation = iRation;
                pData->m_nU0 = nU0;
                pData->m_nAc = nAc;
                pData->m_nU = nU;
                pDataTmp->m_lstHouse.Append(pData);
                break;
            }
        }
        
        
    }
    else if(pListAll->m_iType == 0){//管线
        CString csFloor, csVPipeName;
        OPENOBJ_BEGIN(id, AcDb::kForRead, TDbPipe, pPipe);
        if(pPipe){
            CString csLabel = pPipe->GetSysLabel();
            int idx = csLabel.Find(_T("-"));
			if(idx > -1){
				csFloor = csLabel.Left(idx);
				csVPipeName = csLabel.Right(csLabel.GetLength()-idx-1);
			}
        }
        OPENOBJ_END();
        if(csFloor != _T("") && csFloor.Find(_T("立管")) < 0){
            int len = lstFeedData.Length();
            BOOL bExist = FALSE;
            for(int i=0;i<len;i++){
                SCalcFloorData *pDataTmp = lstFeedData[i];
                if(pDataTmp->m_csFloor == csFloor && pDataTmp->m_csVPipeName == csVPipeName){
                    bExist = TRUE;
                    break;
                }
            }
            if(!bExist){
                csCurFloor = csFloor;
                csCurVPipeName = csVPipeName;
                SCalcFloorData *pNewData = new SCalcFloorData();
                pNewData->m_csFloor = csFloor;
                pNewData->m_csVPipeName = csVPipeName;
                pNewData->m_ID = id;
                lstFeedData.Append(pNewData);
            }
        }
    }
  
    long len = pListAll->m_lstNode.Length();
    for(long i=0;i<len;i++){
        SSearchPipeList *pList = pListAll->m_lstNode[i];
        BOOL ret = TransformCalcFeedData(pList, lstFeedData, csCurFloor, csCurVPipeName);
        if(!ret)
            return FALSE;
    }
    return TRUE;
}

//计算函数
void DoCalcResidenceFeed(DList<SCalcFloorData> &lstFeedData, BOOL bFromDownToUp, BOOL bIsReCalc)
{
    int len = lstFeedData.Length();
    double nI(-1), nLost(-1), nSpeed(0);
    //计算每层支管管径
    for(int i=0;i<len;i++){
        SCalcFloorData *pDataTmp = lstFeedData[i];
        int iNum = pDataTmp->m_lstHouse.Length();
        double nSigmaU0(0), nSigmaNg(0);
        for(int j=0;j<iNum;j++){
            SCalcHouseData *pData = pDataTmp->m_lstHouse[j];
            double nAllNg = pData->m_iDoorNum * pData->m_nNg;
            AcDbObjectId id = pData->m_ID;
            AcDbObjectId idPipe = NULL;
            nSigmaU0 += (pData->m_nU0 * pData->m_nNg * pData->m_iDoorNum);
            nSigmaNg += pData->m_nNg * pData->m_iDoorNum;
            OPENOBJ_BEGIN(id, AcDb::kForRead, TDbEquipment, pEquip);
            if(pEquip){
                int num = pEquip->GetInterfaceNum();
                if(num == 1){
                    TPipeInterface face;
                    pEquip->GetInterface(0, face);
                    idPipe = face.m_idPipe;
                }
            }      
            OPENOBJ_END();
            if(!idPipe)
                continue;
            int iDn = GetPipeDnByQ(0.2*pData->m_nU*nAllNg, idPipe, nLost, nI, nSpeed, bIsReCalc);
            ads_name ent;
            acdbGetAdsName(ent, idPipe);
            DoDimPipeDn(ent, iDn, _T("自动"), g_nPipeDnHeight-0.5, FALSE, FALSE);
        }
        double nTmpU0(0); //平均出流概率 加权
		if(nSigmaNg < 0.001)
			nTmpU0 = 0;
		else
			nTmpU0 = nSigmaU0 / nSigmaNg;
        double nTmpAc = GetAcByU0(nTmpU0*100);
		
        double nTmpU(0);
		if(nSigmaNg < 0.001)
			nTmpU = 0;
		else
			nTmpU = (1 + nTmpAc * pow((nSigmaNg -1), 0.49)) / sqrt(nSigmaNg);
        pDataTmp->m_nNg = nSigmaNg;
        pDataTmp->m_nSigmaU0 = nSigmaU0;
        if(!pDataTmp->m_ID)
            continue;
        int iDn2 = GetPipeDnByQ(0.2*nTmpU*nSigmaNg, pDataTmp->m_ID, nLost, nI, nSpeed, bIsReCalc);
        ads_name ent2;
        acdbGetAdsName(ent2, pDataTmp->m_ID);
        DoDimPipeDn(ent2, iDn2, _T("自动"), g_nPipeDnHeight, FALSE, FALSE);
    }
    
    DList<SCalcFloorData> lstVPipeData;
    //计算每层立管管径
	int iLen = (int)_tcslen(_T("楼"));//兼容UNICODE
    for(i=0;i<len;i++){
        SCalcFloorData *pDataCur = lstFeedData[i];
        double nSigmaU0(0), nSigmaNg(0);
        CString csCurFloor = pDataCur->m_csFloor;
        CString csCurVPipeName = pDataCur->m_csVPipeName;
        
        int iCurFloor = _ttoi(csCurFloor.Left(csCurFloor.GetLength() - iLen));
        for(int j=0;j<len;j++){
            SCalcFloorData *pDataTmp = lstFeedData[j];
            CString csFloor = pDataTmp->m_csFloor;
            CString csVPipeName = pDataTmp->m_csVPipeName;
			
            int iFloor = _ttoi(csFloor.Left(csFloor.GetLength() - iLen));
			if(bFromDownToUp){//自下向上
				if(iCurFloor <= iFloor && csVPipeName == csCurVPipeName){
					nSigmaU0 += pDataTmp->m_nSigmaU0;
					nSigmaNg += pDataTmp->m_nNg;
				}
			}
			else{
				if(iCurFloor >= iFloor && csVPipeName == csCurVPipeName){
					nSigmaU0 += pDataTmp->m_nSigmaU0;
					nSigmaNg += pDataTmp->m_nNg;
				}
			}
        }

        //////////    创建立管信息 /////////////////////////////
        int lenVPipe = lstVPipeData.Length();
        BOOL bFlag = TRUE;
        for(int nn=0;nn<lenVPipe;nn++){
            if(lstVPipeData[nn]->m_csVPipeName == csCurVPipeName){
                bFlag = FALSE;
                lstVPipeData[nn]->m_nSigmaU0 += pDataCur->m_nSigmaU0;
                lstVPipeData[nn]->m_nAllNg += pDataCur->m_nNg;
                if(csCurFloor == _T("干管"))
                    lstVPipeData[nn]->m_IDMain = pDataCur->m_ID;
            }
        }
        if(bFlag){
            SCalcFloorData *pNew = new SCalcFloorData();
            pNew->m_csFloor = _T("干管");
            pNew->m_csVPipeName = csCurVPipeName;
            pNew->m_nSigmaU0 = pDataCur->m_nSigmaU0;
            pNew->m_nAllNg = pDataCur->m_nNg;
            lstVPipeData.Append(pNew);
            if(csCurFloor == _T("干管"))
                lstVPipeData[nn]->m_IDMain = pDataCur->m_ID;
        }
        //////////////////////////////////////////////////////////////


        double nTmpU0(0); //平均出流概率 加权
		if(nSigmaNg < 0.001)
			nTmpU0 = 0;
		else
			nTmpU0 = nSigmaU0 / nSigmaNg;
        double nTmpAc = GetAcByU0(nTmpU0*100);
        double nTmpU(0);
		if(nSigmaNg < 0.001)
			nTmpU = 0;
		else
			nTmpU = (1 + nTmpAc * pow((nSigmaNg -1), 0.49)) / sqrt(nSigmaNg);
       
        double nQ = 0.2*nTmpU*nSigmaNg;
        pDataCur->m_nQ = nQ;
        pDataCur->m_nAllNg = nSigmaNg;
        pDataCur->m_nRetU = nTmpU;

        if(!pDataCur->m_IDMain)
            continue;
        int iDn3 = GetPipeDnByQ(nQ, pDataCur->m_IDMain, nLost, nI, nSpeed, bIsReCalc);
        pDataCur->m_iDn = iDn3;
        pDataCur->m_nV = nSpeed;
		pDataCur->m_nI = nI;
		pDataCur->m_nLost = nLost;
        ads_name ent3;
        acdbGetAdsName(ent3, pDataCur->m_IDMain);
        DoDimPipeDn(ent3, iDn3, _T("自动"), g_nPipeDnHeight, FALSE, FALSE);
        
    }        



    //计算每栋立管管径
    for(i=0;i<lstVPipeData.Length();i++){
        SCalcFloorData *pDataCur = lstVPipeData[i];
        double nSigmaU0(0), nSigmaNg(0);
        CString csCurVPipeName = pDataCur->m_csVPipeName;
        int iCurPipeName = _ttoi(csCurVPipeName);

        for(int j=0;j<lstVPipeData.Length();j++){
            SCalcFloorData *pDataTmp = lstVPipeData[j];
            CString csVPipeName = pDataTmp->m_csVPipeName;
            int iPipeName = _ttoi(csVPipeName);
            if(iCurPipeName >= iPipeName){
                nSigmaU0 += pDataTmp->m_nSigmaU0;
                nSigmaNg += pDataTmp->m_nAllNg;
            }
        }

        double nTmpU0(0); //平均出流概率 加权
        if(nSigmaNg < 0.001)
            nTmpU0 = 0;
        else
            nTmpU0 = nSigmaU0 / nSigmaNg;
        double nTmpAc = GetAcByU0(nTmpU0*100);
        double nTmpU(0);
        if(nSigmaNg < 0.001)
            nTmpU = 0;
        else
            nTmpU = (1 + nTmpAc * pow((nSigmaNg -1), 0.49)) / sqrt(nSigmaNg);
        
        double nQ = 0.2*nTmpU*nSigmaNg;
        pDataCur->m_nQ = nQ;
        pDataCur->m_nAllNg = nSigmaNg;
        pDataCur->m_nRetU = nTmpU;
        
        if(!pDataCur->m_IDMain)
            continue;
        int iDn3 = GetPipeDnByQ(nQ, pDataCur->m_IDMain, nLost, nI, nSpeed, bIsReCalc);
        pDataCur->m_iDn = iDn3;
        pDataCur->m_nV = nSpeed;
        pDataCur->m_nI = nI;
		pDataCur->m_nLost = nLost;

        ads_name ent3;
        acdbGetAdsName(ent3, pDataCur->m_IDMain);
        DoDimPipeDn(ent3, iDn3, _T("自动"), g_nPipeDnHeight, FALSE, FALSE);
        

        //计算每层立管管径
        for(int m=0;m<len;m++){
            SCalcFloorData *pData = lstFeedData[m];
            if(pData->m_csVPipeName == pDataCur->m_csVPipeName && pData->m_csFloor == pDataCur->m_csFloor){
                pData->m_nQ = pDataCur->m_nQ;
                pData->m_nAllNg = pDataCur->m_nAllNg;
                pData->m_nRetU = pDataCur->m_nRetU;
                pData->m_iDn = pDataCur->m_iDn;
                pData->m_nV = pDataCur->m_nV;
                pData->m_nI = pDataCur->m_nI;
				pData->m_nLost = pDataCur->m_nLost;
			    break;
            }
        }            
    }        
}


void CalcFeedImportWord(DList<SCalcFloorData> &lstFeedData) 
{
    //初始化
    COleVariant vtOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR), vtTrue((short)TRUE), vtFalse((short)FALSE);
    _Application	wordApplication;
    Documents		wordDocuments;
    _Document       activeDocument;
    Paragraphs		wordParagraphs;
    Selection		wordSelection;
    
    if (!wordApplication.CreateDispatch(_T("Word.Application")))
    {
        AfxMessageBox(_T("不能执行Microsoft Word 8.0!"));
        return;
    }
   

    wordApplication.SetVisible(TRUE);
    wordDocuments = wordApplication.GetDocuments();
    activeDocument = wordDocuments.Add(vtOptional,vtOptional);
    
    //写一行字
    wordSelection = wordApplication.GetSelection();
    wordParagraphs = wordSelection.GetParagraphs();
    wordParagraphs.SetAlignment(0);  // 0: 居左  1：居中  2：居右
    wordSelection.TypeText(_T("按照建筑给水排水设计规范 （GB 50015-2003）进行计算  \n"));
    wordSelection.TypeText(_T("计算公式： \n"));
	wordSelection.TypeText(_T("1:计算U0 = (q0*m*Kh)/(0.2*Ng*T*3600)\n"));
    wordSelection.TypeText(_T("αc 对应于不同U0的系数 \n"));
	wordSelection.TypeText(_T("式中: \n"));
    wordSelection.TypeText(_T("U0 -- 生活给水管道的最大用水时卫生器具给水当量平均出流概率（%）  \n"));
    wordSelection.TypeText(_T("q0-- 最高用水日的用水定额\n"));
    wordSelection.TypeText(_T("m-- 每户用水人数 \n"));
    wordSelection.TypeText(_T("Kh-- 小时变化系数 \n"));
    wordSelection.TypeText(_T("Ng-- 每户设置的卫生器具给水当量数\n"));
    wordSelection.TypeText(_T("T-- 用水时数（h）\n"));
    wordSelection.TypeText(_T("0.2-- 一个卫生器具给水当量的额定流量（L/s） \n\n"));

 
    
	wordSelection.TypeText(_T("2:计算U = (1 + αc * pow((Ng - 1), 0.49)) / SQRT(Ng)  \n"));
	wordSelection.TypeText(_T("式中: \n"));
    wordSelection.TypeText(_T("U--计算管段的卫生器具给水当量同时出溜概率（%） \n"));
    wordSelection.TypeText(_T("αc对应于不同U0的系数 \n"));
    wordSelection.TypeText(_T("Ng--计算管段的卫生器具给水当量总数 \n\n"));

	wordSelection.TypeText(_T("3:计算管段的设计秒流量Qg = 0.2*U*Ng  \n\n"));

    
    wordSelection.TypeText(_T("各楼层计算结果如下 \n"));


    int iNumFloor = lstFeedData.Length();
    //画表格
    int rows(iNumFloor+1), columns(9);
    
    Selection wSelection = wordApplication.GetSelection();
    Range	oRange = wSelection.GetRange();
    Tables	oTables = activeDocument.GetTables();
    _Table	oTable = oTables.Add(oRange, rows, columns);
	// cet 2010.3.25 add 
	Borders oBorders = oTable.GetBorders();
	oBorders.SetInsideLineStyle(1); // 设置表格线型
	oBorders.SetOutsideLineStyle(1);

    Columns		oColumns;
    Column		oColumn;
    oColumns = oTable.GetColumns();
    oColumn = oColumns.Item(1);
    oColumn.SetWidth(50, 0);   // 0 = wdAdjustNone
    oColumn = oColumns.Item(2);
    oColumn.SetWidth(55, 0);    
    oColumn = oColumns.Item(3);
    oColumn.SetWidth(50, 0);    
    oColumn = oColumns.Item(4);
    oColumn.SetWidth(70, 0);    
    oColumn = oColumns.Item(5);
    oColumn.SetWidth(50, 0);    
    oColumn = oColumns.Item(6);
    oColumn.SetWidth(40, 0);    
    oColumn = oColumns.Item(7);
    oColumn.SetWidth(40, 0);    
    oColumn = oColumns.Item(8);
    oColumn.SetWidth(40, 0);    
    oColumn = oColumns.Item(9);
    oColumn.SetWidth(40, 0);    
   
   
    
    Cell		oCell;
    oCell = oTable.Cell(1, 1);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("楼层"));
    
    
    oCell = oTable.Cell(1, 2);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("本层当量"));

    oCell = oTable.Cell(1, 3);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("总当量∑Ng"));
    
    oCell = oTable.Cell(1, 4);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("同时出流概率U"));
    
    oCell = oTable.Cell(1, 5);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("流量(l/s)"));
    
    oCell = oTable.Cell(1, 6);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("立管管径"));
    
    oCell = oTable.Cell(1, 7);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("流速"));

    oCell = oTable.Cell(1, 8);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("水力坡降"));

    oCell = oTable.Cell(1, 9);
    oRange = oCell.GetRange();
    oRange.InsertAfter(_T("沿程损失"));
    
    

    for(int i=1;i<=iNumFloor;i++){
        SCalcFloorData *pData = lstFeedData[i-1];
            
        CString csFloor, csAllNg, csU, csQ, csDn, csCurNg, csDe, csV , csI, csLost;
		csFloor = pData->m_csVPipeName + _T("#-") + pData->m_csFloor;
        csCurNg.Format(_T("%.1f"), pData->m_nNg);
        csDn.Format(_T("%d"), pData->m_iDn);
        csU.Format(_T("%.2f"), pData->m_nRetU);
        csQ.Format(_T("%.2f"), pData->m_nQ);
        csAllNg.Format(_T("%.1f"), pData->m_nAllNg);
        csV.Format(_T("%.2f"), pData->m_nV);
		csI.Format(_T("%.3f"), pData->m_nI);
		csLost.Format(_T("%.3f"), pData->m_nLost);


        oCell = oTable.Cell(i+1, 1);  // 楼层
        oRange = oCell.GetRange();
        oRange.InsertAfter(csFloor);
        
        oCell = oTable.Cell(i+1, 2);  // 当量
        oRange = oCell.GetRange();
        oRange.InsertAfter(csCurNg);
        
        oCell = oTable.Cell(i+1, 3);  // 总当量
        oRange = oCell.GetRange();
        oRange.InsertAfter(csAllNg);
        
        oCell = oTable.Cell(i+1, 4);  // 同时出流概率
        oRange = oCell.GetRange();
        oRange.InsertAfter(csU);
        
        oCell = oTable.Cell(i+1, 5);  // 流量
        oRange = oCell.GetRange();
        oRange.InsertAfter(csQ);

        oCell = oTable.Cell(i+1, 6);  // 立管管径
        oRange = oCell.GetRange();
        oRange.InsertAfter(csDn);

        oCell = oTable.Cell(i+1, 7);  // 流速
        oRange = oCell.GetRange();
        oRange.InsertAfter(csV);

        oCell = oTable.Cell(i+1, 8);   
        oRange = oCell.GetRange();
        oRange.InsertAfter(csI);

        oCell = oTable.Cell(i+1, 9);   
        oRange = oCell.GetRange();
        oRange.InsertAfter(csLost);

    }   
    
}



//主函数
void ResidenceFeedCalc()
{
    Entity entMainPipe;
    RBList rbMask(RTDXF0, _T("ATS_EQUIPMENT"), 8, _T("*"), NULL);
 
	RBList rbMaskPipe = ads_buildlist( -4, _T("<or"),
        -4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_PIPE_FEED, -4, _T("and>"),  
        -4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_VPIPE_FEED, -4, _T("and>"),  
        -4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_PIPE_FEED2, -4, _T("and>"),  
        -4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_VPIPE_FEED2, -4, _T("and>"),  
        -4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_PIPE_FEED3, -4, _T("and>"),  
        -4, _T("<and"), RTDXF0, _T("ATS_PIPE"), 8, LAY_VPIPE_FEED3, -4, _T("and>"),  
        -4, _T("or>"), NULL);
	
    if(SelectEntity(_T("\n请选择给水总干管<退出>"), entMainPipe, rbMaskPipe) != RTNORM) {  
        return;
    }
    DList<SCalcFloorData> lstFeedData;
    SSearchPipeList *pListAll = new SSearchPipeList();
    PickSet ssAll(SS_FREE);
    ssAll += entMainPipe;
    if(!SearchSprinkPipeSys(entMainPipe, NULL, pListAll, ssAll)){
        AfxMessageBox(_T("系统有回路！"));
        delete pListAll; 
        return;
    }
    if(!TransformCalcFeedData(pListAll, lstFeedData, CString(), CString())){
        AfxMessageBox(_T("没有住宅信息！请首先执行【修改当量】"));
        delete pListAll; 
        return;
    }


	BOOL bFromDownToUp = TRUE;
    CString csFeedDir = ReadXdata(entMainPipe, _T("TG-FEED-DIR"));
    if(csFeedDir == _T("自下而上"))
        bFromDownToUp = TRUE;
    else if(csFeedDir == _T("自上而下"))
        bFromDownToUp = FALSE;
    else if(csFeedDir == _T("")){
		bFromDownToUp = TRUE;
//        OPENOBJ_BEGIN(entMainPipe, AcDb::kForRead, TDbPipe, pPipe);
//        if(pPipe){
//            CString csFloor = pPipe->GetSysLabel();
//            if(csFloor.Find(_T("1楼立管")) > -1)
//                bFromDownToUp = TRUE;
//            else{
//                CString csTmp;
//                csTmp.Format(_T("%d楼立管"), lstFeedData.Length()+1);
//                if(csFloor.Find(csTmp) > -1)
//                    bFromDownToUp = FALSE;
//                else{
//                    delete pListAll;
//                    return;
//                }
//            }
//        }
//        OPENOBJ_END();
    }
    AddVerticalPipeToData(pListAll, lstFeedData, bFromDownToUp);
    delete pListAll;

 
	

	TCHAR szTmp[64];
	BOOL bIsReCale = FALSE;
	OPENOBJ_BEGIN(entMainPipe, AcDb::kForRead, TDbPipe, pPipe);
	if(pPipe){
		CString csLable = pPipe->GetLabel();
		if(csLable != _T(""))
		{
			int ret2 = ads_getstring(0, _T("\n已经计算过，是否进行复算（已知管径，计算流速）<N>:"),  szTmp);
			if(_tcsicmp(szTmp, _T("Y")) == 0)
				bIsReCale = TRUE;
			if(ret2 == RTCAN)
				return;
		}
	}
	OPENOBJ_END();
 
    DoCalcResidenceFeed(lstFeedData, bFromDownToUp, bIsReCale);
	UpdateMultDim();
    CalcFeedImportWord(lstFeedData);
    return;  
    
}