$ convert run codes ##if #[Key_Calc[] eq 0 ] ##set1 RunTyp Sizing ##elseif #[Key_Calc[] eq 1 ] ##set1 RunTyp House ##elseif #[Key_Calc[] eq 2 ] ##set1 RunTyp Detailed ##else Error - Key_Calc not set ##endif $ convert house parameters ##if #[House_Type[] eq 0 ] ##set1 HouseTyp One_Story ##set1 Vintage New ##set1 WallTyp Wood_Fr ##elseif #[House_Type[] eq 1 ] ##set1 HouseTyp One_Story ##set1 Vintage New ##set1 WallTyp Masonry ##elseif #[House_Type[] eq 2 ] ##set1 HouseTyp One_Story ##set1 Vintage Exist ##set1 WallTyp Wood_Fr ##elseif #[House_Type[] eq 3 ] ##set1 HouseTyp One_Story ##set1 Vintage Exist ##set1 WallTyp Masonry ##elseif #[House_Type[] eq 4 ] ##set1 HouseTyp Two_Story ##set1 Vintage New ##set1 WallTyp Wood_Fr ##elseif #[House_Type[] eq 5 ] ##set1 HouseTyp Two_Story ##set1 Vintage New ##set1 WallTyp Masonry ##elseif #[House_Type[] eq 6 ] ##set1 HouseTyp Two_Story ##set1 Vintage Exist ##set1 WallTyp Wood_Fr ##elseif #[House_Type[] eq 7 ] ##set1 HouseTyp Two_Story ##set1 Vintage Exist ##set1 WallTyp Masonry ##else Error - House_Type not set ##endif ##if #[Fdn_Type[] eq 0 ] ##set1 FdnTyp Bsmt ##elseif #[Fdn_Type[] eq 1 ] ##set1 FdnTyp Crawl ##elseif #[Fdn_Type[] eq 2 ] ##set1 FdnTyp Slab ##else Error - Fdn_Type not set ##endif $ perimeter is floor area divided by 28 ft max truss length $ roof width is 0.5 of the long dimension of house ##if #[HouseTyp[] eqs One_Story] ##set1 Perim #[ #[ Flr_Area[] / 14 ] + 56 ] ##set1 FdnArea Flr_Area[] ##set1 RoofWd #[ Flr_Area[] / 56 ] ##set1 WallHt 8.0 ##elseif #[HouseTyp[] eqs Two_Story] ##set1 Perim #[ #[ Flr_Area[] / 28 ] + 56 ] ##set1 FdnArea #[ Flr_Area[] / 2 ] ##set1 RoofWd #[ Flr_Area[] / 112 ] ##set1 WallHt 16.0 ##else Error - HouseTyp not set ##endif $ Fixed building geometry parameters : $ Interior wall amount based on MEC ( 1ft2 of wall has 6.64 lbs of mass; $ 0.527 ft2 int. wall /ft2 floor = 3.5 lbs per ft2 of floor) $ Roof height is ((0.5 of 28 ft. truss width)/(cos 18.4 deg = roof pitch) $ Sensible internal loads are assumed at 4692kWh/year (43873 Btu/day) $ 0.9kWh/sqft (8.42 Btu/ft2-day) for lighting. ##set1 IWallArea #[ Flr_Area[] * 0.527 ] $ ##set1 IntLoad #[ #[ Flr_Area[] * 8.42 ] + 43873 ] ##set1 IntLoad #[ #[ Flr_Area[] * 8.42 ] + 43033 ] ##set1 RoofHt 14.757 ##set1 WallWd #[ Perim[] / 4 ] ##set1 WallX #[ WallWd[] + 20 ] ##set1 ShadeX #[ WallWd[] + 40 ] ##if #[HVAC_Type[] eq 0 ] ##set1 EqpTyp Furn_AC ##elseif #[HVAC_Type[] eq 1 ] ##set1 EqpTyp Heat_Pump ##else Error - HVAC Type not set ##endif $ Conservation Packages ##if #[Vintage[] eqs New] ##set1 Base_Window_Type New_Window_Type[] ##set1 CeilL NCeilL[] ##set1 WallL NWallL[] ##set1 CSlabL NCSlabL[] ##set1 BWallL NBWallL[] ##set1 BFlrL NBFlrL[] ##set1 FlrL NFlrL[] ##elseif #[Vintage[] eqs Exist] ##set1 Base_Window_Type Exst_Window_Type[] ##set1 CeilL ECeilL[] ##set1 WallL EWallL[] ##set1 CSlabL ECSlabL[] ##set1 BWallL EBWallL[] ##set1 BFlrL EBFlrL[] ##set1 FlrL EFlrL[] ##endif $ Masonry Wall Parameters ##if #[WallTyp[] eqs Masonry ] ##if #[WallL[] eqs r7rwall ] ##set1 WallL r7cblk ##elseif #[WallL[] eqs r11rwall ] ##set1 WallL r11cblk ##elseif #[WallL[] eqs r13rwall ] ##set1 WallL r13cblk ##elseif #[WallL[] eqs r14rwall ] ##set1 WallL r14cblk ##elseif #[WallL[] eqs r19rwall ] ##set1 WallL r19cblk ##elseif #[WallL[] eqs r21rwall ] ##set1 WallL r21cblk ##elseif #[WallL[] eqs r28rwall ] ##set1 WallL r28cblk ##else ##endif ##endif $ Window Parameters $ default window type by location for sizing run ##if #[RunTyp[] eqs Sizing ] ##if #[Base_Window_Type[] eq 1901 ] ##set1 BaseWindUVal #[ #[ 1 / 1.30 ] - 0.196] ##set1 BaseWindUVal #[ 1 / BaseWindUVal[] ] ##set1 BaseWindSC #[ 0.74 / 0.87 ] ##elseif #[Base_Window_Type[] eq 2905 ] ##set1 BaseWindUVal #[ #[ 1 / 0.49 ] - 0.196] ##set1 BaseWindUVal #[ 1 / BaseWindUVal[] ] ##set1 BaseWindSC #[ 0.57 / 0.87 ] ##elseif #[Base_Window_Type[] eq 2913 ] ##set1 BaseWindUVal #[ #[ 1 / 0.87 ] - 0.196] ##set1 BaseWindUVal #[ 1 / BaseWindUVal[] ] ##set1 BaseWindSC #[ 0.66 / 0.87 ] ##endif ##set1 Window_Type_N 0 ##set1 Window_Type_E 0 ##set1 Window_Type_S 0 ##set1 Window_Type_W 0 ##endif $ convert frame fraction to Frame width ##if #[Frame_Width_N[] gt 0 ] ##set1 Root1 #[2.15655 - #[ 1.93704 * Frame_Width_N[] ] ] ##set1 Frame_Width_N #[ #[ 1.46852 - #[SQRT OF Root1[] ] ] / 0.95852 ] ##endif ##if #[Frame_Width_E[] gt 0 ] ##set1 Root1 #[2.15655 - #[ 1.93704 * Frame_Width_E[] ] ] ##set1 Frame_Width_E #[ #[ 1.46852 - #[SQRT OF Root1[] ] ] / 0.95852 ] ##endif ##if #[Frame_Width_S[] gt 0 ] ##set1 Root1 #[2.15655 - #[ 1.93704 * Frame_Width_S[] ] ] ##set1 Frame_Width_S #[ #[ 1.46852 - #[SQRT OF Root1[] ] ] / 0.95852 ] ##endif ##if #[Frame_Width_W[] gt 0 ] ##set1 Root1 #[2.15655 - #[ 1.93704 * Frame_Width_W[] ] ] ##set1 Frame_Width_W #[ #[ 1.46852 - #[SQRT OF Root1[] ] ] / 0.95852 ] ##endif ##if #[Frame_Width_H[] gt 0 ] ##set1 Root1 #[2.15655 - #[ 1.93704 * Frame_Width_H[] ] ] ##set1 Frame_Width_H #[ #[ 1.46852 - #[SQRT OF Root1[] ] ] / 0.95852 ] ##endif ##if #[Area_N[] gt 0] ##if #[Window_Type_N[] eq 0 ] ##set1 WinTypN User_Spec ##set1 HeightN 4.0 ##set1 WidthN 2.065 ##set1 D2-UValN #[ #[ 1 / U-Factor_N[] ] - 0.196] ##set1 D2-UValN #[ 1 / D2-UValN[] ] ##set1 ShadCoeffN #[ SHGF_N[] / 0.87 ] ##set1 Frame_Width_N 0 ##else ##set1 WinTypN Window4 ##set1 HeightN #[ 4.0 - #[ Frame_Width_N[] * 2 ] ] ##set1 WidthN #[ 2.065 - #[ Frame_Width_N[] * 2 ] ] ##endif ##set1 WinMultN #[ Area_N[] / #[ 4.00 * 2.065 ] ] ##if #[HouseTyp[] eqs Two_Story] ##set1 WinMultN #[ WinMultN[] / 2 ] ##endif ##endif ##if #[Area_E[] gt 0] ##if #[Window_Type_E[] eq 0 ] ##set1 WinTypE User_Spec ##set1 HeightE 4.0 ##set1 WidthE 2.065 ##set1 D2-UValE #[ #[ 1 / U-Factor_E[] ] - 0.196] ##set1 D2-UValE #[ 1 / D2-UValE[] ] ##set1 ShadCoeffE #[ SHGF_E[] / 0.87 ] ##set1 Frame_Width_E 0 ##else ##set1 WinTypE Window4 ##set1 HeightE #[ 4.0 - #[ Frame_Width_E[] * 2 ] ] ##set1 WidthE #[ 2.065 - #[ Frame_Width_E[] * 2 ] ] ##endif ##set1 WinMultE #[ Area_E[] / #[ 4.00 * 2.065 ] ] ##if #[HouseTyp[] eqs Two_Story] ##set1 WinMultE #[ WinMultE[] / 2 ] ##endif ##endif ##if #[Area_S[] gt 0] ##if #[Window_Type_S[] eq 0 ] ##set1 WinTypS User_Spec ##set1 HeightS 4.0 ##set1 WidthS 2.065 ##set1 D2-UValS #[ #[ 1 / U-Factor_S[] ] - 0.196] ##set1 D2-UValS #[ 1 / D2-UValS[] ] ##set1 ShadCoeffS #[ SHGF_S[] / 0.87 ] ##set1 Frame_Width_S 0 ##else ##set1 WinTypS Window4 ##set1 HeightS #[ 4.0 - #[ Frame_Width_S[] * 2 ] ] ##set1 WidthS #[ 2.065 - #[ Frame_Width_S[] * 2 ] ] ##endif ##set1 WinMultS #[ Area_S[] / #[ 4.00 * 2.065 ] ] ##if #[HouseTyp[] eqs Two_Story] ##set1 WinMultS #[ WinMultS[] / 2 ] ##endif ##endif ##if #[Area_W[] gt 0] ##if #[Window_Type_W[] eq 0 ] ##set1 WinTypW User_Spec ##set1 HeightW 4.0 ##set1 WidthW 2.065 ##set1 D2-UValW #[ #[ 1 / U-Factor_W[] ] - 0.196] ##set1 D2-UValW #[ 1 / D2-UValW[] ] ##set1 ShadCoeffW #[ SHGF_W[] / 0.87 ] ##set1 Frame_Width_W 0 ##else ##set1 WinTypW Window4 ##set1 HeightW #[ 4.0 - #[ Frame_Width_W[] * 2 ] ] ##set1 WidthW #[ 2.065 - #[ Frame_Width_W[] * 2 ] ] ##endif ##set1 WinMultW #[ Area_W[] / #[ 4.00 * 2.065 ] ] ##if #[HouseTyp[] eqs Two_Story] ##set1 WinMultW #[ WinMultW[] / 2 ] ##endif ##endif ##if #[Area_H[] gt 0] $ >>>> default dimensions of 4 x 2 for skylights ??? ##if #[Window_Type_H[] eq 0 ] ##set1 WinTypH User_Spec ##set1 HeightH 4.0 ##set1 WidthH 2.065 ##set1 D2-UValH #[ #[ 1 / U-Factor_H[] ] - 0.196] ##set1 D2-UValH #[ 1 / D2-UValH[] ] ##set1 ShadCoeffH #[ SHGF_H[] / 0.87 ] ##set1 Frame_Width_H 0 ##else ##set1 WinTypH Window4 ##set1 HeightH #[ 4.0 - #[ Frame_Width_H[] * 2 ] ] ##set1 WidthH #[ 2.065 - #[ Frame_Width_H[] * 2 ] ] ##endif ##set1 WinMultH #[ Area_H[] / #[ 4.00 * 2.065 ] ] ##endif ##set1 AreaT #[ #[ #[ Area_N[] + Area_E[] ] + Area_S[] ] + Area_W[] ] $ shading procedures ##if #[Shading_Type_N[] eq 0 ] ##set1 ShadeN 1 ##set1 OverhN 2 ##set1 ObstrN 2 ##elseif #[Shading_Type_N[] eq 1 ] ##set1 ShadeN 0 ##set1 OverhN 0 ##set1 ObstrN 0 ##elseif #[Shading_Type_N[] eq 2 ] ##set1 ShadeN 1 ##set1 OverhN 0 ##set1 ObstrN 0 ##elseif #[Shading_Type_N[] eq 3 ] ##set1 ShadeN 0 ##set1 OverhN 1 ##set1 ObstrN 0 ##elseif #[Shading_Type_N[] eq 4 ] ##set1 ShadeN 0 ##set1 OverhN 0 ##set1 ObstrN 1 ##elseif #[Shading_Type_N[] eq 5 ] ##set1 ShadeN 1 ##set1 OverhN 1 ##set1 ObstrN 0 ##elseif #[Shading_Type_N[] eq 6 ] ##set1 ShadeN 0 ##set1 OverhN 1 ##set1 ObstrN 1 ##elseif #[Shading_Type_N[] eq 7 ] ##set1 ShadeN 1 ##set1 OverhN 0 ##set1 ObstrN 1 ##elseif #[Shading_Type_N[] eq 8 ] ##set1 ShadeN 1 ##set1 OverhN 1 ##set1 ObstrN 1 ##else Error - Shading_Type_N not set ##endif ##if #[Shading_Type_E[] eq 0 ] ##set1 ShadeE 1 ##set1 OverhE 2 ##set1 ObstrE 2 ##elseif #[Shading_Type_E[] eq 1 ] ##set1 ShadeE 0 ##set1 OverhE 0 ##set1 ObstrE 0 ##elseif #[Shading_Type_E[] eq 2 ] ##set1 ShadeE 1 ##set1 OverhE 0 ##set1 ObstrE 0 ##elseif #[Shading_Type_E[] eq 3 ] ##set1 ShadeE 0 ##set1 OverhE 1 ##set1 ObstrE 0 ##elseif #[Shading_Type_E[] eq 4 ] ##set1 ShadeE 0 ##set1 OverhE 0 ##set1 ObstrE 1 ##elseif #[Shading_Type_E[] eq 5 ] ##set1 ShadeE 1 ##set1 OverhE 1 ##set1 ObstrE 0 ##elseif #[Shading_Type_E[] eq 6 ] ##set1 ShadeE 0 ##set1 OverhE 1 ##set1 ObstrE 1 ##elseif #[Shading_Type_E[] eq 7 ] ##set1 ShadeE 1 ##set1 OverhE 0 ##set1 ObstrE 1 ##elseif #[Shading_Type_E[] eq 8 ] ##set1 ShadeE 1 ##set1 OverhE 1 ##set1 ObstrE 1 ##else Error - Shading_Type_E not set ##endif ##if #[Shading_Type_S[] eq 0 ] ##set1 ShadeS 1 ##set1 OverhS 2 ##set1 ObstrS 2 ##elseif #[Shading_Type_S[] eq 1 ] ##set1 ShadeS 0 ##set1 OverhS 0 ##set1 ObstrS 0 ##elseif #[Shading_Type_S[] eq 2 ] ##set1 ShadeS 1 ##set1 OverhS 0 ##set1 ObstrS 0 ##elseif #[Shading_Type_S[] eq 3 ] ##set1 ShadeS 0 ##set1 OverhS 1 ##set1 ObstrS 0 ##elseif #[Shading_Type_S[] eq 4 ] ##set1 ShadeS 0 ##set1 OverhS 0 ##set1 ObstrS 1 ##elseif #[Shading_Type_S[] eq 5 ] ##set1 ShadeS 1 ##set1 OverhS 1 ##set1 ObstrS 0 ##elseif #[Shading_Type_S[] eq 6 ] ##set1 ShadeS 0 ##set1 OverhS 1 ##set1 ObstrS 1 ##elseif #[Shading_Type_S[] eq 7 ] ##set1 ShadeS 1 ##set1 OverhS 0 ##set1 ObstrS 1 ##elseif #[Shading_Type_S[] eq 8 ] ##set1 ShadeS 1 ##set1 OverhS 1 ##set1 ObstrS 1 ##else Srror - Shading_Type_S not set ##endif ##if #[Shading_Type_W[] eq 0 ] ##set1 ShadeW 1 ##set1 OverhW 2 ##set1 ObstrW 2 ##elseif #[Shading_Type_W[] eq 1 ] ##set1 ShadeW 0 ##set1 OverhW 0 ##set1 ObstrW 0 ##elseif #[Shading_Type_W[] eq 2 ] ##set1 ShadeW 1 ##set1 OverhW 0 ##set1 ObstrW 0 ##elseif #[Shading_Type_W[] eq 3 ] ##set1 ShadeW 0 ##set1 OverhW 1 ##set1 ObstrW 0 ##elseif #[Shading_Type_W[] eq 4 ] ##set1 ShadeW 0 ##set1 OverhW 0 ##set1 ObstrW 1 ##elseif #[Shading_Type_W[] eq 5 ] ##set1 ShadeW 1 ##set1 OverhW 1 ##set1 ObstrW 0 ##elseif #[Shading_Type_W[] eq 6 ] ##set1 ShadeW 0 ##set1 OverhW 1 ##set1 ObstrW 1 ##elseif #[Shading_Type_W[] eq 7 ] ##set1 ShadeW 1 ##set1 OverhW 0 ##set1 ObstrW 1 ##elseif #[Shading_Type_W[] eq 8 ] ##set1 ShadeW 1 ##set1 OverhW 1 ##set1 ObstrW 1 ##else Wrror - Shading_Type_W not set ##endif ##if #[Area_H[] gt 0 ] ##if #[Shading_Type_H[] eq 0 ] ##set1 ShadeH 0 ##elseif #[Shading_Type_H[] eq 1 ] ##set1 ShadeH 1 ##elseif #[Shading_Type_H[] eq 2 ] ##set1 ShadeH 0 ##elseif #[Shading_Type_H[] eq 3 ] ##set1 ShadeH 0 ##elseif #[Shading_Type_H[] eq 4 ] ##set1 ShadeH 1 ##elseif #[Shading_Type_H[] eq 5 ] ##set1 ShadeH 0 ##elseif #[Shading_Type_H[] eq 6 ] ##set1 ShadeH 1 ##elseif #[Shading_Type_H[] eq 7 ] ##set1 ShadeH 1 ##else Error - Shading_Type_H not set ##endif ##endif $ convert window leakage to infiltration $ ELF = .000004544 x Input Qp in CFM/ft2 x Window_Pct $ (Qp at 75 Pascals, exponent 0.50 for turbulent flow) $ = .0004544 x CFM[] x Window Area /Floor Area ##if #[ RunTyp[] eqs Sizing ] $ for sizing run, use NFRC assumption 1 cfm/ft or 1.50 cfm/ft2 for 2x4 window ##set1 InfN #[ #[ 1.50 * #[ 0.0004544 * Area_N[] ] ] / Flr_Area[] ] ##set1 InfE #[ #[ 1.50 * #[ 0.0004544 * Area_E[] ] ] / Flr_Area[] ] ##set1 InfS #[ #[ 1.50 * #[ 0.0004544 * Area_S[] ] ] / Flr_Area[] ] ##set1 InfW #[ #[ 1.50 * #[ 0.0004544 * Area_W[] ] ] / Flr_Area[] ] ##set1 InfH #[ #[ 1.50 * #[ 0.0004544 * Area_H[] ] ] / Flr_Area[] ] ##else ##set1 InfN #[ #[ CFM_N[] * #[ 0.0004544 * Area_N[] ] ] / Flr_Area[] ] ##set1 InfE #[ #[ CFM_E[] * #[ 0.0004544 * Area_E[] ] ] / Flr_Area[] ] ##set1 InfS #[ #[ CFM_S[] * #[ 0.0004544 * Area_S[] ] ] / Flr_Area[] ] ##set1 InfW #[ #[ CFM_W[] * #[ 0.0004544 * Area_W[] ] ] / Flr_Area[] ] ##set1 InfH #[ #[ CFM_H[] * #[ 0.0004544 * Area_H[] ] ] / Flr_Area[] ] ##endif $ add base infiltration ##set1 InfT #[ #[ #[ InfN[] + InfE[] ] + InfS[] ] + InfW[] ] ##set1 InfT #[ #[ InfT[] + InfH[] ] + 0.0005 ] ##if #[ RunTyp[] eqs Detailed ] ##set1 InfnoN #[ #[ #[ InfE[] + InfS[] ] + InfW[] ] + InfH[] ] ##set1 InfnoE #[ #[ #[ InfN[] + InfS[] ] + InfW[] ] + InfH[] ] ##set1 InfnoS #[ #[ #[ InfN[] + InfE[] ] + InfW[] ] + InfH[] ] ##set1 InfnoW #[ #[ #[ InfN[] + InfE[] ] + InfS[] ] + InfH[] ] ##set1 InfnoH #[ #[ #[ InfN[] + InfE[] ] + InfS[] ] + InfW[] ] ##set1 InfnoN #[ InfnoN[] + 0.0005 ] ##set1 InfnoE #[ InfnoE[] + 0.0005 ] ##set1 InfnoS #[ InfnoS[] + 0.0005 ] ##set1 InfnoW #[ InfnoW[] + 0.0005 ] ##set1 InfnoH #[ InfnoH[] + 0.0005 ] ##endif POST-PROCESSOR PARTIAL .. $ *(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)* $ *(*)*(*)*(*)*(*)* (*)*(*)*(*)*(*)*(*)* $ *(*)*(*)*(*)*(*)* RESFEN 3.1 INPUT FILE (*)*(*)*(*)*(*)*(*)* $ *(*)*(*)*(*)*(*)* Date: Dec 6 1998 (*)*(*)*(*)*(*)*(*)* $ *(*)*(*)*(*)*(*)* (*)*(*)*(*)*(*)*(*)* $ *(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)* $--------------------------------------------------------------------- INPUT LOADS .. TITLE LINE-1 #[ Loc[] /// " " ] LINE-2 #[#[#[ FdnTyp[] /// HouseTyp[]] /// WallTyp[] ] /// Vintage[] ] ##if #[FdnTyp[] eqs Slab ] LINE-3 #[#[ CeilL[] /// WallL[] ] /// CSlabL[] ] ##elseif #[FdnTyp[] eqs Bsmt ] LINE-3 #[#[#[ CeilL[] /// WallL[] ] /// BFlrL[] ] /// BWallL[] ] ##elseif #[FdnTyp[] eqs Crawl ] LINE-3 #[#[ CeilL[] /// WallL[] ] /// FlrL[] ] ##endif LINE-4 #[RunTyp[] /// " " ] LINE-5 * * .. RUN-PERIOD JAN 1 1999 THRU DEC 31 1999 .. DIAGNOSTIC CAUTIONS,WIDE,ECHO,SINGLE-SPACED .. BUILDING-LOCATION AZIMUTH = 0 SHIELDING-COEF=0.19 TERRAIN-PAR1=.85 TERRAIN-PAR2=.20 WS-TERRAIN-PAR1=.85 WS-TERRAIN-PAR2=.20 .. ABORT ERRORS .. LOADS-REPORT SUMMARY (LS-E,LS-F) .. $--------------------------------------------------------------------- $----- Loads Schedules --------------------------------------------- $--------------------------------------------------------------------- DAYINTSCH DAY-SCHEDULE $CEC internal loads profile (1) (.024) (2) (.022) (3,5) (.021) (6) (.026) (7) (.038) (8) (.059) (9) (.056) (10) (.060) (11) (.059) (12) (.046) (13) (.045) (14) (.030) (15) (.028) (16) (.031) (17) (.057) (18,19) (.064) (20) (.052) (21) (.050) (22) (.055) (23) (.044) (24) (.027) .. INTLDSCH SCHEDULE THRU DEC 31 (ALL) DAYINTSCH .. SHADCO SCHEDULE THRU DEC 31 (ALL) (1,24) (0.80) .. SKYLSHAD SCHEDULE THRU DEC 31 (ALL) (1,24) (0.25) .. $--------------------------------------------------------------------- $----- Glass Propeties --------------------------------------------- $--------------------------------------------------------------------- ##if #[Area_N[] gt 0 ] NWINDOWGT GLASS-TYPE $ North Window ##if #[WinTypN[] eqs User_Spec ] GLASS-CONDUCTANCE = D2-UValN[] SHADING-COEF = ShadCoeffN[] ##elseif #[WinTypN[] eqs Window4 ] G-T-C=Window_Type_N[] FRAME-ABS 0.50 SPACER-TYPE-CODE 0 ##else ##endif .. ##endif ##if #[Area_E[] gt 0 ] EWINDOWGT GLASS-TYPE $ East Window ##if #[WinTypE[] eqs User_Spec ] GLASS-CONDUCTANCE = D2-UValE[] SHADING-COEF = ShadCoeffE[] ##elseif #[WinTypE[] eqs Window4 ] G-T-C=Window_Type_E[] FRAME-ABS 0.50 SPACER-TYPE-CODE 0 ##else ##endif .. ##endif ##if #[Area_S[] gt 0 ] SWINDOWGT GLASS-TYPE $ South Window ##if #[WinTypS[] eqs User_Spec ] GLASS-CONDUCTANCE = D2-UValS[] SHADING-COEF = ShadCoeffS[] ##elseif #[WinTypS[] eqs Window4 ] G-T-C=Window_Type_S[] FRAME-ABS 0.50 SPACER-TYPE-CODE 0 ##else ##endif .. ##endif ##if #[Area_W[] gt 0 ] WWINDOWGT GLASS-TYPE $ West Window ##if #[WinTypW[] eqs User_Spec ] GLASS-CONDUCTANCE = D2-UValW[] SHADING-COEF = ShadCoeffW[] ##elseif #[WinTypW[] eqs Window4 ] G-T-C=Window_Type_W[] FRAME-ABS 0.50 SPACER-TYPE-CODE 0 ##else ##endif .. ##endif ##if #[Area_H[] gt 0 ] HWINDOWGT GLASS-TYPE $ Horizontal Window (Skylight) ##if #[WinTypH[] eqs User_Spec ] GLASS-CONDUCTANCE = D2-UValH[] SHADING-COEF = ShadCoeffH[] ##elseif #[WinTypH[] eqs Window4 ] G-T-C=Window_Type_H[] FRAME-ABS 0.50 SPACER-TYPE-CODE 0 ##else ##endif .. ##endif DIAGNOSTIC NO-LIMITS .. INFINITE GLASS-TYPE $ Fictitious window with infinite properties GLASS-CONDUCTANCE = 0.000001 SHADING-COEF = 0.00 FRAME-CONDUCTANCE = 0.000001 SPACER-TYPE-CODE = 5 .. DIAGNOSTIC LIMITS .. ##if #[RunTyp[] eqs Sizing] BASEWNDGT GLASS-TYPE $ Base case window by location for sizing GLASS-CONDUCTANCE = BaseWindUVal[] SHADING-COEF = BaseWindSC[] .. ##endif $--------------------------------------------------------------------- $----- Constructions ----------------------------------------------- $--------------------------------------------------------------------- WALLCON CONSTRUCTION $ Wall LAYERS=WallL[] .. ROOFCON CONSTRUCTION $ Roof LAYERS=roof .. CEILCON CONSTRUCTION $ Ceiling LAYERS=CeilL[] .. IWALLCON CONSTRUCTION $ Interior walls LAYERS=iwalll .. $ Two-Story constructions ##if #[HouseTyp[] eqs Two_Story ] IFLRCON CONSTRUCTION $ Interior floor in two-story house LAYERS=iflrl .. ##endif ##if #[FdnTyp[] eqs Slab ] $ Slab construction CSLABCON CONSTRUCTION $ Carpeted Slab LAYERS=CSlabL[] .. ##elseif #[FdnTyp[] eqs Bsmt ] $ Basement constructions FLRCON CONSTRUCTION $ Floor over basement LAYERS=r0flr .. BWALLCON CONSTRUCTION $ Basement wall LAYERS=BWallL[] .. BSLABCON CONSTRUCTION $ Basement floor LAYERS=BFlrL[] .. ##elseif #[FdnTyp[] eqs Crawl ] $ Crawl Space constructions FLRCON CONSTRUCTION $ Floor over crawl space LAYERS=FlrL[] .. CWALLCON CONSTRUCTION $ Uninsul. siding crawlspace walls LAYERS=r0rcwall .. CGNDCON CONSTRUCTION $ Crawl space dirt floor LAYERS=cgnd .. ##endif $ --------------------------------------------------------------- $ -- Shades --------------------------------------------------- $ --------------------------------------------------------------- ##if #[ObstrN[] ge 1 ] SURROUNDN BUILDING-SHADE $ neighboring houses north HEIGHT=10 WIDTH=ShadeX[] X=0 Y=ShadeX[] AZIMUTH=180 ##if #[ObstrN[] eq 2 ] TRANSMITTANCE=0.666 ##else TRANSMITTANCE=0.0 ##endif TILT=90 .. ##endif ##if #[ObstrE[] ge 1 ] SURROUNDE BUILDING-SHADE $ neighboring houses east HEIGHT=10 WIDTH=ShadeX[] X=ShadeX[] Y=ShadeX[] AZIMUTH=270 ##if #[ObstrE[] eq 2 ] TRANSMITTANCE=0.666 ##else TRANSMITTANCE=0.0 ##endif TILT=90 .. ##endif ##if #[ObstrS[] ge 1 ] SURROUNDS BUILDING-SHADE $ neighboring houses south HEIGHT=10 WIDTH=ShadeX[] X=ShadeX[] Y=0 AZIMUTH=0 ##if #[ObstrS[] eq 2 ] TRANSMITTANCE=0.666 ##else TRANSMITTANCE=0.0 ##endif TILT=90 .. ##endif ##if #[ObstrW[] ge 1 ] SURROUNDW BUILDING-SHADE $ neighboring houses west HEIGHT=10 WIDTH=ShadeX[] X=0 Y=0 AZIMUTH=90 ##if #[ObstrW[] eq 2 ] TRANSMITTANCE=0.666 ##else TRANSMITTANCE=0.0 ##endif TILT=90 .. ##endif $--------------------------------------------------------------------- $----- Space -------------------------------------------------------- $--------------------------------------------------------------------- $ Sensible internal loads are assumed at 4692kWh/year plus $ 0.9kWh/sqft for lighting. Latent loads assumed 1300kWh/year $ HOUSECOND SPACE-CONDITIONS TEMPERATURE = (74) SOURCE-TYPE=PROCESS SOURCE-SCHEDULE=INTLDSCH SOURCE-BTU/HR= IntLoad[] SOURCE-SENSIBLE=1. SOURCE-LATENT=#[ 12156 / IntLoad[] ] INF-METHOD=S-G FLOOR-WEIGHT=0 FURNITURE-TYPE=LIGHT FURN-FRACTION=0.33 $ general estimate FURN-WEIGHT=8.0 $ as per MEC .. HOUSE SPACE SPACE-CONDITIONS=HOUSECOND FRAC-LEAK-AREA = InfT[] AREA= Flr_Area[] VOLUME=#[ Flr_Area[] * 8.0 ] ##if #[ShadeN[] eq 1 ] FUNCTION =(*SHADING*,*NONE*) ##else ##endif .. NWALL EXTERIOR-WALL WIDTH=WallWd[] CONSTRUCTION=WALLCON X=WallX[] Y=WallX[] HEIGHT=WallHt[] .. ##if #[Area_N[] gt 0 ] NWIND1 WINDOW ##if #[RunTyp[] eqs Sizing ] GLASS-TYPE BASEWNDGT ##else GLASS-TYPE NWINDOWGT ##endif FRAME-WIDTH = Frame_Width_N[] HEIGHT= HeightN[] WIDTH=WidthN[] X = #[ #[WallWd[] - WidthN[] ] / 2 ] Y = #[ 2.5 + Frame_Width_N[] ] MULTIPLIER = WinMultN[] ##if #[ShadeN[] eq 1 ] SHADING-SCHEDULE=SHADCO ##else ##endif ##if #[HouseTyp[] eqs One_Story ] ##if #[OverhN[] ge 1 ] OH-A=#[ #[ WallWd[] - WidthN[] ] / 2 ] OH-W=WallWd[] OH-B=#[ 1.0 + Frame_Width_N[] ] ##if #[OverhN[] eq 1 ] OH-D=2.0 ##else OH-D=1.0 ##endif ##endif ##else ##endif .. ##if #[HouseTyp[] eqs Two_Story ] NWIND2 WINDOW LIKE NWIND1 Y = #[10.5 + Frame_Width_N[] ] ##if #[OverhN[] ge 1 ] OH-A=#[ #[ WallWd[] - WidthN[] ] / 2 ] OH-W=WallWd[] OH-B=#[ 1.0 + Frame_Width_N[] ] ##if #[OverhN[] eq 1 ] OH-D=2.0 ##else OH-D=1.0 ##endif ##endif .. ##else ##endif ##else ##endif EWALL EXTERIOR-WALL LIKE NWALL X=WallX[] Y=20 AZIMUTH=90 .. ##if #[Area_E[] gt 0 ] EWIND1 WINDOW ##if #[RunTyp[] eqs Sizing ] GLASS-TYPE BASEWNDGT ##else GLASS-TYPE EWINDOWGT ##endif FRAME-WIDTH = Frame_Width_E[] HEIGHT=HeightE[] WIDTH=WidthE[] X = #[ #[WallWd[] - WidthE[] ] / 2 ] Y = #[ 2.5 + Frame_Width_E[] ] MULTIPLIER = WinMultE[] ##if #[ShadeE[] eq 1 ] SHADING-SCHEDULE=SHADCO ##else ##endif ##if #[HouseTyp[] eqs One_Story ] ##if #[OverhE[] ge 1 ] OH-A=#[ #[ WallWd[] - WidthE[] ] / 2 ] OH-W=WallWd[] OH-B=#[ 1.0 + Frame_Width_E[] ] ##if #[OverhE[] eq 1 ] OH-D=2.0 ##else OH-D=1.0 ##endif ##endif ##else ##endif .. ##if #[HouseTyp[] eqs Two_Story ] EWIND2 WINDOW LIKE EWIND1 Y = #[10.5 + Frame_Width_E[] ] ##if #[OverhE[] ge 1 ] OH-A=#[ #[ WallWd[] - WidthE[] ] / 2 ] OH-W=WallWd[] OH-B=#[ 1.0 + Frame_Width_E[] ] ##if #[OverhE[] eq 1 ] OH-D=2.0 ##else OH-D=1.0 ##endif ##endif .. ##else ##endif ##else ##endif SWALL EXTERIOR-WALL LIKE NWALL X=20 Y=20 AZIMUTH=180 .. ##if #[Area_S[] gt 0 ] SWIND1 WINDOW ##if #[RunTyp[] eqs Sizing ] GLASS-TYPE BASEWNDGT ##else GLASS-TYPE SWINDOWGT ##endif FRAME-WIDTH = Frame_Width_S[] HEIGHT=HeightS[] WIDTH=WidthS[] X = #[ #[WallWd[] - WidthS[] ] / 2 ] Y = #[ 2.5 + Frame_Width_S[] ] MULTIPLIER = WinMultS[] ##if #[ShadeS[] eq 1 ] SHADING-SCHEDULE=SHADCO ##else ##endif ##if #[HouseTyp[] eqs One_Story ] ##if #[OverhS[] ge 1 ] OH-A=#[ #[ WallWd[] - WidthS[] ] / 2 ] OH-W=WallWd[] OH-B=#[ 1.0 + Frame_Width_S[] ] ##if #[OverhS[] eq 1 ] OH-D=2.0 ##else OH-D=1.0 ##endif ##endif ##else ##endif .. ##if #[HouseTyp[] eqs Two_Story ] SWIND2 WINDOW LIKE SWIND1 Y = #[10.5 + Frame_Width_S[] ] ##if #[OverhS[] ge 1 ] OH-A=#[ #[ WallWd[] - WidthS[] ] / 2 ] OH-W=WallWd[] OH-B=#[ 1.0 + Frame_Width_S[] ] ##if #[OverhS[] eq 1 ] OH-D=2.0 ##else OH-D=1.0 ##endif ##endif .. ##else ##endif ##else ##endif WWALL EXTERIOR-WALL LIKE NWALL X=20 Y=WallX[] AZIMUTH=270 .. ##if #[Area_W[] gt 0 ] WWIND1 WINDOW ##if #[RunTyp[] eqs Sizing ] GLASS-TYPE BASEWNDGT ##else GLASS-TYPE WWINDOWGT ##endif FRAME-WIDTH = Frame_Width_W[] HEIGHT=HeightW[] WIDTH=WidthW[] X = #[ #[WallWd[] - WidthW[] ] / 2 ] Y = #[2.5 + Frame_Width_W[] ] MULTIPLIER = WinMultW[] ##if #[ShadeW[] eq 1 ] SHADING-SCHEDULE=SHADCO ##else ##endif ##if #[HouseTyp[] eqs One_Story ] ##if #[OverhW[] ge 1 ] OH-A=#[ #[ WallWd[] - WidthW[] ] / 2 ] OH-W=WallWd[] OH-B=#[ 1.0 + Frame_Width_W[] ] ##if #[OverhW[] eq 1 ] OH-D=2.0 ##else OH-D=1.0 ##endif ##endif ##else ##endif .. ##if #[HouseTyp[] eqs Two_Story ] WWIND2 WINDOW LIKE WWIND1 Y = #[10.5 + Frame_Width_W[] ] ##if #[OverhW[] ge 1 ] OH-A=#[ #[ WallWd[] - WidthW[] ] / 2 ] OH-W=WallWd[] OH-B=#[ 1.0 + Frame_Width_W[] ] ##if #[OverhW[] eq 1 ] OH-D=2.0 ##else OH-D=1.0 ##endif ##endif .. ##else ##endif ##else ##endif IWALL INTERIOR-WALL AREA=IWallArea[] CONSTRUCTION=IWALLCON INT-WALL-TYPE ADIABATIC .. CEIL INTERIOR-WALL CONSTRUCTION=CEILCON TILT=0 AREA= FdnArea[] NEXT-TO ATTIC .. ##if #[Area_H[] gt 0 ] SKYLROOF ROOF CONSTRUCTION=CEILCON TILT=0 HEIGHT= #[ #[ HeightH[] + Frame_Width_H[] ] + 0.001 ] WIDTH= #[ #[ WidthH[] + Frame_Width_H[] ] + 0.001 ] MULTIPLIER = WinMultH[] X = #[ #[ #[ WallX[] + 20 ] + #[ WidthH[] * WinMultH[] ] ] / 2 ] Y = #[ #[ #[ #[ WallX[] + 20 ] + HeightH[] ] + Frame_Width_H[] ] / 2 ] Z = WallHt[] .. HWIND1 WINDOW ##if #[RunTyp[] eqs Sizing ] GLASS-TYPE BASEWNDGT ##else GLASS-TYPE HWINDOWGT ##endif HEIGHT=HeightH[] WIDTH=WidthH[] FRAME-WIDTH = Frame_Width_H[] X = #[ Frame_Width_H[] + 0.0005 ] Y = #[ Frame_Width_H[] + 0.0005 ] SHADING-SCHEDULE=SKYLSHAD .. ##endif ##if #[HouseTyp[] eqs Two_Story ] IFLR INTERIOR-WALL TILT=180 CONSTRUCTION=IFLRCON AREA=FdnArea[] INT-WALL-TYPE=INTERNAL .. ##else ##endif ##if #[FdnTyp[] eqs Slab ] FLR UNDERGROUND-FLOOR TILT=180 CONSTRUCTION=CSLABCON HEIGHT=10 WIDTH = #[ FdnArea[] * 0.10 ] ##else FLR INTERIOR-WALL TILT=180 CONSTRUCTION=FLRCON AREA= FdnArea[] ##if #[FdnTyp[] eqs Bsmt ] NEXT-TO BASEMENT ##elseif #[FdnTyp[] eqs Crawl ] NEXT-TO CRAWLSPACE ##endif ##endif .. ##if #[RunTyp[] eqs Detailed ] NHOUSE SPACE LIKE HOUSE FRAC-LEAK-AREA = InfnoN[] .. NIWALL INTERIOR-WALL LIKE IWALL .. NNWALL EXTERIOR-WALL LIKE NWALL .. ##if #[Area_N[] gt 0 ] NNWIND1 WINDOW LIKE NWIND1 GLASS-TYPE INFINITE .. ##if #[HouseTyp[] eqs Two_Story ] NNWIND2 WINDOW LIKE NWIND2 GLASS-TYPE INFINITE .. ##endif ##endif NEWALL EXTERIOR-WALL LIKE EWALL .. ##if #[Area_E[] gt 0 ] NEWIND1 WINDOW LIKE EWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] NEWIND2 WINDOW LIKE EWIND2 .. ##endif ##endif NSWALL EXTERIOR-WALL LIKE SWALL .. ##if #[Area_S[] gt 0 ] NSWIND1 WINDOW LIKE SWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] NSWIND2 WINDOW LIKE SWIND2 .. ##endif ##endif NWWALL EXTERIOR-WALL LIKE WWALL .. ##if #[Area_W[] gt 0 ] NWWIND1 WINDOW LIKE WWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] NWWIND2 WINDOW LIKE WWIND2 .. ##endif ##endif NCEIL INTERIOR-WALL LIKE CEIL .. ##if #[Area_H[] gt 0 ] NSKYLRF ROOF LIKE SKYLROOF .. NHWIND1 WINDOW LIKE HWIND1 .. ##endif ##if #[HouseTyp[] eqs Two_Story ] NIFLR INTERIOR-WALL LIKE IFLR .. ##endif ##if #[FdnTyp[] eqs Slab ] NFLR UNDERGROUND-FLOOR LIKE FLR .. ##else NFLR INTERIOR-WALL LIKE FLR .. ##endif EHOUSE SPACE LIKE HOUSE FRAC-LEAK-AREA = InfnoE[] .. EIWALL INTERIOR-WALL LIKE IWALL .. ENWALL EXTERIOR-WALL LIKE NWALL .. ##if #[Area_N[] gt 0 ] ENWIND1 WINDOW LIKE NWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] ENWIND2 WINDOW LIKE NWIND2 .. ##endif ##endif EEWALL EXTERIOR-WALL LIKE EWALL .. ##if #[Area_E[] gt 0 ] EEWIND1 WINDOW LIKE EWIND1 GLASS-TYPE INFINITE .. ##if #[HouseTyp[] eqs Two_Story ] EEWIND2 WINDOW LIKE EWIND2 GLASS-TYPE INFINITE .. ##endif ##endif ESWALL EXTERIOR-WALL LIKE SWALL .. ##if #[Area_S[] gt 0 ] ESWIND1 WINDOW LIKE SWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] ESWIND2 WINDOW LIKE SWIND2 .. ##endif ##endif EWWALL EXTERIOR-WALL LIKE WWALL .. ##if #[Area_W[] gt 0 ] EWWIND1 WINDOW LIKE WWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] EWWIND2 WINDOW LIKE WWIND2 .. ##endif ##endif ECEIL INTERIOR-WALL LIKE CEIL .. ##if #[Area_H[] gt 0 ] ESKYLRF ROOF LIKE SKYLROOF .. EHWIND1 WINDOW LIKE HWIND1 .. ##endif ##if #[HouseTyp[] eqs Two_Story ] EIFLR INTERIOR-WALL LIKE IFLR .. ##endif ##if #[FdnTyp[] eqs Slab ] EFLR UNDERGROUND-FLOOR LIKE FLR .. ##else EFLR INTERIOR-WALL LIKE FLR .. ##endif SHOUSE SPACE LIKE HOUSE FRAC-LEAK-AREA = InfnoS[] .. SIWALL INTERIOR-WALL LIKE IWALL .. SNWALL EXTERIOR-WALL LIKE NWALL .. ##if #[Area_N[] gt 0 ] SNWIND1 WINDOW LIKE NWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] SNWIND2 WINDOW LIKE NWIND2 .. ##endif ##endif SEWALL EXTERIOR-WALL LIKE EWALL .. ##if #[Area_E[] gt 0 ] SEWIND1 WINDOW LIKE EWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] SEWIND2 WINDOW LIKE EWIND2 .. ##endif ##endif SSWALL EXTERIOR-WALL LIKE SWALL .. ##if #[Area_S[] gt 0 ] SSWIND1 WINDOW LIKE SWIND1 GLASS-TYPE INFINITE .. ##if #[HouseTyp[] eqs Two_Story ] SSWIND2 WINDOW LIKE SWIND2 GLASS-TYPE INFINITE .. ##endif ##endif SWWALL EXTERIOR-WALL LIKE WWALL .. ##if #[Area_W[] gt 0 ] SWWIND1 WINDOW LIKE WWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] SWWIND2 WINDOW LIKE WWIND2 .. ##endif ##endif SCEIL INTERIOR-WALL LIKE CEIL .. ##if #[Area_H[] gt 0 ] SSKYLRF ROOF LIKE SKYLROOF .. SHWIND1 WINDOW LIKE HWIND1 .. ##endif ##if #[HouseTyp[] eqs Two_Story ] SIFLR INTERIOR-WALL LIKE IFLR .. ##endif ##if #[FdnTyp[] eqs Slab ] SFLR UNDERGROUND-FLOOR LIKE FLR .. ##else SFLR INTERIOR-WALL LIKE FLR .. ##endif WHOUSE SPACE LIKE HOUSE FRAC-LEAK-AREA = InfnoW[] .. WIWALL INTERIOR-WALL LIKE IWALL .. WNWALL EXTERIOR-WALL LIKE NWALL .. ##if #[Area_N[] gt 0 ] WNWIND1 WINDOW LIKE NWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] WNWIND2 WINDOW LIKE NWIND2 .. ##endif ##endif WEWALL EXTERIOR-WALL LIKE EWALL .. ##if #[Area_E[] gt 0 ] WEWIND1 WINDOW LIKE EWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] WEWIND2 WINDOW LIKE EWIND2 .. ##endif ##endif WSWALL EXTERIOR-WALL LIKE SWALL .. ##if #[Area_S[] gt 0 ] WSWIND1 WINDOW LIKE SWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] WSWIND2 WINDOW LIKE SWIND2 .. ##endif ##endif WWWALL EXTERIOR-WALL LIKE WWALL .. ##if #[Area_W[] gt 0 ] WWWIND1 WINDOW LIKE WWIND1 GLASS-TYPE INFINITE .. ##if #[HouseTyp[] eqs Two_Story ] WWWIND2 WINDOW LIKE WWIND2 GLASS-TYPE INFINITE .. ##endif ##endif WCEIL INTERIOR-WALL LIKE CEIL .. ##if #[Area_H[] gt 0 ] WSKYLRF ROOF LIKE SKYLROOF .. WHWIND1 WINDOW LIKE HWIND1 .. ##endif ##if #[HouseTyp[] eqs Two_Story ] WIFLR INTERIOR-WALL LIKE IFLR .. ##endif ##if #[FdnTyp[] eqs Slab ] WFLR UNDERGROUND-FLOOR LIKE FLR .. ##else WFLR INTERIOR-WALL LIKE FLR .. ##endif HHOUSE SPACE LIKE HOUSE FRAC-LEAK-AREA = InfnoH[] .. HIWALL INTERIOR-WALL LIKE IWALL .. HNWALL EXTERIOR-WALL LIKE NWALL .. ##if #[Area_N[] gt 0 ] HNWIND1 WINDOW LIKE NWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] HNWIND2 WINDOW LIKE NWIND2 .. ##endif ##endif HEWALL EXTERIOR-WALL LIKE EWALL .. ##if #[Area_E[] gt 0 ] HEWIND1 WINDOW LIKE EWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] HEWIND2 WINDOW LIKE EWIND2 .. ##endif ##endif HSWALL EXTERIOR-WALL LIKE SWALL .. ##if #[Area_S[] gt 0 ] HSWIND1 WINDOW LIKE SWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] HSWIND2 WINDOW LIKE SWIND2 .. ##endif ##endif HWWALL EXTERIOR-WALL LIKE WWALL .. ##if #[Area_W[] gt 0 ] HWWIND1 WINDOW LIKE WWIND1 .. ##if #[HouseTyp[] eqs Two_Story ] HWWIND2 WINDOW LIKE WWIND2 .. ##endif ##endif HCEIL INTERIOR-WALL LIKE CEIL .. ##if #[Area_H[] gt 0 ] HSKYLRF ROOF LIKE SKYLROOF .. HHWIND1 WINDOW LIKE HWIND1 GLASS-TYPE INFINITE .. ##endif ##if #[HouseTyp[] eqs Two_Story ] HIFLR INTERIOR-WALL LIKE IFLR .. ##endif ##if #[FdnTyp[] eqs Slab ] HFLR UNDERGROUND-FLOOR LIKE FLR .. ##else HFLR INTERIOR-WALL LIKE FLR .. ##endif ##endif $ Attic Space (assume 1 ft2 of vents per 150 ft2 of attic $ area, and effective-leakage-area = 75% of vent area ATTIC SPACE ##if #[RunTyp[] eqs Detailed ] AREA=#[ FdnArea[] * 6.0 ] VOLUME= #[ FdnArea[] * 18.0 ] ##else AREA= FdnArea[] VOLUME= #[ FdnArea[] * 3.0 ] ##endif INF-METHOD=S-G FRAC-LEAK-AREA= .00243 FLOOR-WEIGHT= 0 ZONE-TYPE=UNCONDITIONED T=(74) .. NROOF ROOF X=WallX[] Y=WallX[] Z=WallHt[] HEIGHT=RoofHt[] ##if #[RunTyp[] eqs Detailed ] WIDTH=#[ RoofWd[] * 6.0 ] ##else WIDTH= RoofWd[] ##endif CONSTRUCTION=ROOFCON TILT=18.435 .. EROOF ROOF LIKE NROOF AZIMUTH=90 X=WallX[] Y=20 .. SROOF ROOF LIKE NROOF AZIMUTH=180 X=20 Y=20 .. WROOF ROOF LIKE NROOF AZIMUTH=270 X=20 Y=WallX[] .. ##if #[FdnTyp[] eqs Bsmt ] BASEMENT SPACE ##if #[RunTyp[] eqs Detailed ] AREA=#[ FdnArea[] * 6.0 ] VOLUME= #[ FdnArea[] * 48 ] ##else AREA= FdnArea[] VOLUME= #[ FdnArea[] * 8.0 ] ##endif FURNITURE-TYPE=LIGHT FURN-FRACTION=0.50 FURN-WEIGHT=5.0 FLOOR-WEIGHT= 0 ZONE-TYPE=CONDITIONED T=(70) .. BWALL UNDERGROUND-WALL HEIGHT= 8.0 ##if #[RunTyp[] eqs Detailed ] WIDTH = #[Perim[] * 6.0 ] ##else WIDTH = Perim[] ##endif CONSTRUCTION=BWALLCON Z=-8.00 TILT= 90 .. FOUNDATION UNDERGROUND-FLOOR $ Basement concrete floor HEIGHT= 10 ##if #[RunTyp[] eqs Detailed ] WIDTH = #[FdnArea[] * 0.60 ] ##else WIDTH = #[FdnArea[] * 0.10 ] ##endif Z=-8.00 TILT= 180 CONSTRUCTION=BSLABCON .. ##elseif #[FdnTyp[] eqs Crawl ] $ Crawl space Space (assume 1 ft2 of vents per 150 ft2 of crawl $ space area, and effective-leakage-area = 75% of vent area CRAWLSPACE SPACE ##if #[RunTyp[] eqs Detailed ] AREA=#[ FdnArea[] * 6.0 ] VOLUME= #[ FdnArea[] * 18.0 ] ##else AREA= FdnArea[] VOLUME= #[ FdnArea[] * 3.0 ] ##endif INF-METHOD=S-G FRAC-LEAK-AREA= .005 FLOOR-WEIGHT= 0 ZONE-TYPE=UNCONDITIONED T=(60) .. NCWALL EXTERIOR-WALL LIKE NWALL ##if #[RunTyp[] eqs Detailed ] $ height 6' to simulate 6x crawl space CONSTRUCTION=CWALLCON HEIGHT=6.0 Z=-3.00 .. ECWALL EXTERIOR-WALL LIKE EWALL CONSTRUCTION=CWALLCON HEIGHT=6.0 Z=-3.00 .. SCWALL EXTERIOR-WALL LIKE SWALL CONSTRUCTION=CWALLCON HEIGHT=6.0 Z=-3.00 .. WCWALL EXTERIOR-WALL LIKE WWALL CONSTRUCTION=CWALLCON HEIGHT=6.0 Z=-3.00 .. FOUNDATION UNDERGROUND-FLOOR $ Crawlspace dirt floor, increase width $ to simulate 6x crawl space HEIGHT=10 WIDTH= #[ FdnArea[] * 0.60 ] ##else $ height 1' for crawl space walls CONSTRUCTION=CWALLCON HEIGHT=1.0 Z=-3.00 .. ECWALL EXTERIOR-WALL LIKE EWALL CONSTRUCTION=CWALLCON HEIGHT=1.0 Z=-3.00 .. SCWALL EXTERIOR-WALL LIKE SWALL CONSTRUCTION=CWALLCON HEIGHT=1.0 Z=-3.00 .. WCWALL EXTERIOR-WALL LIKE WWALL CONSTRUCTION=CWALLCON HEIGHT=1.0 Z=-3.00 .. FOUNDATION UNDERGROUND-FLOOR $ Crawlspace dirt floor HEIGHT=10 WIDTH= #[ FdnArea[] * 0.10 ] ##endif TILT=180 CONSTRUCTION=CGNDCON .. ##else ##endif END .. FUNCTION NAME=SHADING LEVEL=BUILDING .. ASSIGN Y=SCHEDULE-NAME(SHADCO) .. ASSIGN IHR=IHR IDAY=IDAY IMO=IMO DBT=DBT .. ASSIGN IPRDFL=IPRDFL ISUNUP=ISUNUP .. CALCULATE .. IF (IPRDFL .LE. 0) GO TO 2 SC=Y GO TO 70 2 IF (IHR .NE. 1) GO TO 5 CDH=0 HDH=0 IDAYH=0 5 CONTINUE IF (ISUNUP .EQ. 0) GO TO 25 DELTA=DBT-65.0 IF (DELTA .GT. 0.00) GO TO 10 HDH=HDH+ABS(DELTA) GO TO 20 10 CDH=CDH+DELTA 20 CONTINUE IDAYH=IDAYH+1 25 IF (IHR .NE. 24) GO TO 70 CDDD=CDH/IDAYH HDDD=HDH/IDAYH IF (CDDD .LT. 5.00) GO TO 29 IF (SC .NE. 0.80) GO TO 27 ICOUNT=ICOUNT+1 IF (ICOUNT .LE. 4) GO TO 40 27 IHCOUNT=0 SC=0.70 GO TO 70 29 IF (SC .NE. 0.70) GO TO 30 IHCOUNT=IHCOUNT+1 IF (IHCOUNT .GE. 4) GO TO 30 SC=0.70 GO TO 70 30 ICOUNT=0.0 40 SC=0.80 70 CONTINUE Y=SC C PRINT 80,Y,IMO,IDAY,IHR,CDDD,CDH,ICOUNT,IHCOUNT 80 FORMAT( ' SHADING : ADD=' ,8F10.2) END END-FUNCTION .. COMPUTE LOADS .. POST-PROCESSOR PARTIAL .. $ $ *(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)* $ *(*)*(*)*(*)*(*)*(*) (*)*(*)*(*)*(*)*(*)* $ *(*)*(*)*(*)*(*)*(*) File name:SYS.PROD (*)*(*)*(*)*(*)*(*)* $ *(*)*(*)*(*)*(*)*(*) Date: Nov 3 1986 (*)*(*)*(*)*(*)*(*)* $ *(*)*(*)*(*)*(*)*(*) (*)*(*)*(*)*(*)*(*)* $ *(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)*(*)* $ INPUT SYSTEMS .. ##if #[RunTyp[] nes Sizing ] ##include sizing.inc ##endif TITLE LINE-5 EqpTyp[] .. DIAGNOSTIC CAUTIONS ECHO .. SYSTEMS-REPORT SUMMARY=(SS-A,SS-H) .. $-------------------------------------------------------------- PARAMETER $-------------------------------------------------------------- HEATSET=70 SETBACK=65 $ moderate night setback COOLSET=78 SETUP=78 $ no day setup VTYPE=-1 $ enthalpic venting $ New vintage - 82% efficiency to approximate 0.78 AFUE, $ 2.7 COP for air-conditioner, constant 10% duct loss $ Exist vintage - 74% efficiency to approximate 0.70 AFUE, $ 2.4 COP for air-conditioner, constant 10% duct loss ##if #[Vintage[] eqs New ] FHIR=1.3550 CEIR=.3703 ##elseif #[Vintage[] eqs Exist ] FHIR=1.5015 CEIR=.41667 ##endif MAXTEMP=120 CBF=.098 .. $-------------------------------------------------------------- $----- Systems Schedules ------------------------------------ $-------------------------------------------------------------- HTSCH SCHEDULE $ heat temperature schedule, 7 hour night setback THRU DEC 31 (ALL) (1,6) (SETBACK) (7,23) (HEATSET) (24) (SETBACK) .. CTSCH SCHEDULE $ cool temperature schedule, 7 hour day setup THRU DEC 31 (ALL) (1,9) (COOLSET) (10,16) (SETUP) (17,24) (COOLSET) .. ##if #[FdnTyp[] eqs Bsmt] BSMT-HTSCH SCHEDULE $ Basement heat temperature schedule THRU DEC 31 (ALL) (1,24) (62) .. BSMT-CTSCH SCHEDULE $ Basement cool temperature schedule THRU DEC 31 (ALL) (1,24) (85) .. ##endif VTSCH SCHEDULE $Vent schedule based on previous 4 days load THRU MAY 14 (ALL) (1,24) (-4) THRU SEP 30 (ALL) (1,24) (-4) THRU DEC 31 (ALL) (1,24) (-4) .. VOPSCH SCHEDULE $Vent operation schedule THRU DEC 31 (ALL) (1,24) (VTYPE) .. WINDOPER SCHEDULE $No window operation between 11 p.m. and 6 a.m. THRU DEC 31 (ALL) (1,6) (0.0) (7,23) (1.0) (24) (0.0) .. $-------------------------------------------------------------- $----- Part-Load Curves -------------------------------------- $-------------------------------------------------------------- $ added on 11/20/97: revised 2/9/98 $ part load ratio curves for resys2 $ default data is (1,1) (0,.125; see DOE Supplement: p. 3.26-3.27 $ but this curve is not in aggreement with other sources $ data to set fplr to unity is: curve-fit type linear; data (1,1) (0,0) $ revised curve is based on research by Henderson (1997) $ "part load curves for use in doe-2" CDH Energy Corp. Table 3 $ values for 'typical' AC used for New, 'poor' AC for Exist vintage REVFPLR CURVE-FIT TYPE CUBIC ##if #[Vintage[] eqs New ] COEFFICIENTS (0.0101858, 1.18131,-.246748,.0555745) .. ##elseif #[Vintage[] eqs Exist ] COEFFICIENTS (0.0300924, 1.20211,-.311465,.0798283) .. ##endif $ heat pump fplr curve is same as ac: see Henderson (1997) p.8 $ RHTFPLR CURVE-FIT TYPE CUBIC COEFFICIENTS (0.0101858, 1.18131,-.246748,.0555745) .. $ furnace FPLR curve is from Henderson, Tab. 4 $ for 'induced draft unit' used for New, 'atmospheric' for Exist vintage FRFPLR CURVE-FIT TYPE CUBIC ##if #[Vintage[] eqs New ] COEFFICIENTS (0.0080472574,0.87564457, 0.29249943, -0.17624156) .. ##elseif #[Vintage[] eqs Exist ] COEFFICIENTS (0.011771251,0.98061775, 0.11783017, -0.11032275) .. ##endif $-------------------------------------------------------------- $----- Zones ------------------------------------------------ $-------------------------------------------------------------- ZC1 ZONE-CONTROL DESIGN-HEAT-T=70. DESIGN-COOL-T=78. COOL-TEMP-SCH=CTSCH HEAT-TEMP-SCH=HTSCH THERMOSTAT-TYPE=TWO-POSITION .. HOUSE ZONE ZONE-CONTROL=ZC1 ZONE-TYPE=CONDITIONED SIZING-OPTION ADJUST-LOADS .. ##if #[ RunTyp[] eqs Detailed ] NHOUSE ZONE LIKE HOUSE .. EHOUSE ZONE LIKE HOUSE .. SHOUSE ZONE LIKE HOUSE .. WHOUSE ZONE LIKE HOUSE .. HHOUSE ZONE LIKE HOUSE .. ##endif ATTIC ZONE ZONE-TYPE=UNCONDITIONED DESIGN-HEAT-T=40. DESIGN-COOL-T=120. .. ##if #[FdnTyp[] eqs Crawl ] CRAWLSPACE ZONE ZONE-TYPE=UNCONDITIONED DESIGN-HEAT-T=40. DESIGN-COOL-T=85. .. ##elseif #[FdnTyp[] eqs Bsmt ] BASEMENT ZONE ZONE-TYPE=CONDITIONED DESIGN-HEAT-T=62. DESIGN-COOL-T=85. ##if #[ RunTyp[] eqs Sizing ] BASEBOARD-RATING=-5000 ##elseif #[ RunTyp[] eqs House ] ASSIGNED-CFM=Bsmt_Fan[] BASEBOARD-RATING=-5000 ##elseif #[ RunTyp[] eqs Detailed ] ASSIGNED-CFM=#[ Bsmt_Fan[] * 6 ] BASEBOARD-RATING=-30000 ##endif COOL-TEMP-SCH=BSMT-CTSCH HEAT-TEMP-SCH=BSMT-HTSCH .. ##else ##endif $-------------------------------------------------------------- $----- Systems ---------------------------------------------- $-------------------------------------------------------------- SYSCONTRL SYSTEM-CONTROL MAX-SUPPLY-T=MAXTEMP MIN-SUPPLY-T=50 .. SYSAIR SYSTEM-AIR ##if #[RunTyp[] nes Sizing ] SUPPLY-CFM=Fan_Size[] ##endif NATURAL-VENT-SCH=VOPSCH VENT-TEMP-SCH=VTSCH OPEN-VENT-SCH=WINDOPER HOR-VENT-FRAC=0.0 $ assume 1/4 of total window area opened for venting, discharge coefficient 0.6 FRAC-VENT-AREA=#[ #[ AreaT[] / Flr_Area[] ] * 0.15 ] VENT-METHOD=S-G MAX-VENT-RATE=20 .. SYSEQP SYSTEM-EQUIPMENT ##if #[RunTyp[] nes Sizing ] COOLING-CAPACITY=Cool_Cap[] COOL-SH-CAP=Cool_SH_Cap[] HEATING-CAPACITY=Heat_Cap[] ##endif COIL-BF=CBF COOL-EIR-FPLR REVFPLR HEAT-EIR-FPLR RHTFPLR FURNACE-HIR-FPLR FRFPLR FURNACE-AUX 0.0 $ delete since included in HH's Part-Load Curves CRANKCASE-HEAT 0.0 $ delete since included in HH's Part-Load Curves COMPRESSOR-TYPE=SINGLE-SPEED COOLING-EIR=CEIR ##if #[EqpTyp[] eqs Furn_AC ] FURNACE-HIR=FHIR ##elseif #[EqpTyp[] eqs Heat_Pump ] HEATING-EIR=0.37 MAX-HP-SUPP-T=40. ##else Error - EqpTyp not set ##endif .. SYS SYSTEM SYSTEM-TYPE=RESYS2 ##if #[FdnTyp[] eqs Crawl ] ZONE-NAMES=(HOUSE,CRAWLSPACE,ATTIC) ##else ZONE-NAMES=(HOUSE,ATTIC) ##endif SYSTEM-CONTROL=SYSCONTRL SYSTEM-AIR=SYSAIR SYSTEM-EQUIPMENT=SYSEQP ##if #[EqpTyp[] eqs Furn_AC ] HEAT-SOURCE=FURNACE ##elseif #[EqpTyp[] eqs Heat_Pump ] HEAT-SOURCE=HEAT-PUMP ##else Error - EqpTyp not set ##endif ##if #[RunTyp[] eqs Sizing ] SIZING-RATIO 1.30 ##endif .. ##if #[FdnTyp[] eqs Bsmt ] BSYS SYSTEM SYSTEM-TYPE=RESYS2 ZONE-NAMES=(BASEMENT) SYSTEM-CONTROL=SYSCONTRL SYSTEM-AIR=SYSAIR SYSTEM-EQUIPMENT=SYSEQP ##if #[RunTyp[] eqs House ] SUPPLY-CFM=Bsmt_Fan[] COOLING-CAPACITY=Bsmt_Cool_Cap[] COOL-SH-CAP=Bsmt_SH_Cap[] HEATING-CAPACITY=Bsmt_Heat_Cap[] ##elseif #[RunTyp[] eqs Detailed ] SUPPLY-CFM=#[ Bsmt_Fan[] * 6.0 ] COOLING-CAPACITY=#[ Bsmt_Cool_Cap[] * 6.0 ] COOL-SH-CAP=#[ Bsmt_SH_Cap[] * 6.0 ] HEATING-CAPACITY=#[ Bsmt_Heat_Cap[] * 6.0 ] ##endif ##if #[EqpTyp[] eqs Furn_AC ] HEAT-SOURCE=FURNACE ##elseif #[EqpTyp[] eqs Heat_Pump ] HEAT-SOURCE=HEAT-PUMP ##else Error - EqpTyp not set ##endif .. ##endif ##if #[ RunTyp[] eqs Detailed ] NSYS SYSTEM LIKE SYS ZONE-NAMES=(NHOUSE) .. ESYS SYSTEM LIKE SYS ZONE-NAMES=(EHOUSE) .. SSYS SYSTEM LIKE SYS ZONE-NAMES=(SHOUSE) .. WSYS SYSTEM LIKE SYS ZONE-NAMES=(WHOUSE) .. HSYS SYSTEM LIKE SYS ZONE-NAMES=(HHOUSE) .. ##endif END .. COMPUTE SYSTEMS .. STOP ..