github.com/archlabjp/eeslism-go@v0.0.0-20231109122333-4bb7bfcdf292/eeslism/eecmpday_s.go (about)

     1  package eeslism
     2  
     3  import (
     4  	"fmt"
     5  	"io"
     6  )
     7  
     8  /* システム要素機器の日集計処理 */
     9  var __Compoday_OldDay int = 0
    10  var __Compoday_OldMon int = 0
    11  
    12  func Compoday(Mon, Day, Nday, ttmm int, Eqsys *EQSYS, SimDayend int) {
    13  
    14  	// 日集計
    15  	if Nday != __Compoday_OldDay {
    16  		boidyint(Eqsys.Boi)
    17  		refadyint(Eqsys.Refa)
    18  		colldyint(Eqsys.Coll)
    19  		hccdyint(Eqsys.Hcc)
    20  		pipedyint(Eqsys.Pipe)
    21  		hexdyint(Eqsys.Hex)
    22  		stankdyint(Eqsys.Stank)
    23  		pumpdyint(Eqsys.Pump)
    24  		hclddyint(Eqsys.Hcload)
    25  		stheatdyint(Eqsys.Stheat)
    26  		Thexdyint(Eqsys.Thex)
    27  		Qmeasdyint(Eqsys.Qmeas)
    28  		PVdyint(Eqsys.PVcmp)
    29  		Desidyint(Eqsys.Desi)
    30  
    31  		__Compoday_OldDay = Nday
    32  	}
    33  
    34  	if Mon != __Compoday_OldMon {
    35  		boimonint(Eqsys.Boi)
    36  		refamonint(Eqsys.Refa)
    37  		collmonint(Eqsys.Coll)
    38  		hccmonint(Eqsys.Hcc)
    39  		pipemonint(Eqsys.Pipe)
    40  		hexmonint(Eqsys.Hex)
    41  		stankmonint(Eqsys.Stank)
    42  		pumpmonint(Eqsys.Pump)
    43  		hcldmonint(Eqsys.Hcload)
    44  		stheatmonint(Eqsys.Stheat)
    45  		Thexmonint(Eqsys.Thex)
    46  		Qmeasmonint(Eqsys.Qmeas)
    47  		PVmonint(Eqsys.PVcmp)
    48  
    49  		__Compoday_OldMon = Mon
    50  	}
    51  
    52  	// 日集計
    53  	boiday(Mon, Day, ttmm, Eqsys.Boi, Nday, SimDayend)
    54  	refaday(Mon, Day, ttmm, Eqsys.Refa, Nday, SimDayend)
    55  	collday(Mon, Day, ttmm, Eqsys.Coll, Nday, SimDayend)
    56  	hccday(Mon, Day, ttmm, Eqsys.Hcc, Nday, SimDayend)
    57  	pipeday(Mon, Day, ttmm, Eqsys.Pipe, Nday, SimDayend)
    58  	hexday(Mon, Day, ttmm, Eqsys.Hex, Nday, SimDayend)
    59  	stankday(Mon, Day, ttmm, Eqsys.Stank, Nday, SimDayend)
    60  	pumpday(Mon, Day, ttmm, Eqsys.Pump, Nday, SimDayend)
    61  	hcldday(Mon, Day, ttmm, Nday, SimDayend, Eqsys.Hcload)
    62  	stheatday(Mon, Day, ttmm, Eqsys.Stheat, Nday, SimDayend)
    63  	Thexday(Mon, Day, ttmm, Eqsys.Thex, Nday, SimDayend)
    64  	Qmeasday(Mon, Day, ttmm, Eqsys.Qmeas, Nday, SimDayend)
    65  	PVday(Mon, Day, ttmm, Eqsys.PVcmp, Nday, SimDayend)
    66  	Desiday(Mon, Day, ttmm, Eqsys.Desi, Nday, SimDayend)
    67  
    68  	// 月集計
    69  	//boimon(Mon, Day, ttmm, Eqsys.Nboi, Eqsys.Boi);
    70  	//refamon(Mon, Day, ttmm, Eqsys.Nrefa, Eqsys.Refa);
    71  	//collmon(Mon, Day, ttmm, Eqsys.Ncoll, Eqsys.Coll);
    72  	//hccmon(Mon, Day, ttmm, Eqsys.Nhcc, Eqsys.Hcc);
    73  	//pipemon(Mon, Day, ttmm, Eqsys.Npipe, Eqsys.Pipe);
    74  	//hexmon(Mon, Day, ttmm, Eqsys.Nhex, Eqsys.Hex);
    75  	//stankmon(Mon, Day, ttmm, Eqsys.Nstank, Eqsys.Stank);
    76  	//pumpmon(Mon, Day, ttmm, Eqsys.Npump, Eqsys.Pump);
    77  	//hcldmon(Mon, Day, ttmm, Eqsys.Nhcload, Eqsys.Hcload);
    78  	//stheatmon(Mon, Day, ttmm, Eqsys.Nstheat, Eqsys.stheat) ;
    79  	//Thexmon(Mon, Day, ttmm, Eqsys.Nthex, Eqsys.Thex) ;
    80  	//Qmeasmon(Mon, Day, ttmm, Eqsys.Nqmeas, Eqsys.Qmeas) ;
    81  	//PVmon(Mon, Day, ttmm, Eqsys.Npv, Eqsys.PVcmp ) ;
    82  }
    83  
    84  /* システム要素機器の日集計結果出力 */
    85  
    86  var __Compodyprt_id int
    87  
    88  func Compodyprt(fo io.Writer, mrk string, Simc *SIMCONTL, mon, day int, Eqsys *EQSYS, Rdpnl []*RDPNL) {
    89  	if __Compodyprt_id == 0 {
    90  		ttldyprint(fo, mrk, Simc)
    91  
    92  		for j := 0; j < 2; j++ {
    93  			if j == 0 {
    94  				fmt.Fprintf(fo, "-cat\n")
    95  			}
    96  
    97  			boidyprt(fo, __Compodyprt_id, Eqsys.Boi)
    98  			refadyprt(fo, __Compodyprt_id, Eqsys.Refa)
    99  			colldyprt(fo, __Compodyprt_id, Eqsys.Coll)
   100  			hccdyprt(fo, __Compodyprt_id, Eqsys.Hcc)
   101  			pipedyprt(fo, __Compodyprt_id, Eqsys.Pipe)
   102  			hexdyprt(fo, __Compodyprt_id, Eqsys.Hex)
   103  			stankdyprt(fo, __Compodyprt_id, Eqsys.Stank)
   104  			pumpdyprt(fo, __Compodyprt_id, Eqsys.Pump)
   105  			hclddyprt(fo, __Compodyprt_id, Eqsys.Hcload)
   106  			stheatdyprt(fo, __Compodyprt_id, Eqsys.Stheat)
   107  			Qmeasdyprt(fo, __Compodyprt_id, Eqsys.Qmeas)
   108  			Thexdyprt(fo, __Compodyprt_id, Eqsys.Thex)
   109  			PVdyprt(fo, __Compodyprt_id, Eqsys.PVcmp)
   110  			Desidyprt(fo, __Compodyprt_id, Eqsys.Desi)
   111  
   112  			paneldyprt(fo, __Compodyprt_id, Rdpnl)
   113  
   114  			if j == 0 {
   115  				fmt.Fprintf(fo, "*\n#\n")
   116  			}
   117  
   118  			__Compodyprt_id++
   119  		}
   120  	}
   121  
   122  	fmt.Fprintf(fo, "%02d %02d\n", mon, day)
   123  
   124  	boidyprt(fo, __Compodyprt_id, Eqsys.Boi)
   125  	refadyprt(fo, __Compodyprt_id, Eqsys.Refa)
   126  	colldyprt(fo, __Compodyprt_id, Eqsys.Coll)
   127  	hccdyprt(fo, __Compodyprt_id, Eqsys.Hcc)
   128  	pipedyprt(fo, __Compodyprt_id, Eqsys.Pipe)
   129  	hexdyprt(fo, __Compodyprt_id, Eqsys.Hex)
   130  	stankdyprt(fo, __Compodyprt_id, Eqsys.Stank)
   131  	pumpdyprt(fo, __Compodyprt_id, Eqsys.Pump)
   132  	hclddyprt(fo, __Compodyprt_id, Eqsys.Hcload)
   133  	stheatdyprt(fo, __Compodyprt_id, Eqsys.Stheat)
   134  	Qmeasdyprt(fo, __Compodyprt_id, Eqsys.Qmeas)
   135  	Thexdyprt(fo, __Compodyprt_id, Eqsys.Thex)
   136  	PVdyprt(fo, __Compodyprt_id, Eqsys.PVcmp)
   137  	Desidyprt(fo, __Compodyprt_id, Eqsys.Desi)
   138  
   139  	paneldyprt(fo, __Compodyprt_id, Rdpnl)
   140  
   141  }
   142  
   143  /* システム要素機器の月集計結果出力 */
   144  
   145  var __Compomonprt_id int
   146  
   147  func Compomonprt(fo io.Writer, mrk string, Simc *SIMCONTL, mon, day int, Eqsys *EQSYS, Rdpnl []*RDPNL) {
   148  	if __Compomonprt_id == 0 {
   149  		ttldyprint(fo, mrk, Simc)
   150  
   151  		for j := 0; j < 2; j++ {
   152  			if j == 0 {
   153  				fmt.Fprintf(fo, "-cat\n")
   154  			}
   155  
   156  			boimonprt(fo, __Compomonprt_id, Eqsys.Boi)
   157  			refamonprt(fo, __Compomonprt_id, Eqsys.Refa)
   158  			collmonprt(fo, __Compomonprt_id, Eqsys.Coll)
   159  			hccmonprt(fo, __Compomonprt_id, Eqsys.Hcc)
   160  			pipemonprt(fo, __Compomonprt_id, Eqsys.Pipe)
   161  			hexmonprt(fo, __Compomonprt_id, Eqsys.Hex)
   162  			stankmonprt(fo, __Compomonprt_id, Eqsys.Stank)
   163  			pumpmonprt(fo, __Compomonprt_id, Eqsys.Pump)
   164  			hcldmonprt(fo, __Compomonprt_id, Eqsys.Hcload)
   165  			stheatmonprt(fo, __Compomonprt_id, Eqsys.Stheat)
   166  			Qmeasmonprt(fo, __Compomonprt_id, Eqsys.Qmeas)
   167  			Thexmonprt(fo, __Compomonprt_id, Eqsys.Thex)
   168  			PVmonprt(fo, __Compomonprt_id, Eqsys.PVcmp)
   169  
   170  			panelmonprt(fo, __Compomonprt_id, Rdpnl)
   171  
   172  			if j == 0 {
   173  				fmt.Fprintf(fo, "*\n#\n")
   174  			}
   175  
   176  			__Compomonprt_id++
   177  		}
   178  	}
   179  
   180  	fmt.Fprintf(fo, "%02d %02d\n", mon, day)
   181  
   182  	boimonprt(fo, __Compomonprt_id, Eqsys.Boi)
   183  	refamonprt(fo, __Compomonprt_id, Eqsys.Refa)
   184  	collmonprt(fo, __Compomonprt_id, Eqsys.Coll)
   185  	hccmonprt(fo, __Compomonprt_id, Eqsys.Hcc)
   186  	pipemonprt(fo, __Compomonprt_id, Eqsys.Pipe)
   187  	hexmonprt(fo, __Compomonprt_id, Eqsys.Hex)
   188  	stankmonprt(fo, __Compomonprt_id, Eqsys.Stank)
   189  	pumpmonprt(fo, __Compomonprt_id, Eqsys.Pump)
   190  	hcldmonprt(fo, __Compomonprt_id, Eqsys.Hcload)
   191  	stheatmonprt(fo, __Compomonprt_id, Eqsys.Stheat)
   192  	Qmeasmonprt(fo, __Compomonprt_id, Eqsys.Qmeas)
   193  	Thexmonprt(fo, __Compomonprt_id, Eqsys.Thex)
   194  	PVmonprt(fo, __Compomonprt_id, Eqsys.PVcmp)
   195  
   196  	panelmonprt(fo, __Compomonprt_id, Rdpnl)
   197  }
   198  
   199  /* システム要素機器の年集計結果出力 */
   200  
   201  var __Compomtprt_id int = 0
   202  
   203  func Compomtprt(fo io.Writer, mrk string, Simc *SIMCONTL, Eqsys *EQSYS, Rdpnl []*RDPNL) {
   204  	if __Compomtprt_id == 0 {
   205  		ttlmtprint(fo, mrk, Simc)
   206  
   207  		for j := 0; j < 2; j++ {
   208  			if j == 0 {
   209  				fmt.Fprintf(fo, "-cat\n")
   210  			}
   211  
   212  			stheatmtprt(fo, __Compomtprt_id, Eqsys.Stheat, 0, 0)
   213  			boimtprt(fo, __Compomtprt_id, Eqsys.Boi, 0, 0)
   214  			refamtprt(fo, __Compomtprt_id, Eqsys.Refa, 0, 0)
   215  			pumpmtprt(fo, __Compomtprt_id, Eqsys.Pump, 0, 0)
   216  			PVmtprt(fo, __Compomtprt_id, Eqsys.PVcmp, 0, 0)
   217  			hcldmtprt(fo, __Compomtprt_id, 0, 0, Eqsys.Hcload)
   218  			panelmtprt(fo, __Compomtprt_id, Rdpnl, 0, 0)
   219  
   220  			if j == 0 {
   221  				fmt.Fprintf(fo, "*\n#\n")
   222  			}
   223  
   224  			__Compomtprt_id++
   225  		}
   226  	}
   227  
   228  	for mo := 1; mo <= 12; mo++ {
   229  		for tt := 1; tt <= 24; tt++ {
   230  			fmt.Fprintf(fo, "%02d %02d\n", mo, tt)
   231  			stheatmtprt(fo, __Compomtprt_id, Eqsys.Stheat, mo, tt)
   232  			boimtprt(fo, __Compomtprt_id, Eqsys.Boi, mo, tt)
   233  			refamtprt(fo, __Compomtprt_id, Eqsys.Refa, mo, tt)
   234  			pumpmtprt(fo, __Compomtprt_id, Eqsys.Pump, mo, tt)
   235  			PVmtprt(fo, __Compomtprt_id, Eqsys.PVcmp, mo, tt)
   236  			hcldmtprt(fo, __Compomtprt_id, mo, tt, Eqsys.Hcload)
   237  			panelmtprt(fo, __Compomtprt_id, Rdpnl, mo, tt)
   238  		}
   239  	}
   240  }