ࡱ> wC  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvxyz{|}~Root Entry FHѭF)Workbook_VBA_PROJECT_CUR"GVBAGП ɀ\p John Denman Ba=  ThisWorkbook=xxL,"8@"1Arial1Arial1Arial1Arial1Arial1 Arial1$Arial1Arial1Verdana1Verdana1Verdana1Verdana1Verdana1Verdana1Verdana"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)[$-409]h:mm:ss\ AM/PM[$-409]h:mm\ AM/PM;@$[$-409]dddd\,\ mmmm\ dd\,\ yyyy[$-409]h:mm:ss\ AM/PM;@ 0.000[$-409]mmmm\ d\,\ yyyy;@)$"$"#,##0.000_);[Red]\("$"#,##0.000\)"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\) h:mm:ss;@ "$"#,##0 "$"#,##0.00 "$"#,##0.0 mm:ss.0;@0.0#,##0.0_);[Red]\(#,##0.0\)                + ) , *      h@ @ /  "x!@ @ /   h@ @   "longitude in decimal degrees (negative for western hemisphere)=latitude in decimal degrees (positive in northern hemisphere)%daylight savings time (no= 0, yes= 1)Ktime zone in hours relative to GMT/UTC (PST= -8, MST= -7, CST= -6, EST= -5)hoursminutesseconds&solar elevation (degrees from horizon)Output,solar azimuth (degrees clockwise from north)Calculation of solar azimuth and elevation based on the calculation procedure by NOAA (http://www.srrb.noaa.gov/highlights/sunrise/azel.html)3astronomical dawn (sun is 18 degrees below horizon)/nautical dawn (sun is 12 degrees below horizon)+civil dawn (sun is 6 degrees below horizon)+civil dusk (sun is 6 degrees below horizon)/nautical dusk (sun is 12 degrees below horizon)3astronomical dusk (sun is 18 degrees below horizon)Fsunrise (sun is 0.833 degrees below horizon to account for refraction)@solar noon (sun is at its highest point in the sky for this day)Esunset (sun is 0.833 degrees below horizon to account for refraction)Calculation of local times of sunrise, solar noon, sunset, dawn, and dusk based on the calculation procedure by NOAA (http://www.srrb.noaa.gov/highlights/sunrise/sunrise.html) Customer Data Audit Date Last Name First NameStreet AddressCityStateZip Phone Number OccupantsPetsToddlers Teenagers Utility DataUtility Company Price per kWhAnnual kWh UsageAnnual Utility Cost Home DataHome Floor AreaHome Age YearsNumber of FloorsAvailable Thermal EnergyNumber of Sunny Days/YearDaylight Hours June 21Daylight Hours September 23Daylight Hours December 21Daylight Hours March 22Solar Azimuth June 21Solar Azimuth September 23Solar Azimuth December 21Solar Azimuth March 22 Latitude Longitude SummerFallWinterSpringUse these SettingsLat. n.Long. w.'Time Albany, N.Y. 12:00 noonAlbuquerque, N.M. 10:00 a.m.Amarillo, Tex. 11:00 a.m.Anchorage, Alaska 8:00 a.m. Atlanta, Ga. Austin, Tex. Baker, Ore. 9:00 a.m.Baltimore, Md. Bangor, MaineBirmingham, Ala.Bismarck, N.D. Boise, Idaho Boston, Mass. Buffalo, N.Y.Calgary, Alba., Can.Carlsbad, N.M.Charleston, S.C.Charleston, W. Va.Charlotte, N.C.Cheyenne, Wyo. Chicago, Ill.Cincinnati, OhioCleveland, OhioColumbia, S.C.Columbus, Ohio Dallas, Tex. Denver, Colo.Des Moines, IowaDetroit, Mich. Dubuque, Iowa Duluth, Minn.Eastport, MaineEdmonton, Alb., Can.El Centro, Calif. El Paso, Tex. Eugene, Ore. Fargo, N.D.Flagstaff, Ariz.Fort Worth, Tex.Fresno, Calif.Grand Junction, Colo.Grand Rapids, Mich. Havre, Mont. Helena, Mont.Honolulu, Hawaii 7:00 a.m.Hot Springs, Ark. Houston, Tex.Idaho Falls, IdahoIndianapolis, Ind.Jackson, Miss.Jacksonville, Fla.Juneau, AlaskaKansas City, Mo.Key West, Fla.Kingston, Ont., Can.Klamath Falls, Ore.Knoxville, Tenn.Las Vegas, Nev.Lewiston, Idaho Lincoln, Neb.London, Ont., Can.Long Beach, Calif.Los Angeles, Calif.Louisville, Ky.Manchester, N.H.Memphis, Tenn. Miami, Fla.Milwaukee, Wis.Minneapolis, Minn. Mobile, Ala.Montgomery, Ala.Montpelier, Vt.Montreal, Que., Can.Moose Jaw, Sask., Can.Nashville, Tenn.Nelson, B.C., Can. Newark, N.J.New Haven, Conn.New Orleans, La.New York, N.Y. Nome, Alaska< Oakland, Calif.Oklahoma City, Okla. Omaha, Neb.Ottawa, Ont., Can.Philadelphia, Pa.Phoenix, Ariz. Pierre, S.D.Pittsburgh, Pa.Portland, MainePortland, Ore.Providence, R.I.Quebec, Que., Can. Raleigh, N.C. Reno, Nev.Richfield, Utah Richmond, Va. Roanoke, Va.Sacramento, Calif.St. John, N.B., Can. 1:00 p.m.St. Louis, Mo.Salt Lake City, UtahSan Antonio, Tex.San Diego, Calif.San Francisco, Calif.San Jose, Calif.San Juan, P.R.Santa Fe, N.M. Savannah, Ga.Seattle, Wash.Shreveport, La.Sioux Falls, S.D. Sitka, AlaskaSpokane, Wash.Springfield, Ill.Springfield, Mass.Springfield, Mo.Syracuse, N.Y. Tampa, Fla. Toledo, OhioToronto, Ont., Can. Tulsa, Okla.Vancouver, B.C., Can.Victoria, B.C., Can.Virginia Beach, Va.Washington, D.C. Wichita, Kan.Wilmington, N.C.Winnipeg, Man., Can. 11:00 a.mLatitude - Longitude TableRecord the Values Length of DayRecord These ValuesSolar Elevation June 21Solar Elevation September 23Solar Elevation December 21Solar Elevation March 22Years Included in AverageSunny Days A Year ABERDEEN,SD ABILENE,TXAKRON,OH ALAMOSA,CO ALBANY,NYALBUQUERQUE,NM ALLENTOWN,PA ALPENA,MI AMARILLO,TX ANCHORAGE,AK ANNETTE,AKAPALACHICOLA,FL ASHEVILLE,NC ASTORIA,OR ATHENS,GA ATLANTA,GAATLANTIC CITY AP,NJ AUGUSTA,GA AUSTIN,TXAVOCA,PABAKERSFIELD,CA BALTIMORE,MD BARROW,AK BARTERIS.,AKBATON ROUGE,LA BECKLEY,WV BETHEL,AK BETTLES,AK BIG DELTA,AK BILLINGS,MT BINGHAMTON,NYBIRMINGHAM AP,AL BISHOP,CA BISMARCK,ND BLOCK IS.,RIBLUE CANYON,CABOISE,ID BOSTON,MA BRIDGEPORT,CTBROWNSVILLE,TX BUFFALO,NY BURLINGTON,VTBURNS,ORCAIRO,ILCAPE HATTERAS,NC CARIBOU,ME CASPER,WYCHARLESTON AP,SC CHARLESTON,WV CHARLOTTE,NCCHATTANOOGA,TN CHEYENNE,WY CHICAGO,ILCHUUK,E.CAROLINE IS.,PC CLAYTON,NM CLEVELAND,OH COLD BAY,AKCOLORADO SPRINGS,CO COLUMBIA,MO COLUMBIA,SC COLUMBUS,GA COLUMBUS,OH CONCORD,NH CONCORDIA,KSCORPUS CHRISTI,TXDALLAS-FORT WORTH,TX DAYTON,OHDAYTONA BEACH,FL DEL RIO,TX DENVER,CO DES MOINES,IA DETROIT,MI DODGE CITY,KS DUBUQUE,IA DULUTH,MN EL PASO,TX ELKINS,WVELKO,NVELY,NVERIE,PA EUGENE,OR EUREKA,CA. EVANSVILLE,IN FAIRBANKS,AKFARGO,ND FLAGSTAFF,AZFLINT,MI FORT MYERS,FL FORT SMITH,AR FORT WAYNE,IN FRESNO,CA GLASGOW,MT GOODLAND,KSGRAND ISLAND,NEGRAND JUNCTION,COGRAND RAPIDS,MIGREAT FALLS,MTGREATER CINCINNATI AP GREEN BAY,WIGUAM,PC GULKANA,AK HARRISBURG,PA HARTFORD,CT HELENA,MTHILO,HIHOMER,AK HONOLULU,HIHOUGHTON LAKE,MI HOUSTON,TX HUNTINGTON,WV HUNTSVILLE,ALHURON,SDINDIANAPOLIS,ININTERNATIONAL FALLS,MN JACKSON,KY JACKSON,MSJACKSONVILLE,FLJOHNSTON ISLAND,PC JUNEAU,AK KAHULUI,HI KALISPELL,MTKANSAS CITY,MO KEY WEST,FLKING SALMON,AK KNOXVILLE,TN KODIAK,AKKOROR,PC KOTZEBUE,AKKWAJALEIN,MARSHALL IS.,PC LA CROSSE,WILAKE CHARLES,LA LANDER,WY LANSING,MI LAS VEGAS,NV LEWISTON,ID LEXINGTON,KYLIHUE,HI LINCOLN,NELITTLE ROCK,AR LONG BEACH,CALOS ANGELES AP,CALOS ANGELES C.O.,CA LOUISVILLE,KY LUBBOCK,TX LYNCHBURG,VAMACON,GA MADISON,WIMAJURO,MARSHALL IS,PC MANSFIELD,OH MCGRATH,AK MEDFORD,OR MEMPHIS,TN MERIDIAN,MSMIAMI,FLMIDDLETOWN/HARRISBURG INTL APTMIDLAND-ODESSA,TX MILFORD,UT MILWAUKEE,WIMINNEAPOLIS-ST.PAUL,MN MISSOULA,MT MOBILE,AL MOLINE,IL MONTGOMERY,ALMOUNT SHASTA, CAMT.WASHINGTON,NH MUSKEGON,MI NASHVILLE,TNNEW ORLEANS,LANEW YORK (JFK AP),NYNEW YORK (LAGUARDIA AP),NYNEW YORK C.PARK,NY NEWARK,NJNOME,AK NORFOLK,NE NORFOLK,VANORTH PLATTE,NE OAK RIDGE,TNOKLAHOMA CITY,OK OLYMPIA,WAOMAHA (NORTH),NEOMAHA EPPLEY AP,NE ORLANDO,FL PADUCAH,KYPAGO PAGO, AMER SAMOA,PC PENDLETON,OR PENSACOLA,FL PEORIA,ILPHILADELPHIA,PA PHOENIX,AZ PITTSBURGH,PA POCATELLO,IDPOHNPEI,CAROLINE IS.,PCPORT ARTHUR,TX PORTLAND,ME PORTLAND,OR PROVIDENCE,RI PUEBLO,CO QUILLAYUTE,WA RALEIGH,NC RAPID CITY,SD REDDING,CARENO,NV RICHMOND,VA ROANOKE,VA ROCHESTER,MN ROCHESTER,NY ROCKFORD,IL ROSWELL,NM SACRAMENTO,CASAINT CLOUD,MNSALEM,ORSALT LAKE CITY,UT SAN ANGELO,TXSAN ANTONIO,TX SAN DIEGO,CASAN FRANCISCO AP,CA SAN JUAN,PRSANTA MARIA,CASAULT STE.MARIE,MI SAVANNAH,GASCOTTSBLUFF,NESEATTLE C.O.,WASEATTLE SEA-TAC AP,WASEXTON SUMMIT,OR SHERIDAN,WY SHREVEPORT,LA SIOUX CITY,IASIOUX FALLS,SD SOUTH BEND,IN SPOKANE,WASPRINGFIELD,ILSPRINGFIELD,MO ST.LOUIS,MOST.PAUL ISLAND,AK STOCKTON,CA SYRACUSE,NY TALKEETNA,AKTALLAHASSEE,FLTAMPA,FL TOLEDO,OH TOPEKA,KS TUCSON,AZTULSA,OK TUPELO,MS UNALAKLEET,AK VALDEZ,AK VALENTINE,NE VICTORIA,TXWACO,TXWAKE ISLAND,PCWASHINGTON DULLES AP,D.C.WASHINGTON NAT'L AP,D.C. WATERLOO,IAWEST PALM BEACH,FLWICHITA FALLS,TX WICHITA,KSWILLIAMSPORT,PA WILLISTON,ND WILMINGTON,DE WILMINGTON,NC WINNEMUCCA,NV WINSLOW,AZ WORCESTER,MA YAKIMA,WA YAKUTAT,AKYAP,W CAROLINE IS.,PC YOUNGSTOWN,OHYUMA,AZSunny Days TableBRISTOL-JHNSN CTY,TNGREENVILLE-SPARTANBURG,SCGREENSBORO-WNS-SLM-,NC Latitude CosBTU/Square Foot/DayBTU Hours/Square Foot/YearWh/Square Foot/DaykWh/Square Foot/YearHot Water Gallons/Day Estimate TemperatureDaily BTU EstimateDaily kWh Water Heat EquivalentSolar Collector Square FootageSolar Collector Efficiency %Water Heat System Requirements Recommended Storage Tank Gallons Annual kWh Water Heat EquivalentElectric Water Heat PercentageAnnual Water Heating CostSolar Water Heating PercentageAnnual Water Heating Savings Adjusted Annual kWh RequirementsPercentage of Solar ElectricitySolar PV RequirementsWind Turbine Requirements DescriptionQuantitySolar Collector Flat PlateSolar Collector Evacuated Tube Model NumberStorage Tank (Insert Gallons)Closed Loop Pump Controller ThermocouplesElectric Water HeaterSpecifications!Solar Collector Mounting BracketsSolar Collector Stilts3/4" Copper Pipe1/2" Copper Pipe3/4" Tee3/4" 90 Elbow3/4" 45 Elbow3/4" 22.5 Elbow 3/4" Union3/4" - 1/2" Reducer1/2" 90 Elbow1/2" 45 Elbow1/2" 22.5 Elbow 1/2" Union1/2" Tee 3/4" Valve 1/2" Valve!25' Roll of Aluminum Furnace Tape14 Gauge Romex Cable14 Gauge Wire NutsMetal Electrical Box with Face25' Roll of Hanger IronElectrical Socket#8 x 1" Decking ScrewsSolar PV Panel for PumpManufacturer/VendorClassSCSTCLAir VentPressure Relief ValveFloating Ball Check ValveLoop Charge ValveLoop Drain ValveLoop Bypass Valve(2) Temperature Gauges$Bourdon Tube Pressure Gauge 0-10 PSIExpansion TankVEIRM1/2" - 3/8" Reducer3/8" Copper Tubing3/8" 90 Elbow 3/8" Union3/8" Tee8' Pipe Insulation 3/4"8' Pipe Insulation 1/2"8' Pipe Insulation 3/8"IRM Propylene Glycol Antifreeze 1/8" NPTF Pipe Coupler 3/4" Pipe 1/8" NPTF Pipe Coupler 3/8" Pipe 1/8" NPTF Pipe Coupler 1/2" Pipe%240VAC Circuit Breaker (Water Heater)Panel Width InchesTotal Annual kWh RequirementDC Watt Output Rating of KitPanel Height InchesQuantity of Panels in KitRated DC Watts Per PanelSquare Footage of PanelsCustomer PriceUtility Incentive per DC WattState Tax Incentive EstimateFederal Tax CreditReturn On Investment YearsProjected Annual kWh Output$Projected Annual Electricity SavingsNet System Cost to OwnerInstalled cost per DC WattUtility Incentive TotalInverterSolar PV Panels kWh MeterBattery Bank (Off Grid)DC Charge Controller (Off Grid)Connectorized Cables Length 1Connectorized Cables Length 2Connectorized Cables Length 3Connectorized Cables Length 4Connectorized Cables Length 5 Combiner BoxAC Breaker/Disconnect BoxDC Disconnect Box Romex Cable Run - DC to Inverter Romex Cable Run - Inverter to AC8 Foot Copper Ground Rod<-1/0 Cable for Ground LoopSurge ProtectorLightning Arrestor (DC side)Lightning Arrestor (AC Side) Originating TerminatingRun DesignationLengthNotes PV Panel + PV Panel -PV+PV-Combiner Box In 1 -Combiner Box In 1 + PV Panel 1 + PV Panel 1 -PV+CB+1PV-CB-1 PV Panel 2 +Combiner Box In 2 +PV+CB+2 PV Panel 2 -Combiner Box In 2 -PV-CB-2 PV Panel 3 +Combiner Box In 3 +PV+CB+3 PV Panel 3 -Combiner Box In 3 -PV-CB-3 PV Panel 4 +Combiner Box In 4 +PV+CB+4 PV Panel 4 -Combiner Box In 4 -PV-CB-4Combiner Box Out +Combiner Box Out -DC Disconnect In +DC Disconnect In -CB+DD+CB-DD-DC Disconnect Out +DC Disconnect Out - Inverter + Inverter -DC+INDC-IN Inverter L1INL1 Inverter L2INL2Inverter NeutralAC Disconnect L1 InAC Disconnect L2 InAC Disconnect Neutral InAC Disconnect L1 OutAC Disconnect L2 OutAC Disconnect Neutral OutMain AC Panel L1Main AC Panel L2Main AC Panel NeutralACL1ACL2ACNUINNUPV Panel DC Disconnect AC Disconnect Main AC PanelCable Route MeasurementsCable Specifications$Percentage of Wind Power ElectricitylTower Obstruction Clearance Feet above Obstructions less then 10 times Horizontal to Vertical distance ratio 7<w|y~%*   ! !"""#" # $ $ % % & & 2'7 ' M(R(P)U)H*M6+;+h,mL-Q._0d112d3i3+404&5+5C6H6d7i78#9(9T:;:t;[ <<,==> ?{?b?a@H@EA,ABB)B&C Ct D Dp D {Eb E nFU F eGL G nHUH{IbI~JeJiKPK|LcL\MCMlNSNOPQ|=R$RnSUTTyLU3UV{Wb]XDYYZ7[[n%\\t/]]YK^^i ɀ  a dWjt|{}  dMbP?_*+%"D??U} I(D} D} m D} D} D} ID Column 14a,      ,, : ; < = > ? @ A B C  D  E  F  G  H I~ *@ LJ~ @ LK!Nڶ@3 DD L~ O L!M D;D P!Q DD>  L! M N" O       Dl333 !,"#$%&'()*+,-./012345 6,789:;<=>?  ! P!! "Z~ ""@@"> # "#DE5#?2 D"AVA#> $[~ $"X@ %Q~ %`@ &R&;~?<Z&z 'S';s*?&Z ' (T(;?'Z )U);5H?(Z ) >> )>> *V*< b@)Z * >> *>> +W+<e@*Z + >> +>> ,X,<e@+Z , >> ,>> -Y-<d@,Z - >> ->> ..<T@-Z.>.>.> . >> .>> //<M@0Z/>/>/> / >> />> 00<A@1Z0>0>0> 0 >> 11<M@.Z1>1>1> 1 >> 2 )2E͛ @4D%D#A02>2>2> 2 >> 3 %3Eee]@?D2HzG @3>3>3> 4 $4<zd5ng@D2m4>4>4> 5 5IF#A/ D3m5>5>5> 66 7F/7J$@9 D  D  8F8q 919G:D7D8:D> ::E; D9U  ;;ET D:m <<H =,=E#D%D7D> >>p ?4?Khv5D9D<D3D%D l&>9=/KKKKKii[[gUTOAC11>@,ABCDEFGHIJKLMNOPQR S; TUVWXYZ[\]^_ @@ AFb3AR@ODED>D; BFc~ Bu@@ CFe~ CuD@ DFf~ Dui@ EFa~ EuA@ FFd~ Fu@P@ GFh~ Gw@ HFp!Hx@A DGDB IFi~ Ixn@ JFj~ Jw KFq!Ky8@L DIDB LFk%Ly6@QDG333333? MFm+MR@NDBD%L@3:7@q3` `l!`jj@M D\D_G & >U@WWWJ '' 66@@SS7 ɀ 4~HPX`0x  dMbP?_*+%"??U} I#} $#} $)} $#} $)} #} $#}  #} I#} $ #  ,C                                  $ a b$AAA $? $c 'd $c 'd $e B? B B %f&E@(D@&@R@(F@ &g @@<@@@Y@ %h&A@(@&Z@(C@ &i @@L@@b@ %j&A@(&@&@Y@(I@ &k @@G@@Q@ %l&N@(*@&b@(K@ &m @@@@@b@ %n&@@(F@&U@(7@ &g @@L@@@Q@ %o&>@(0@&@X@(F@ &k @@L@@d@ %p &F@(G@&@]@(I@ &q @ @J@@W@ %r &C@(2@&S@(C@ &g @ @B@@P@ %s &F@(H@&Q@(G@ &g @ @I@@c@ %t &@@(>@&U@(I@ &k @ @F@@N@ %u &G@(H@&Y@(G@ &k @ @D@@D@ %v&E@(B@&]@(*@ &i @@O@@`@ %w&E@(5@&Q@(@ &g @@?@@X@ %x&E@(K@&S@(I@ &g @@D@@I@ %y&I@(?&\@(? &i @@J@@@\@ %z&@@(:@&Z@(.@ &i @@N@@[@ %{&@@(G@&S@(L@ &g @ @B@@W@ %|&C@(5@&@T@(C@ &g @ @F@@\@ %}&A@(,@&T@(I@ &g @ @K@@\@ %~&D@("@&Z@(J@ &i @ @D@@Q@ %&D@(I@&U@(B@ &k @ @K@@g@ %&C@( @&U@(>@ &g @@F@@@Z@ %&D@(<@&@T@(B@ &g @@K@@P@ %&A@(&@T@(@ &g @@A@@J@ %&D@(&T@(? &g @@E@@X@ %&@@(G@&X@(G@ &k @@@@@N@ %&C@(F@&@Z@( &i @@A@@O@ %&D@(A@&@W@(B@ &k @@@@U@ %&E@(4@&T@(@ &g @@@@N@Dl>D~bbbbbbbbbbbbbbbbbbbbbbbbbbbb ! " @# $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?  % &E@(?@&V@(D@ &k @ @L@@@V@ !%!&G@(H@&W@(@ !&k !@!@F@@J@ "%"&F@(K@&P@( "&g "@"@B@@X@ #%#&J@(A@&@\@(<@ #&i #@#@=@@ i@ $%$&@@(C@&\@(@@ $&q $@$@L@@@W@ %%%&?@(G@&Z@(=@ %&i %@%@3@@X@ &%&&F@(@&^@(@ &&q &@&@?@@e@ '%'&G@(J@&X@(H@ '&k '@'@L@@^@ (%(&A@(*@&[@(D@ (&i (@(@N@@X@ )%)&@@(E@&@X@(3@ )&k )@)@G@@X@ *%*&B@(F@&]@(H@ *&q *@*@M@@V@ +%+&C@(@&[@(@@ +&i +@ +@J@@X@ ,%,&E@(M@&@U@(D@ ,&g ,@!,@J@@K@ -%-&H@(@@&@[@(E@ -&i -@"-@J@@M@ .%.&G@(A@&\@(@ .&i .@#.@&@@^@ /%/&5@(2@&c@(I@ /& /@$/@>@@@\@ 0%0&A@(?@&@W@(@ 0&k 0@%0@C@@@[@ 1%1&=@(F@&W@(5@ 1&k 1@&1@K@@M@ 2%2&E@(>@&\@(? 2&i 2@'2@F@@Z@ 3%3&C@(G@&U@($@ 3&g 3@(3@G@@Y@ 4%4&@@(4@&V@((@ 4&k 4@)4@G@@@P@ 5%5&>@(6@&@T@(D@ 5&g 5@*5@H@@@[@ 6%6&M@(2@&`@(8@ 6&m 6@+6@@P@@Z@ 7%7&C@(@&W@(A@ 7&k 7@,7@N@@Z@ 8%8&8@(@@&@T@(H@ 8&g 8@-8@B@@U@ 9%9&F@(.@&S@(>@ 9&g 9@.9@H@@ :%:&E@($@&@^@(F@ :&q :@/:@<@@@d@ ;%;&A@(L@&T@(L@ ;&g ;@0;@K@@P@ <%<&B@($@&\@((@ <&q <@1<@E@@$@ =%=&G@(8@&@]@(@ =&q =@2=@F@@_@ >%>&D@(I@&X@(D@ >&k >@3>@:@@Z@ ?%?&E@(@&@T@(A@ ?&g ?@4?@H@@\@Dlbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _  @%@&@@(G@&]@(&@ @&q @@5@@H@@[@ A%A&A@(@&]@(.@ A&q A@6A@G@@R@ B%B&C@(.@&@U@(G@ B&g B@7B@K@@V@ C%C&E@(&Q@(>@ C&g C@8C@>@@``@ D%D&A@("@&V@(@ D&k D@9D@J@@Y@ E%E&9@(G@&T@((@ E&g E@:E@E@@`@ F%F&E@(@&U@(K@ F&k F@;F@J@@@S@ G%G&F@(M@&@W@(,@ G&k G@<G@J@@@X@ H%H&>@(E@&V@(@ H&k H@=H@0@@@^@ I%I&@@(5@&U@(2@ I&k I@>I@N@@\@ J%J&F@(.@&R@(@@ J&g J@?J@G@@@Z@ K%K&F@(>@&@R@(A@ K&g K@@K@B@@R@ L%L&I@(B@&@Z@(?@ L&k L@AL@I@@ a@ M%M&B@($@&U@(G@ M&k M@BM@5@@W@ N%N&H@(>@&@]@(1@ N&q N@CN@G@@@S@ O%O&D@(F@&R@($@ O&g O@DO@J@@ h@ P%P&D@(3@&R@(K@ P&g P@EP@H@@H@ Q%Q&=@(L@&V@(@ Q&k Q@FQ@L@@@`@ R%R&D@(G@&@R@(M@ R&g R@GR@L@@``@ S%S&P@(9@&d@(>@ S&m S@HS@D@@O@ T%T&B@(H@&^@(0@ T&q T@IT@J@@R@ U%U&A@(:@&@X@(<@ U&k U@JU@V@@@S@ V%V&D@(.@&W@(L@ V&k V@KV@K@@Y@ W%W&F@(8@&R@(E@ W&g W@LW@F@@Q@ X%X&C@(L@&R@($@ X&g X@MX@J@@V@ Y%Y&@@(=@&\@(@ Y&i Y@NY@E@@@d@ Z%Z&F@(6@&Y@(5@ Z&k Z@OZ@K@@P@ [%[&D@(;@&S@(L@ [&g [@P[@K@@X@ \%\&E@(D@&Q@(.@ \&g \@Q\@H@@^@ ]%]&F@(?@&^@(D@ ]&q ]@R]@H@@S@ ^%^&D@(I@&Q@(8@ ^&g ^@S^@G@@@h@ _%_&G@(H@&Q@(&@ _&g _@T_@C@@U@Dlbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~   `%`&A@(G@&S@(C@ `&g `@U`@R@@a@ a%a&C@(>@&]@(H@ a&q a@Va@K@@^@ b%b&C@(G@&\@(@ b&i b@Wb@H@@a@ c%c&B@(@@&@S@(=@ c&g c@Xc@@@@P@ d%d&B@(1@&S@(L@ d&g d@Yd@L@@S@ e%e&C@(A@&@^@(>@ e&q e@Ze@F@@@T@ f%f&F@(2@&P@($@ f& f@[f@G@@@U@ g%g&C@(A@&V@((@ g&k g@g@P@@@[@ h%h&D@(G@&[@(K@ h&i h@h@@@@@^@ i%i&=@(7@&X@(@@ i&k i@\i@4@@0@ j%j&@@(E@&@]@($@ j&q j@]j@@@P@ k%k&B@(G@&^@(:@ k&q k@^k@J@@U@ l%l&B@(4@&@^@(J@ l&q l@_l@D@@T@ m%m&2@(>@&P@($@ m& m@`m@K@@T@ n%n&A@(D@&@Z@(L@ n&i n@an@I@@B@ o%o&@@(@&@T@(@ o&g o@bo@.@@@P@ p%p&G@(B@&^@(4@ p&q p@cp@G@@V@ q%q&@@(<@&@W@(E@ q&k q@dq@>@@@P@ r%r&E@(@@&X@(F@ r&k r@er@:@@V@ s%s&L@($@&`@(.@ s&m s@fs@A@@O@ t%t&G@(D@&@]@(:@ t&q t@gt@;@@Y@ u%u&C@(H@&@V@(C@ u&k u@hu@L@@Z@ v%v&E@(@&R@(A@ v&g v@iv@P@@V@ w%w&B@(*@&@W@(1@ w&k w@jw@L@@S@ x%x&E@(@&S@( @ x&g x@kx@,@@@R@ y%y&;@(L@&T@(;@ y&g y@ly@>@@[@ z%z&D@(C@&T@(@@ z&g z@mz@G@@W@ {%{&E@(D@&S@(8@ {&g {@n{@8@@X@ |%|&B@("@&W@(M@ |&k |@o|@G@@F@ }%}&H@(*@&^@(@ }&q }@p}@B@@``@ ~%~&H@(9@&^@(5@ ~&q ~@q~@F@@Q@ %&B@(I@&R@(M@ &g @r@7@@^@Dlbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb                                 %&C@(J@&@S@(@ &g @s@E@@Z@ %&B@(E@&@X@(1@ &k @t@E@@I@ %&A@(,@&@S@(L@ &g @u@J@@@X@ %&H@(K@&@X@(@ & @v@9@@M@ @w@H@@@ @x@J@@Y@ @y@C@@2@ @z@1@@W@ @{@A@@X@ @|@H@@\@ @}@D@@Q@ @~@G@@@j@ @@E@@V@ @@I@@@V@ @@G@@L@ @@<@@@]@ @@A@@]@ @@C@@c@ @@N@@`b@ @@A@@@g@ @@G@@@W@ @@H@@d@ @@H@@\@ @@G@@\@ @@H@@@V@ @@F@@ @ @@>@@@R@ @@K@@P@ @@P@@@]@ @@E@@]@ @@I@@[@ @@G@@R@Dlbbbb$$$$$$$$$$$$$$$$$$$$$$$$$$$                                 @@N@@@U@ @@G@@d@ @@D@@b@ @@K@@V@ @@L@@W@ @@I@@R@ @@G@@Y@ @@O@@@Y@ @@I@@Z@ @@6@@d@ @@Q@@F@ @@J@@R@ @@K@@Y@ @@G@@@Y@ @@B@@X@ @@G@@X@ @@E@@Z@ @@J@@@W@ @@I@@V@ @@I@@@]@ @@G@@Z@ @@E@@\@ @@E@@@[@ @@F@@`a@ @@K@@J@ @@2@@[@ @@H@@[@ @@G@@@V@ @@&@@@Y@ @@A@@*@ @@N@@@Y@ @@=@@@Z@Dl$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$                                 @@J@@W@ @@K@@@W@ @@L@@`j@ @@E@@M@ @@G@@Z@ @@H@@@ @@E@@W@ @@K@@@Y@ @@G@@Q@ @@E@@X@ @@I@@`a@ @@=@@I@ @@G@@[@ @@J@@[@ @@"@@e@ @@J@@c@ @@I@@Y@ @@H@@Y@ @@A@@U@ @@K@@N@ @@F@@@W@ @@"@@e@ @@H@@g@ @@I@@@X@ @@M@@@S@ @@@Q@@@_@ @@G@@@c@ @@J@@@Z@ @@K@@@b@ @@Q@@d@ @@D@@@R@ @@F@@f@Dl$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$                                 @@K@@P@ @@F@@Z@ @@J@@\@ @@8@@Q@ @@I@@M@ @@>@@_@ @@K@@W@ @@E@@\@ @@K@@Z@ @@I@@@Z@ @@L@@@R@ @@H@@U@ @@H@@Z@ @@I@@\@ @@G@@@Y@ @@P@@2@ @@G@@g@ @@F@@O@ @@$@@P@ @@A@@Y@ @@H@@@Y@ @@D@@@R@ @@G@@\@ @@K@@ h@ @@K@@_@ @@$@@]@ @@@@T@ @@5@@M@ @@D@@^@ @@A@@U@ @@I@@@`@ @@E@@@^@Dl$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$                        @@@@@W@ @@H@@X@ @@A@@V@ @@H@@R@ @@I@@b@ @@C@@`@ @@I@@P@ @@A@@@W@ @@G@@@X@ @ @F@@[@ @ @F@@@a@ @ @B@@ f@ @ @D@@V@ @ @H@@@[@ @@H@@D@ @@I@@@ @@J@@O@ @@@@@@n@(T$$$$$$$$$$$$$$$$$>@A @"7 ɀ `  dMbP?_*+% &C&F, &DMEPSON Stylus Photo R320 Series odhhRL**** xhhDLLName32=E_FUIC9FA.DLL $d $2EPSON Stylus Photo R320 Series  **** "UXX??U} M+}  +} $ +@      / ,#- .&/@@ Z" .%(/X Z$ `  . ~ .`@ 0\ 0] 0^ 0_ .!$.@9@9"@9(@9@ ."$.5@95@97@95@96@ .)$.(@9(@9(@9(@9(@ .*$ .9999 .+$ .9999 .(~ . rrrr .'$ .9999 .. ,--   ..Q1Gةd@ 0<;#$$$$$$$ $ $ $ B 7 b@7e@7e@7d@ .,Q1EUL@ ;#$$$$$$$ $ $ $ B 7T@7M@7A@7M@ 23&-@/XT66666.66$ 3  PH0(  >@7 Sheet2 ɀ   dMbP?_*+% &C&F, &DM\\ecyprnlcyf2s\ECYLCYP2DA30L odXXLetter.HP LaserJet 4100  PCL 5e2xe9NAEulbW HXXB@ ܅} ^u?w!{l[#*^ݒPPΨ_K=@ߡ:6-c"6 u dzbUEFD+ؓbbobh@I|06׹Zp:O9s:D䧮~OQ'K)t|Eofm&5AtD YCB W7;tX2Fv؞$)@7 Sheet1 ɀ ; `  dMbP?_*+%MEPSON Stylus Photo R320 Series odhhRL**** xhhDLLName32=E_FUIC9FA.DLL $d $2EPSON Stylus Photo R320 Series  **** "d??U} $s} m(s}  s} "s} ms}  s} $ s;t     tD t t  tC t# t) sE s! sE s" sF s$ sF s( sF s` sG s% sG sB sG s& sG s' sQ sH sQ sI sQ sJ sQ sK sQ sL sQ sM sQ sN sQ sO sQ sP sR s* sR s+ sR s, sR s/ sR s0 sR s1 sR s2 sR s. sR s-<xT !"#$%&'()*+,-./0123456789: sR s4 !sR !s5 "sR "s6 #sR #s7 $sR $s8 %sR %s3 &sR &sS 'sR 'sT (sR (sU )sR )sV *sR *sW +sR +s9 ,sR ,s: -sR -s] .sR .s_ /sR /s^ 0sR 0sX 1sR 1sY 2sR 2sZ 3sR 3s; 4sR 4s? 5sR 5s< 6sR 6s= 7sR 7s> 8sR 8s@ 9sR 9sA :s[ :s\:>@A @7 ɀ |  dMbP?_*+%MEPSON Stylus Photo R320 Series odhhRL**** xhhDLLName32=E_FUIC9FA.DLL $d $2EPSON Stylus Photo R320 Series  **** "d??U} ~} m'~} I ~} I~} I~} *~} $ #t      }D } }  }C }# }) ~s ~w ~x ~y ~z ~{ ~| ~ ~~ ~ ~r ~ ~ ~ ~} ~t ~ ~ ~u ~v.T>@7 ɀ 9   dMbP?_*+%"??U} m} } } }  }D } }  }C }# })h>@7 ɀ #  dMbP?_*+%"??U} #} I#} #} I #} #} $ #,  , S           | |   r r                                                                                       > 0*&&&&&"T::::::::::::::::::>@7 ɀ 4$6FWggw?W  dMbP?_*+%"??U} m'#} #} $#} #} $#}  #} S} Ig} #} I#} m#} $ #,S       "   L L L L L L L L  L  L  L  L  L jT h UZVP@V0@V"@V@V@@V@VЁ@V@V@V`@V@V@k0@b4@U h U ZV"@V`@V@V@V@V@V@V @V@VІ@VP@V"@k@b4@Z h Z Z[@[@[@[@[0@[@[@[@[@[ @[Ћ@[@l@c>@\ h UZV@V@V@VІ@V@V @VЁ@V@@Vp@VЁ@V@V0@k@b4@a i UZV@V@@V0@VІ@V!@V@@VІ@V@V@V@V@V@k0@b4@ \Z] @]p@]%@]@]"@]!@]@]P@]@]@]H@](@m@dB@ \Z]@]@]@]'@](@]'@]H@]`@]@]Ȕ@])@]H@m(@dR@ _Z `@`@`h@`(@`ؓ@` @`@`p@`@` @`H@`@n@eT@ _Z `-@`@`h@`(@`'@`&@`@`&@` @`8@`@`@@n@eS@ UZ V @V@V@V @V@V@@V@V`@V@V@V @V@k@b4@ ZZ [@[@[@[ @[@[@[@[@[@[0@[@[$@l!@c>@ _1Z `1@`@`0@`1@`P@`@``@`P@`P@`@`1@`1@n@@eT@ TZY@Y`x@Y@Y@Y@Y0@Y@Y@Y@Y@Yw@Y@^@f@ U]ZV@V~@V@V!@V0@VP@V@V@VІ@V@Vy@Vt@k@b4@ UZV`@V@V`@VP@V@V`@V0@V@V@VІ@V@V`@k@b4@ ZZ[P@[@[@@[!@[@[@[@[ @[ @[#@[@@[@l@c>@ \Z]%@]&@]@]@]&@]%@]@]$@]@@]@]@@]@m%@dD@ \Z]ؓ@])@])@] @]@]@]@]@@]P@]Б@])@]@m&@dG@ _Z`@`*@`@`(@`@`@`ؓ@`@`@`+@`@`(@n@eS@ TZYt@Y@z@Y@Y@Y@Y@Yp@Y @Yp@Y@Y w@Yt@^@@f@ \Z]@]&@]@]@]@]P@]P@]@@]&@]%@]'@]@m@@dC@ _Z`@`4@``@`0@`H@`@@`@`h@`@`0@`4@`h@nh@eT@ TZY@Y@Y@Y`}@Y~@Y@Y@z@Y w@Y w@Yw@Y@Y~@^~@f@ UZV@V`@V@V@@V @Vp@V~@V@z@Vz@V@V@V@k@b4@ UZV@VІ@V@V0@V@V@V@V@V@V`@V@V`@k0@b4@ U ZV@V@V0@V@VІ@V@V@V@V@V @V@V@k@b4@ U!ZV@V @V@V@V@V@V0@V@V@V @V@V@k`@b4@ Z"Z[@[P@[@[Ћ@[@[0@[@@[@[@[@[P@[`@l@c>@ Z#Z[0@[!@[@[@[@[@["@[@@[P@[@[І@[@l@c>@ U$ZVІ@V @V@V@V@V!@V#@VЋ@VІ@V@V@V@k`@b4@DlLlllllllllllllllllllllllll !"#$%&'()*+,-./0123456789:;<=>? U%Z V@V!@V`@VЋ@V@V@V@V@V@V@@V`@VP@k@b4@ !U&Z!V@@VЋ@V@V"@V@V0@V@V@V@V@@V @VP@k`@b4@ "U'Z"V@@V @V@V0@V@V@V@V@@V`@V@V@V@k@b4@ #U(Z#V`@V@V @V@V@V@V @Vp@V@V@@V@V@k@b4@ $U)Z$V@V@V@V @V@V @V@@V @V@V@V@V@k@@b4@ %U*Z%V@@VЁ@V@V @VP@V@V @V@@V@V@@V`}@V~@k@b4@ &U+Z&V@@V@V@V @V0@V@V@@V@V`@V@V@@V@k`@b4@ 'U,Z'V@V @VP@V!@V@@V @V@V@VІ@V@V@V@k@b4@ (T-Z(Y`@Y@Y@Y@Y@Y@Y@Y~@Y@Y@@Y @Y @^Ё@f@ )TZ)Y@Y@@Y @Y`@Y@Y@Y{@Y@z@Y|@Y@z@Y@@Y@^@f@ *U.Z*V`@V0@VІ@V@VІ@V@V@V@V@V@VЁ@V@k@b4@ +U/Z+V0@VІ@V@@V@V"@V@VЋ@V@@V @V@V@V@k`@b4@ ,U0Z,V@V@V@V`@V@V`@V@V @V0@V@Vp@V@k@b4@ -\1Z-]@]@]%@]@]@],@]@@]@]X@]`@]@]0@m@dD@ .Z2Z.[@[@[!@[#@[@@[@[@[%@[p@[@[@[@l0@c>@ /T3T/Y@Yp@Y@Y@Y@Y@Y@Y@Y@Y@Y@@Y{@^@ /f 0U4Z0V@V@VP@V @V@V`@V@V@Vp@V@V@V`@k@b4@ 1U5Z1V@V@V@V@@V@V@V@V@V0@V@V @V@k@b4@ 2U6Z2V@V@V@@V@VP@V"@V@V`@V@V@V@V~@k@b4@ 3Z7Z3[`@[$@[X@[ @[@[@@[@[Ћ@[`@[@[#@[`@l$@cB@ 4Z8Z4[@[0@[@[$@[@[@[@[ @[@[`@[@[@@l@c>@ 5Z9Z5[Ё@[@[@@[`@[@[@[`@[p@["@[@[@@[@l@c>@ 6Z:Z6[`@[!@[@[@[P@[@[0@[@[@[ @[@[@l!@c>@ 7\;Z7])@](@]*@]`@]X@]@]`@]#@]%@]@](@]@mБ@dK@ 8Z<Z8[Ћ@[`@[@[@[0@[ @[І@[@[І@[`@[@@[0@l@@c>@ 9Z=Z9[@[@[&@[@@["@[@[`@[ @[`@[P@[@[@l"@c>@ :U Z:VP@V@V"@V@V @V@@V`@V @V`@V@V@V@k @b4@ ;Z>Z;[$@[@[@[%@[@[Ћ@[@[P@[@[0@[`@[@l`@cA@ <U?Z<V@V0@VЋ@V!@V@V0@V@V@V`@V @V @V @k`@b4@ =Z@Z=[@[@[@[`@[Ћ@[ @[І@[@[ @[Ћ@[@[@l!@c>@ >UAZ>V@VЋ@V@V@V @V@V@V@V @V@@VP@V@k @b4@ ?UBZ?V@V @V`@V@V@V@V@V@V @V@V`@V@k@b4@Dllllllllllllllllplllllllllllllll@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ @UCZ@VP@V0@Vp@V!@V@V@V@V@V @V`@V@V@k`@b4@ A\DZA]p@](@]@]@]%@]@]`@]@]@]@](@]p@m@dF@ BZEZB[#@[$@[%@[%@[#@[@[@[@[@[@[P@[p@l@cA@ CZFZC["@[@[@[`@[@[ @[І@[@[@[@[@[!@l!@c>@ DZGZD["@[@[@[#@[@[@[@[@[@[@[@[@l@c>@ EUHZEV@V0@V@V@@V`@VЁ@V@V@Vp@V@Vp@V@k`@b4@ FZIZF[@[p@[`@[@[@[@[0@[@[@[@[@[@l@c>@ GZJZG[0@["@[@[#@[p@[@[@[@[І@[@[@[ @l@c>@ HZKZH[@[%@[&@[@[@[@[@[@[0@[$@[@@[$@l@cA@ IULZIV@V@V0@V@V0@V@V@V @V@V@VІ@V @kІ@b4@ JZMZJ[@@[@[@[@[0@[P@[@[І@[ @[!@[p@[@lp@cA@ KU ZKV@V@V@V @V@V@V @V@V@V@Vp@V@k@b4@ LUNZLV@V@V @V@V@V@V @V@V@V@V@V@k@b4@ MUOZMV @V@@V@V@V @V@V@V`@V@V@V@V@k @b4@ NUPZNV@V@Vp@V@V@V @V@V@V@VІ@V@V@k@b4@ OUQZOV @V@V@V@V @V0@V@V@@V@@V@V@@V@k@b4@ P\cZP]`@]@]@] @] @]@]x@]@]@]%@]@]@@m@dJ@ Q_RZQ`@`@`@`@`*@`H@`/@`@`*@`@`p@`@n@eS@ R_SZR`X@`H@`ؓ@`+@`@`@`h@`x@`H@`p@``@`(@n)@eS@ SZTZS[@[Ћ@[@[@[`@["@[@@[@[@[@[@@[P@l0@c>@ T\UZT]%@]%@]X@] @]%@]@]p@]Ћ@]"@]#@]@]@m@dB@ UZ$ZU[@[@[@[@[@[ @[@[`@[@[І@[p@[@l!@c>@ V\-ZV] @]Б@]p@]@]%@]@]@@]@]Ћ@]@]X@]&@m@dC@ WZVZW[@[@[H@[p@[@[@[@[0@[ @[@[@[@lP@cA@ XZWZX[@[@[H@[ @[@[Ћ@[`@[І@[@[@[@[@l@cA@ YZXZY[%@[@[ @[p@[@@[@[P@[@[@@[#@[@[@@l@cA@ Z\YZZ]@]@]@]*@]X@]@]@]@]0@]@]@](@m@dF@ [UZZ[V@V@V$@V@V@V0@V`@V @V@V@V0@VЋ@k @b4@ \Z[Z\['@[&@[H@[ @[$@[Ћ@[ @[І@[@[p@[@[X@l@cA@ ]Z\Z][@[@[ @[@[@[!@[@[@[@[Ћ@[%@[%@l@cA@ ^\]Z^]@]@]@] @]@]p@]P@]@]!@]#@]&@]@m@dF@ _\^Z_]Б@]@]`@]@]&@]@]Ћ@]@]`@]@]@]X@m@dE@Dllllllllllllllllllllllllllllllll`abcdefghijklmnopqrstuvwxyz{|}~ `\_Z`]Б@]@]8@]@]p@]@]@]p@]@]%@]Б@]&@m&@dG@ a\`Za]Б@]Б@]@]@]X@]@]@@]@]"@]@]&@]&@m%@dD@ b\aZb]H@]@]@]@]@]H@]@]@]@] @]p@]'@m@d@Q@ c_bZc`+@`@`/@`/@`Ж@`,@`x@`)@`+@`+@`h@`@n@eT@ d_cZd``@``@`,@`@`+@`ؓ@`@`'@`(@`@`@`@n)@eS@ eZdZe[P@[@['@[H@[@[`@[@@[ @[!@["@[P@[#@l@cA@ f_eZf`(@`)@`@`,@`8@`@`@`X@` @`@`@`H@n@e? gZZZg[@@[@@[&@[@[0@[@[@[@@[ @[P@[P@[$@l"@c>@ hUfZhVІ@V @V@V@V@V@V@V|@V@V@V@V0@k@b4@ iZgZi[@[@[@[@@[@[@[@[@@[@[P@[@[@lp@cA@ jZhZj[#@[#@[@[P@[ @[ @[@@[@[@@[@[Ћ@[p@l@c>@ kUiZkV@VЋ@V`@VЋ@V @V`@VЁ@V@V@V@V@V@@k @b4@ lUjZlV0@Vp@Vp@V0@V@V@Vp@V@V@V@V @VP@k@b4@ mZkZm[@[$@[@[@[@[@[@[@[0@[`@[@[@l@@c>@ nZlZn[@[@[@[`@[P@[@@[@[p@[І@[@[0@["@l@c>@ oZmZo[@[@[$@[@[@[@[0@[@[@[ @[@[@l@c>@ pZnZp[X@[@[H@[@[@[@[@[P@[@[$@[$@[@@l$@cB@ qZoZq["@[`@[$@[@[p@[@[@[@[`@[@@[@["@l0@c>@ rZpZr[`@[@[@[@[Ћ@[@[@[@[@[P@[@[Ћ@l@c>@ s_qZs`@`@`@`@`Ж@`@`(@`@`+@`@`P@`@n@eT@ t_rZt`h@`h@`@@`x@`(@`Б@`&@`@`@`@`ؓ@`@n`@e@S@ u\sZu]H@] @]'@]&@]$@]Ћ@]@@]@]@]`@]@@]@m@dB@ vZtZv[@[@@[Ћ@[@[@[@[@[@[0@[`@[!@[@@lP@c>@ w\uZw]@]Б@]H@]@]@]@]!@]P@]0@]P@]@]@m@dC@ x\vZx]p@]@]p@]'@]@]"@]P@]`@]@]@]@]@m@dF@ yZwZy[Б@[@[X@[&@[P@[Ћ@[@[@[@[`@[%@[@l@cA@ zZxZz[P@[p@[p@[#@[@[`@[@[@[`@[@[@[@l0@c>@ {ZyZ{[H@[@[@[X@[@[@[ @[@[@[`@[@[&@l@cA@ |\zZ|]@] @] @]'@]@]@]@]@]@]@]@]H@m@dD@ }Z{Z}[@[@[$@[@[P@[!@[`@[@[@[@[P@[@l@cA@ ~\|Z~] @]@]p@]8@] @]@@]`@]`@]@]@] @]@m&@dG@ Z}Z[Ћ@[@[`@[@[`@[!@[@[@[!@[@[`@[@l@c>@Dllllllllllllllllllllllllllllllll \~Z]%@]@@]@]@]X@]@@]`@]@]$@]@]&@]@@m%@dD@ _Z`0@`h@`@`X@`@`@`@`@@`'@`ؓ@`@@`h@n(@eT@ ZZ[@@[@@["@[@[@[@[0@[@[@[@@[@[@l@c>@ UZV@V@@V0@V @V@@V@V@@V@V@V`@V@V`@k@b4@ UZV0@V@V@V0@V@V@@V~@V|@V@V@@V@V@k`@b4@ UZV@V@V@V`@V@VЁ@V@V@@V@V@V@V@k@@b4@ ZZ[@[@[H@['@[p@[0@[@[@[@[@[@[@l@cA@ \Z]X@]X@]8@]8@]@]@]@]@]@]%@]@]@m@dD@ ZZ[@[@[ @[@[`@[@[ @[@[@[Ћ@[@[@l@cA@ \Z]Б@]'@])@](@]@]@]@@]@@]p@]@]&@]@m@@dC@ \Z]*@]8@]Б@]Б@]@]@]#@]#@]@]&@]@]*@m@d? \Z]@]@]@]8@]@]X@]%@]@]@]@]#@]P@m@dE@ _Z`H@`@`@`@`@`X@`$@`@`@`(@`-@`@n)@eS@ \Z]@]`@]@] @]`@]@]@]"@]`@]p@]@]@m@dF@ UZV@VІ@V@Vp@V@V!@V`@V @V @V0@V0@V@k@b4@ UZV@V@V@V@V @V@V@V@V@V@V@V@k`@b4@ UZV@V@V@V@V @V@V@V@V@V@V@V`}@k`@b4@ \Z]H@]H@]x@],@]@]p@]%@]@]&@]@]p@] @mp@dP@ \Z]@]$@]@]@]%@]@]@]p@]#@]@]@]@m@dB@ \Z] @]'@])@]x@]'@]@]P@]#@]@]&@]Б@]@m@d? \Z]@]@]'@]@]'@]@@]#@]@]P@]@]#@]"@m@dB@ \Z]@]X@]@]@]@]@]@]@]`@]@]@]@m%@dD@ ZZ[@[@[%@[@[Ћ@[@[@[@[@["@[P@[@lp@cA@ \Z]@]X@](@])@]p@]%@]@]Ћ@]`@]P@]@]@@m%@dD@ ZZ[@[`@[@@[X@[&@[@[p@[@[P@[#@[P@[@l@cA@ TZY@@YЁ@Y@Y@Y@@Y@Y`@Yp@Y@Y@Y@Y@^p@f@ \Z]@]@]@]@]@]@]@]@@]@]$@]@]@m@dC@ ZZ[ @[!@[@[&@[&@[&@[@[@["@[P@[`@[І@l@cA@ UZV@V`@V`@V@V @V@V@V@V @V@V@V@k@b4@ UZV@V @V@V@V@V!@V@@V`@V@VІ@V@V @k @b4@ UZV@V@VP@V`@V@V@VЁ@V@V@V@V@V@k@b4@ _Z`@`N@`,@`@`4@`T@`ģ@`L@`@`h@`C@`@F@nl@eW@Dllllllllllllllllllllllllllllllll ZZ[@[X@[p@[Б@[@[p@[@[@[@[0@[@[@l@cA@ \Z]@]'@]@]@]$@]#@]Ћ@]0@]"@]`@]@]@m@dF@ ZZ[ @[@[@[@[%@[@[Ћ@[P@[@@[@[@[@lЋ@c>@ _Z`@``@`x@`@`@`(@`@`@`@`p@`p@`@n@e? ZZ[@[@[@[@[@[P@[@[@[ @[@[@[@l0@c>@ ZZ[@[@[@[%@["@[@[@[@[ @[ @[p@[@lЋ@c>@ \Z]@]@]'@]@]@]@]@@]@]@]P@]@]&@m@dB@ \Z],@]Ȕ@]x@]8@]Б@]@]@]P@]@]X@]@]x@mp@dP@ ZZ[@[@[%@[@["@[@@[@[ @[@[@[`@[@lЋ@c>@ ZZ[@[@[&@[@[@[P@[@[@[P@[@[@[@l@cA@ \Z]*@]Ȕ@]+@]ؓ@] @]@]@]$@]@@]&@]@]ؓ@mp@dP@ _ Z`h@`@`@`(@` @`&@`@@`@`&@` @`@`@n@e? ZZ[ @[X@[&@[@[@[@[ @[@[P@[@[@[@l@cA@ ZZ[@[@[@[@@["@[@[@[@[@[0@[@[@l`@cA@ UZV@V@V@V@V@V @V @V@@V@V@V@V@k @b4@ \Z]p@]H@]@]H@]@]@]$@]#@]@]@]@]@m@dF@ UZV`@V@V@V@V@V@V@V@V@V@V@VІ@k @b4@ U ZVP@V!@Vp@V@V@V@V@V`@V@V@V@V@k@b4@ UZV@V@V@V@V@V@V@V@V@V@V0@V@k@b4@ ZZ["@[@[$@[@[p@[@@[@[І@[`@[@[P@[@@l@c>@ \Z]$@]@]@]@] @]@@]@]`@]@]$@]@]#@m@dF@ _Z`@``@`x@`@@`(@` @`%@`&@`p@`)@`@`@n@e? \Z]@]'@]&@]&@]@]$@]@]Ћ@]@]@]@]@m@dC@ ZZ[#@[P@[@[&@[X@[@[@[`@[P@[@["@[`@l@cA@ ZZ[ @[X@[Б@[@[p@[@@[@[І@[ @[p@[@[@lP@cA@ \Z]@]p@](@]'@]$@]@]@]@]Ћ@]@]p@](@m%@dD@ ZZ[@[@[@[@[P@[@[@[`@[@[ @[p@[`@l@c>@ ZZ[Б@[@[H@[@[P@[@[@[І@[P@["@[&@[X@l@cA@ \Z]@]@]p@]Б@]@]p@]@]`@]!@]@]X@]H@m@dC@ ZZ[&@[%@[&@[@[#@[@@[@[0@[@[@[@[@@l`@cA@ ZZ[Б@[X@[@[@[`@[@@[@[ @[P@[@[@[X@lP@cA@ _Z`)@`x@`X@`0@`)@`p@`@`@@`@`p@`8@`8@n@e?Dllllllllllllllllllllllllllllllll \Z]@]@]@]@]@]@]@]@]p@]@]@]@m@dF@ ZZ[p@["@[@[0@[!@[@[0@[ @[@[@[@[p@l!@c>@ UZV`@V`@V@V@V @V@V @V@V @V@V @V@k@b4@ TZYy@Y@Y@@Y@YЁ@Yp@Y @Y@Y@Y w@Yv@Y w@^~@f@ ZZ[@[@[p@[@[#@[#@["@[@[@[@[`@[`@l@c>@ UZV@V@V@V @V0@V@V@V0@V@V@V@V@k@b4@ UZV@V`@V`@V@V@V@V@V@V@V@V @V`@k@b4@ \Z]@])@]Б@]@@]@]@] @]@]@] @],@]@mH@dO@ ZZ[@[@[@[@[@[@[@[@@[`@[@[P@[@lp@cA@ _Z`@`@`h@`@`ؘ@`(@`0@`@`@`.@`0@`h@n@eT@ UZV`@V`@V@V@V@Vp@V@V@V@V@V`@V@k@@b4@ _ Z`@@`x@`x@`.@`@`x@`@`@`p@`$@`@`0@nȔ@eT@ \Z]ؓ@]@](@]@]@]$@]@@] @]0@] @]0@](@m@dC@ \Z]@]@]@]@]@])@]x@]@]@]@]@]P@m@dF@ UZVP@V@@V@V0@V@V @V@V`}@V@V~@V@V@k@b4@ Z Z[&@[@[@[@[@[@[ @[@[@[`@[P@[@l"@c>@ _Z`@@`+@`-@``@`X@`@`@`(@``@`,@`0@`H@n@eT@ UZV@V@VP@VЋ@V`@V@V@V@V@V@V @V@k @b4@ ZZ[@[%@[X@[@["@[P@[@[@@[І@[ @[@[#@lЋ@c>@ \Z]x@](@]@]@]@]@]"@]"@]@]X@]@]*@m&@dG@ UZV@V"@V#@Vp@V@V@@V`@V @V@V@V`@V @k@b4@ UZV@Vp@V@V@V`@V@V@Vp@V@V@V@VP@k@b4@ ZZ[@[@[@[@[#@[@[@[ @[@[@[@[$@l#@cA@ ZZ[@@[@[@[@[0@[ @[І@[@@[ @[@[P@[@l"@c>@ ZZ[@["@[`@[@[@@[@[@[@[ @[@[!@[0@l@c>@ UZV@V0@V"@VЋ@V@V@@V@Vp@V@V@V@V@k@b4@ \Z]@]@]p@]@]@]@]@]P@] @]@]@]p@m@dD@ \Z]@]Б@]@]p@]@]@]`@]@]@]#@]@]%@m@@dC@ Z(Z[p@[@[$@[P@[@[@[`@[ @[@[ @[P@[!@l@c>@ UZV@V@V@V@V@V@V@V @V@V@V@V@k@@b4@ UZV@V @V@V @V@V@V@VЁ@V`@V@V@@V @k@b4@ \Z]X@]@]@]ؓ@]@]%@]@]@]@@]@]@]%@m&@dG@Dllllllllllllllllllllllllllllllll \Z]Б@]@]8@]@]8@]@]@]@@]X@]@]H@]X@m'@dL@ \Z]@]X@]`@]x@]@]@]@]@]&@]@]@]%@m@d? \Z]@]X@]@](@]p@]@]@]@]@]@]@]@m&@dG@ TZY@Y@Y0@Y@Y@Y`}@Yz@Y`x@Yz@Y|@Y@Y @^@f@ TTY@YІ@Y@YІ@Yp@Y@Y@Y|@Y~@Y~@Y@Y@^@ f UZV@V @V@@V@@V@@V@V@V@V@VЁ@V@V@k@b4@ ZZ[$@[@[@[@[@[@[@[@[@[@["@[@l@c>@ UZVp@V@V@V@V@V@V@V`@V@V@@V@@VЋ@k @b4@ TZY|@Y`}@Y@Y@Y@z@Y`x@Yv@Yt@Y@u@Yt@Yw@Y@z@^y@f@ \Z]H@])@]h@]@]*@]`@]@]@]@]&@] @]H@m@d@Q@ _Z`@`@`@`@`-@`0@`ؓ@`(@`@`@`*@`ؓ@n+@eT@ ZZ[@[P@[@@[@[#@["@[@[@[@[@[@[@lЋ@c>@ UZV@V @V@V@V@V@V@V@V@V@V@V0@k@b4@ \Z]X@]@]x@]@@](@](@]@]@]@]`@]%@]@m@dJ@ \Z](@](@],@]X@]@]H@]'@]&@]@@]@@]H@] @m(@dR@ \Z]&@]H@]@]`@]X@]@]@]Ћ@]@]P@]@]@m@dE@ ZZ[p@[@[@[Б@[p@[@[p@[!@[P@["@[@["@l@cA@ ZZ[@[@[@[@[@[@[@[@[@[Ћ@[ @[@lP@cA@ ZZ[@[p@[@[&@[@[@[@[@[@[@[ @[@l@c>@ \Z] @]p@]@]@]'@]@]@]`@]@]@]@]@m&@dG@ UZVP@V!@Vp@V"@VP@V @V@V@V@V@V@V@k@b4@ _Z`(@`@`Ж@`@`0@`@@`Б@`@`%@`@`H@`p@n`@e@S@ \Z]@@]@])@]@])@]8@]@]@]@]@]@@]@mX@dH@ ZZ[@[@['@['@[@[0@[ @[0@[@[@[@[@l@cA@ \Z]@]@](@]@]X@]@]@]Ћ@]Ћ@]@]$@]@m@dC@ ZZ[@[@[@[@[@[P@[p@[@@[@[@[@[@@lp@cA@ ZZ[@@[@[Б@[H@[@[P@[Ћ@[@[!@[Ћ@[@[$@l@cA@ \Z]@]H@]ؓ@]@]'@]&@]@]@]@]$@]@]@mX@dH@ \Z]@]@]x@]x@]@]@]X@]@]@@]@]Б@]X@m @dN@ ZZ[@[P@[@[@[`@[`@[#@[P@[p@[!@[ @[@l@c>@ ZZ[P@[`@[`@[#@["@[!@[ @[@[@[@[@[@l"@c>@ UZV @VP@V!@V@@V@V@Vp@V@V`@V@V@V0@k0@b4@Dlllllpllllllllllllllllllllllllll      \Z]Б@]p@]8@]p@]@@]P@]Ћ@]@]@]@]@]@m%@dD@ UZVP@V@Vp@V"@V@V @V@V@V@V@V@V`@k@b4@ UZV@V`@V$@V@V`@V@@V@V@V@V@@VP@V@k@b4@ UZV@V@V@VІ@V@V@V`@V@VЁ@V @V@@V0@k@b4@ TZY@Y@@Y@Y`@Yp@YЁ@Y@Y@Y~@Y@Y@Y@^p@f@ ZZ[#@[`@[`@[`@[Ћ@[@[P@[`@[ @[@[p@[@l@c>@ ZZ[0@[@[P@[$@[@[@[@[@[@[@[@[0@lЋ@c>@ UZV@V@V@V@V!@V@V`@V @VІ@V@V @V@k0@b4@ ZZ[@@[0@[p@[Ћ@[@@["@[P@[@[@[@[ @[ @l@@c>@ ZZ [@[@[@[@[@@[І@[@[`@[@@[`@[p@[@l!@c>@ TZ Y@Y@Y@Y0@YЁ@Y@@Y~@Yz@Y|@Y~@Y@Y@^ @f@ TZ Y@Y@Y@Y @Y`@Y@Y@Y`x@Y@Y@Y@Y@^ @f@ UZ V@V@V @V@V`@VЁ@V@V@V@V @V@@VІ@k@b4@ ZZ [@[%@[@[@[$@[p@[@[@[Ћ@[@[@[@l@cA@ ZZ[0@[0@[@[@@[`@[@@[@[@[@[@[@[Ћ@lЋ@c>@ ZZ[@[@[@[@[$@["@[ @[@[@@[#@[@[@l@cA@ \Z]@]8@]ؓ@]@]'@]@@]P@]#@]@@]Б@])@]@m'@dL@ _T`0@` @`@`)@` @`@`@`@`@`@`@`ؘ@nؓ@ e _Z`@`Ж@`@`@`@`Б@`@@`@@`@`8@`+@`@n(@eT@ UZVp@Vp@V@V`@V`@V`@V@V @V@V@V@V@k@@b4@ WZX@X`@XЋ@X@X"@XP@XІ@X @X@X@X@X@o @b4@. lllllllllllllllllpllPH0 0(   >@A @  I Windspeed  Windspeed0.,#*18?FMT[bipwAF:\Gateway My Documents\My Webs\HomesOnVideo\XLFile\Windspeed.txt7 ThisWorkbook Sheet1 Module1 __SRP_2D9 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEGHIJKLMNOPQRSTUWXYZ[\]^`abcdefghijklmnopqrstuvwxyz{|}~/#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}H(%0(8;DxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2/#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}H(%0(8;DxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2 FH D <  B  h Bp D @ \@ ^  P 2X  D < :  ` >h L  F HH H < J Dh  : > 8 X F` B B 8 :@  ȶ    "  B  ( &R ( B 0 (8 &R`  B  N   . P h    2  J p N         !"#$%&'()*+,-./0123456789:;<=>?@ABDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~$kkIZxMEP> LL<<*h ``@Ik@ 2I  $`8<k :I& unri (` 0k ++BI*  I, @ailaI. heet`0d; `\ yea`2 Tone, 6 `3+ mI2 `8d :`U+` I8 `2`d <`G+ I8 `>0Hd @`7+P I8 `Bd D`=+ I8 `Fd H`P9k@ I8 `Bdther`J\A mo`L9Tl`N`Lvent`PDitud`R<isph V `pF4k0 I8 A C`>d on `R\nomi`XTB b Z@ `64k  I8 t re`Bdby N`R\ acc`\T1 mi ^ `H5,k "I8 hose`\d`F\ion ``Tted d `Dk( 9I8 nal `Xd`fE\ion `h`Tcula j  `B+ PI8 `ld`n\unse p``Ak` eI8 `ndPell`f\ia, `FTl: p r `?k !!|I8 `Fd`h\"//`tTe to`vL `xD$ |` `Jk I8 */`FdcJD`h\ctio`~ Tose:`0 Lenda *`Lk &&I8 `d 31`>\:`FT day`BLe da` D:`<retu`L4y. `,ld b`@M$ded `N ****`****  `X\k  I\ ( *I d`d'0`H \`` T`L* $`Sk  I   'I  the`d whe`( \ `@ T`L `Xbk 11I2  ****I ****I cTim`8 d* `\`Tvert`Lries`D * `(<"* `4y to`,rn v ` ( I8 H****I ****```'6`8 `'`ek 00I2 (I HI `8d`\ `HT`Lunri`(fD`h< `4`, ``kh 33lI Ih I* I, I. I$ (I( `d`\ `2T`L`D `fk 22I  I @I* `I,  I. I$  I(  `d`\`2`Tf lo`8L, so`Dro20`g<calc`4 NOA`X,inQ `+`ck 33I rb.nI  zel.I* @funcI, `fromI. I$  yeaI( time`dolar`\ mon`2@Tlsti`Lunse`Dnth,  `Nkx 8 I condIx X I*N yearI, secoI. I$ 8or iI( X sunIl, xt, sI0 ioniI4 osit`xd deg`\misp`Tegat`Ls fo`D`<time`4ern `,`2$ctio`8x use```F N`x of p` the``alcu`HSunr` Pos`lato`tion`Algo` an M`uded`hion `unri`s we`P`e to` for`/- 7`|ude,`ttes `litud`Xd3 T h!`-k ! I 0withI P oI* pI,0  notI.x. r orI$ catiI( and Il, cticI0 0unseI4 `dom N`\Exce`0T`Lr`hD`<an@v`P4`,vert`2p$rees`8! ```x vert`ians``X`****`****`****`p* `@* ``ian `y``xigit`nth:`H* `* `P,* `0|resp``t`lC* `d for "` " I ****I ****I*  I, ( I. H I h I  Il  I  I  I !I `````````2`8```x``````````````````````d`@$\`X$T`L %`Vk % 9.x.` %%IW @%HI `%I@% `d`%\`%T`L  `Zk & 33WI2 @&I `&`I & I`& `8 &d`\`&T`L`D`&<`'4`, (`(Rk' 22I2 'I 'I ( I' `8'd`\`(T`L`D` (<`(4`, (`(Yk ) 448I @)I ) `)@I* ) I,@) )I. )I$ ) I( *I), `*d`\`2)T``)L`DI + W  `h^k+ I  +I @+I +  8``Pk* 44I* +I* +I,+ ,I.  ,I$ @,I( `,I ,, ``,d`\`2+T`L`@,D@( *h `+ ` `' $`8(%   P(X8/../x.H/$@l @.T @/D @/4 (6^r|$T@0/$ @`/ @x/ .b @ @ @/ @/ @/ @ @0 @ @0`xX1(100@10@(l  00@1D @14 @1$  @p1 @2 @1 @1 @1 @2 @2 @02 @`2 @H2 @x2 @2| @2l @83\ @2X @T @2D @34 @ 3$ @P3 @3 @h3 @3 @&@3 '@3 @3 @ @ 45444@6l  44@4T @5D @054 @$ @ 586P6h65 66@^l  65ZD$b @D @4 @,  7(p77 7X787@Zl  H7 7@H @D @4 @8pP8x8@8X8@@l h8@8 @8T @8D @84 @8$ @9 @ 9 @89 @ @ @x@:X:9(::@Hl  :9@$T @:, @p: @: @: @: @: @; @; @0; @H; @x; @`;| @;l @;\ @;L @;< @<, @; @ < @ @ <(=X=p=<=<@$l =<@@=h @d @=T @=D @=4 @=$ @ @ >>>>>@Dl >>@>T @?D @ ?4 @8?$ h@P? @h? @? @ @ @ p X  ( 8@A@@@8@p@P@@rl `@8@pd$bT@@4 @@$ @0A @HA @ @A @ @ @ `BPBhBBB8BB@pl (BBj$b@BD @B4 @B$ @ @ @ CCCCC@jl CC @CL @D< @D, @0D @HD @`D @xD @D @D @D @D @ @ xH(EEXFEEE@dl EEV$TEL@@FD @F4 @(F$ @ @ @ Ph0G`GxGGHG(G@Vl 8GG<HGpGL@D @4 HhH0HHH@<l XH0H@HT @@HD @H4 @H$ @H @I @(I @ @ I@xJHJJI`JI@l  JI@0J\ @JL @J<  @J8 @4 @J$ @ @  KH XLKK@LKKK@|l KKpd$T @(L< @L, @ @L @ @pL @ @ h P 8 MM@MMXM@l hM@MpMp<D@$Tb@M @M @ @ xM$ 80@Xp(80PONONON@l NNN @NT @XOD @@O4 (6^r|$T@pO$ @O @O (Ob @ @ @O @P @P @ @HP @ ,,,+,,,,QhQ8QQQQ@l (QQ@PQ4 @Q$ @Q ( @Q @Q @Q @ @R @ '8(('RP(h(((S0SRSR@l RR6|:@`S @HS @ @xS @ X  0Tp (UTTT0ThTHT@l XT0T0$b @T< @XU, @U @T @T  @U @ @@U @ @pU @ @ @VVxV@VXV@:l hV@VH@VT @VD @V4 @$ @ %`% %%XWXPXWWW@l  HWW$b@8X< @ X, @X @Y @hX @X @X @ @X @ @X @ @ *)8*h* *)P*Y0ZZYHZY@l YY@Z4 @`Z$ @xZ (@Z @Z @Z @ @Z @ &H'@&&&'0'[[[[[[@l [[6|:@(\ @\ @ @@\ @ x (  ]H]`]]\0]]@l  ]\$b@x]< @ ^, @P^ @] @]  @] @ @^ @ @8^ @ @ p$@+_+$`X_p___@_ _@l 0__$b@_< @_, @H` @x` @_ @_ @` @ @0` @ @`` @ @ `H0a(xaha0aaHa@l Xa0a@a4 @a$ @a (@a @(b @b @ @@b @ @b XpHc`cb0cc@l  cb6|:@c @xc @ @c @ `  `ddd`ddxd@l d`d@d4 @d$ @e (@(e @Xe @@e @ @pe @ (xff(f`f@f@l Pf(f6|:@f @f @ @f @ @p@(ggghg@l gg@g @@h @(h (6:|@Xh @h @ph @ @h @ F##h$5-;D$*\Rffff*014c0006f2*\R1*#1af*\R1*#ce*\R1*#df*\R1*#285*\R0*#1520 D      S( ,WH zx   6  8   H  P `  h   x     B  N $   @@  (  6 N ` ",h   B  N &   @@  6  6 N  p  /x   B  N $ ( BH  6  < N8  4M "  8  @ H B P NX "  @ 0 6H  : N ( 4I0 h p  B x N ,  <  ` 6x  $ N @ 4IH   B  N "  >0 p 6   N  @` h x  |  P X B ` Nh   8 0 6H  * N  0@  P ` h B p Nx L  68 p 6  ( N P hx     B  N J P 8p  6  "! N8! ! !! DF! " " B " N " Np" " <"  # 68# p# .# N# $  $  ,0$2@P$ $ $ B $ N$ ,$  % >@% % 6% % $% N& `& Jcp&<0& ' '  B ' N' (h' ' B' ' 6( H( (`( N( ( (  ,)&6 ) H) P)  B X) N`) L) * : * `* 6x* * ** N* H+h+ p++ (G+"+ F+ D, X`, V, Z-  0- 8- B @- NH- $- - 6- . 60. h. &. N. . /(/ &G8/S`/ / / B / N/ $/ 0 J00 0 0 60 0 .1 N01 111 1112  22 82  2H2"h2 22 22 22 d2 ,p3 3  B @ NH "  D ( @@  0 8ȕ J P (h N   Ni dp  ؗ  B 3 N3 &3 4 H84 4 4 04 64 5 *05  ^ fx  N`5 5 55 Nf5 d@6  6 6 B 6 N6 $7 87 FX7 7 7 07 68 88 *P8  ^ fP  N8 8 89 Nf9 d`9  9 9 B  N "@ h D И @ ( 0@ 8p @  ( N( x  Ni d  p  B  N   H @h @   4 6X D ؝ & N h  6  &( @ Pp  > &B"(&@ Xh    B 9 N9 8: X: Jx: @: ;  ; 4@; 6x; ; &; N; @<`<x< < 6< <<< &= = (=H= `= >x= &B===>&> 0>@> X>  p> x> B  > N> > > H? B`? ? 6? 6? 0@ &H@ Np@ @ 2@ A(A8A XA `A B hA NpA A A JB @PB B B 4B 6C 8C &PC NxC CCD D BD `DpDD &D DD HD &B EHEXEhE &E EE E  E E B  N   H@ @ @ȡ   4@ 6x 6  & N( x  Bȣ  0 &H `p H &BФ" &0 HX p   B   N  4 >H  H F .8 h . 0 L D0 Lx NȨ B .`    @ة B @`  ( N 0H \X   ȫ & Ы *#  ( 4@ /x P $: & 8 H B E  NE HF 4`F @F F HF F@G .G G .G 0H L0H DH LH NI BhI .I I I J @(J BhJ J ,J NJ HK`K \pK K  K & K *#L  @L 4XL ,L PL $:L & M HM XM B `M NhM M 4M HN BXN N N N N 6N L O DpO LO NP BXP .P P 0P NQ hQQQ  \QR R& R*#HR xRR 2TR RRR  PS$6hS &SS S B S  NS (T 4@T JxT T HT F0U .xU U .U 0U L V DpV LV NW BXW .W W W X @X BXX X *X NX 8YPY \`Y Y  Y & Y *#Z  0Z 2HZ ,Z PZ $:Z &[ 8[ H[ B P  NX  4 J H Hh F . ( .@ 0p L D L8 N Bذ . P h  @ Bر @ ` (x N  \ x   &  *#   2 /8 PX $: &д   BP[ N`[ [ [ J[ R@\ \ \ F\ (] (] .@] p] Fx] J] ^ 0^ N8^ ^^^^^__0_P_`_x_ \_ _  ` & ` *#0` @`` ` ` `  `  ` B` &0a  Xa -pa a a a a  a a a  ,$b 2(0b hb   b b b  b :b (c  0c f@c  cc cc c  Sd  (G d  HdNn`dd ddddee (ce 8e Pe`e hepeeeee e ee e  e 4f 2Hf 0f f :f 4g@g <g h i >8i xi Ji i j ( j Hj`j pj"xjjhFjk$(kPk pkkkkkk k "k   l  ,0l `l 4hl ,l 6l m " m Hm Hhm *m ,m $n 8n Pn BXn Nhn n n Jn RHo o o Fo (p 0p .Hp xp Fp Hp q 0q N8q qqqqqrr0rPr`rxr \r r  s & s *#0s @`s s s s  s  s Bs &0t  Xt -pt t t t t  t t t  ,$u 2(0u hu   u u u  u :u (v  0v f@v  vv vv v  Sw  (G w  HwNn`ww wwwwxx (cx 8x Px`x hxpxxxxx x xx x  x 4y 2Hy 0y y :y 4z@z <z { | >8| x| J| | } ( } H}`} p}"x}}hF}~$(~P~ p~~~~~~ ~ "~     ,0 *` , 6  "( P Hp * , $ @ X " ` Np   J RP   FȂ ( 8 .P  F HЃ  8 N@ Є 8Xh \   & *8 @h   Ȇ   B &8  ` x    ȇ  ؇    , 28 p     :Ј (  8 fH  ȉ ؉     ((  PNhЊ ( @ Xh px  ȋ    4 2P 0  :Ќ 4H <  >@  J   (( Ph xh$0X xؑ  "  (  ,8hp , 6  " 0 HP * ,ȓ $  8 (> Calculation of local times of sunrise, solar noon, and sunsetro20@ based on the calculation procedure by NOAA in the javascript inQ= http://www.srrb.noaa.gov/highlights/sunrise/sunrise.html andXQ6 http://www.srrb.noaa.gov/highlights/sunrise/azel.html< Five functions are available for use from Excel worksheets:; - sunrise(lat, lon, year, month, day, timezone, dlstime)= - solarnoon(lat, lon, year, month, day, timezone, dlstime): - sunset(lat, lon, year, month, day, timezone, dlstime)V - solarazimuth(lat, lon, year, month, day, hour, minute, second, timezone, dlstime)X - solarelevation(lat, lon, year, month, day, hour, minute, second, timezone, dlstime)J The sign convention for inputs to the functions named sunrise, solarnoon,, sunset, solarazimuth, and solarelevationis:> - positive latitude decimal degrees for northern hemisphere6 - negative longitude degrees for western hemisphere4 - negative time zone hours for western hemisphere7 The other functions in the VBA module use the originalF NOAA sign convention of positive longitude in the western hemisphere.? The calculations in the NOAA Sunrise/Sunset and Solar PositionA Calculators are based on equations from Astronomical Algorithms,B by Jean Meeus. NOAA also included atmospheric refraction effects.5 The sunrise and sunset results were reported by NOAAD to be accurate to within +/- 1 minute for locations between +/- 72= latitude, and within ten minutes outside of those latitudes.3 This translation was tested for selected locations8 and found to provide results within +/- 1 minute of the original Javascript code.? This translation does not include calculation of prior or next; susets for locations above the Arctic Circle and below the; Antarctic Circle, when a sunrise or sunset does not occur.3 Translated from NOAA's Javascript to Excel VBA by: email: gpel461@ ecy.wa.gov P.O.Box 47600an@v"// Convert radian angle to degreesf@  ! %"'i`"// Convert degree angle to radians ! %" &f@'$iXH***********************************************************************/* Name: calcJD* Type: Function'* Purpose: Julian day from calendar day * Arguments:* year : 4 digit year* month: January = 1* day : 1 - 31* Return value:,* The Julian day corresponding to the date* Note:C* Number is returned for start of day. Fractional days should be* added later.H***********************************************************************/]`x , * '* , ',k *d ! %4'0 0 0 ! %4 ' v@ *l  ! %4aTR'>@ ,  ! %4 .  җ@ '2 2'(0gp put the year and month back where they belong , ', * '*k ,', * '*kPiHH***********************************************************************/* Name: calcTimeJulianCent* Type: Function9* Purpose: convert Julian Day to centuries since J2000.0. * Arguments:"* jd : the Julian Day to convert* Return value:/* the T value corresponding to the Julian DayH***********************************************************************/] 2,BA @'8 8'6iH H***********************************************************************/* Name: calcJDFromJulianCent* Type: Function9* Purpose: convert centuries since J2000.0 to Julian Day. * Arguments:0* t : number of Julian centuries since J2000.0* Return value:/* the Julian Day corresponding to the t valueH***********************************************************************/] 8@,BA '2 2':i@H***********************************************************************/* Name: calGeomMeanLongSun* Type: Function<* Purpose: calculate the Geometric Mean Longitude of the Sun * Arguments:0* t : number of Julian centuries since J2000.0* Return value:6* the Geometric Mean Longitude of the Sun in degreesH***********************************************************************/]Fžvq@ 8/r@3? 8  '>_ >h >Gxj >h G >h '>j > G >h '>j >'<i H***********************************************************************/* Name: calGeomAnomalySun* Type: Function:* Purpose: calculate the Geometric Mean Anomaly of the Sun * Arguments:0* t : number of Julian centuries since J2000.0* Return value:4* the Geometric Mean Anomaly of the Sun in degreesH***********************************************************************/]p 8  'F F'DiXH***********************************************************************/* Name: calcSunEqOfCenter* Type: Function7* Purpose: calculate the equation of center for the sun * Arguments:0* t : number of Julian centuries since J2000.0* Return value:* in degreesH***********************************************************************/]`x] 8$@'B B$$'J J$T'L J J $T'N J J J $T'P L5? 8os?_>Y1\> 8   N y?y? 8  P,am2? 'R R'HiH***********************************************************************/* Name: calcSunTrueLong* Type: Function2* Purpose: calculate the true longitude of the sun * Arguments:0* t : number of Julian centuries since J2000.0* Return value:#* sun's true longitude in degreesH***********************************************************************/]Ph 8$<'> 8$H'R > R 'X X'VixH***********************************************************************/F* Name: calcSunTrueAnomaly (not used by sunrise, solarnoon, sunset)* Type: Function0* Purpose: calculate the true anamoly of the sun * Arguments:0* t : number of Julian centuries since J2000.0* Return value:!* sun's true anamoly in degreesH***********************************************************************/]( 8$@'B 8$H'R B R '\ \'Zi@@H***********************************************************************/D* Name: calcSunRadVector (not used by sunrise, solarnoon, sunset)* Type: Function2* Purpose: calculate the distance to the sun in AU * Arguments:0* t : number of Julian centuries since J2000.0* Return value:* sun radius vector in AUsH***********************************************************************/] 8$Z'\ 8$D'FemD? F F  F \$$$b '` `'^iH***********************************************************************/G* Name: calcSunApparentLong (not used by sunrise, solarnoon, sunset)* Type: Function6* Purpose: calculate the apparent longitude of the sun * Arguments:0* t : number of Julian centuries since J2000.0* Return value:'* sun's apparent longitude in degreesH***********************************************************************/]H`x 8$V'X(\B_@C8@ 8 'f XeNw? Nz1s? f$$$T 'h h'diPH***********************************************************************/&* Name: calcMeanObliquityOfEcliptic* Type: Function7* Purpose: calculate the mean obliquity of the ecliptic * Arguments:0* t : number of Julian centuries since J2000.0* Return value:* mean obliquity in degreesH***********************************************************************/] r5@ 8QhG@ 81ZGUC? 8JE]?   'l7@:@ lN@ N@ 'n n'ji H***********************************************************************/"* Name: calcObliquityCorrection* Type: Function<* Purpose: calculate the corrected obliquity of the ecliptic * Arguments:0* t : number of Julian centuries since J2000.0* Return value:"* corrected obliquity in degreesH***********************************************************************/] 8$j'n(\B_@C8@ 8 'f nh㈵d? f$$$b 'F F'piH***********************************************************************/F* Name: calcSunRtAscension (not used by sunrise, solarnoon, sunset)* Type: Function3* Purpose: calculate the right ascension of the sun * Arguments:0* t : number of Julian centuries since J2000.0* Return value:$* sun's right ascension in degreesH***********************************************************************/]( @ X p ] 8$p'F 8$d'h F$$$b h$$$T't h$$$b'v?original NOAA code using javascript Math.Atan2(y,x) convention:= var alpha = radToDeg(Math.atan2(tananum, tanadenom));Q alpha = radToDeg(Application.WorksheetFunction.Atan2(tananum, tanadenom))Otranslated using Excel VBA Application.WorksheetFunction.Atan2(x,y) convention: v t ! %z$'x x'ri H***********************************************************************/* Name: calcSunDeclination* Type: Function/* Purpose: calculate the declination of the sun * Arguments:0* t : number of Julian centuries since J2000.0* Return value: * sun's declination in degreesH***********************************************************************/]  0 H 8$p'F 8$d'h F$$$T h$$$T'~ ~ ! %$' '|iX` H***********************************************************************/* Name: calcEquationOfTime* Type: FunctionD* Purpose: calculate the difference between true solar time and mean* solar time * Arguments:0* t : number of Julian centuries since J2000.0* Return value:'* equation of time in minutes of timeH***********************************************************************/]    ] 8 P ]h    8$p' 8$<'> 8$D'F 8$@'B $$@$' '@ >$$$T' B$$$T'L@ >$$$b'@ >$$$T'@ B$$$T'N  @ F L @ F  L  ?    ? F F N ' $@'iP  H***********************************************************************/* Name: calcHourAngleSunrise* Type: FunctionA* Purpose: calculate the hour angle of the sun at sunrise for the* latitude * Arguments:)* lat : latitude of observer in degrees0* solarDec : declination angle of sun in degrees* Return value:$* hour angle of sunrise in radiansH***********************************************************************/]H ` x  $$' $$'Zd;OV@$$$b $b $b $ $ 'Zd;OV@$$$b $b $b $ $ ! %' 'i0  H***********************************************************************/* Name: calcHourAngleSunset* Type: Function@* Purpose: calculate the hour angle of the sun at sunset for the* latitude * Arguments:)* lat : latitude of observer in degrees0* solarDec : declination angle of sun in degrees* Return value:#* hour angle of sunset in radiansH***********************************************************************/]( @ X p $$' $$'Zd;OV@$$$b $b $b $ $ 'Zd;OV@$$$b $b $b $ $ ! %' 'i H***********************************************************************/* Name: calcSunriseUTC* Type: FunctionD* Purpose: calculate the Universal Coordinated Time (UTC) of sunrise:* for the given day at the given location on earth * Arguments:* JD : julian day.* latitude : latitude of observer in degrees0* longitude : longitude of observer in degrees* Return value:* time in minutes from zero ZH***********************************************************************/](@Xp]] 2$6'80 // *** First pass to approximate sunrise 8$' 8$|'  $'  $ ' ' in minutes of time   ' in minutes7 *** Second pass includes fractional jday in gamma calc 8$: @ $6' $' $|'  $'  $ ' '   ' in minutes 'ihH***********************************************************************/* Name: calcSolNoonUTC* Type: FunctionB* Purpose: calculate the Universal Coordinated Time (UTC) of solar;* noon for the given day at the given location on earth * Arguments:0* t : number of Julian centuries since J2000.00* longitude : longitude of observer in degrees* Return value:* time in minutes from zero ZH***********************************************************************/]h 8$:? v@ $6' $' $|'   ' 'i>H***********************************************************************/* Name: calcSunsetUTC* Type: FunctionC* Purpose: calculate the Universal Coordinated Time (UTC) of sunset:* for the given day at the given location on earth * Arguments:* JD : julian day.* latitude : latitude of observer in degrees0* longitude : longitude of observer in degrees* Return value:* time in minutes from zero ZH***********************************************************************/]h]] 2$6'8< // First calculates sunrise and approx length of day 8$' 8$|'  $'  $ ' '   'B // first pass used to include fractional day in gamma calc 8$: @ $6' $' $|'  $'  $ ' '   ' // in minutes 'i9(H***********************************************************************/* Name: sunrise.* Type: Main Function called by spreadsheet:* Purpose: calculate time of sunrise for the entered date* and location.A* For latitudes greater than 72 degrees N and S, calculations are@* accurate to within 10 minutes. For latitudes less than +/- 72'* accuracy is approximately one minute. * Arguments:( latitude = latitude (decimal degrees)* longitude = longitude (decimal degrees)F NOTE: longitude is negative for western hemisphere for input cells= in the spreadsheet for calls to the functions namedE sunrise, solarnoon, and sunset. Those functions convert theG longitude to positive for the western hemisphere for calls to< other functions using the original sign convention( from the NOAA javascript code. year = year month = month day = day9 timezone = time zone hours relative to GMT/UTC (hours)< dlstime = daylight savings time (0 = no, 1 = yes) (hours)* Return value:%* sunrise time in local time (days)H***********************************************************************/]H`x]U change sign convention for longitude from negative to positive in western hemisphere ' ' 33333sV@ G33333sV@'j 33333sV@ G33333sV@'j * , .$('2. // Calculate sunrise for this date 2  $'I // adjust for time zone and daylight savings time in minutes <  < ' // convert to days 'i2H***********************************************************************/* Name: solarnoon.* Type: Main Function called by spreadsheetB* Purpose: calculate the Universal Coordinated Time (UTC) of solar;* noon for the given day at the given location on earth * Arguments: year month day0* longitude : longitude of observer in degreesF NOTE: longitude is negative for western hemisphere for input cells= in the spreadsheet for calls to the functions namedE sunrise, solarnoon, and sunset. Those functions convert theG longitude to positive for the western hemisphere for calls to< other functions using the original sign convention( from the NOAA javascript code.* Return value:)* time of solar noon in local time daysH***********************************************************************/]](@X]pU change sign convention for longitude from negative to positive in western hemisphere ' ' 33333sV@ G33333sV@'j 33333sV@ G33333sV@'j * , .$('2 2$6'8 8$:? v@ $6' $' $|'   'I // adjust for time zone and daylight savings time in minutes <  < ' // convert to days 'i,H***********************************************************************/* Name: sunset.* Type: Main Function called by spreadsheetD* Purpose: calculate time of sunrise and sunset for the entered date* and location.A* For latitudes greater than 72 degrees N and S, calculations are@* accurate to within 10 minutes. For latitudes less than +/- 72'* accuracy is approximately one minute. * Arguments:( latitude = latitude (decimal degrees)* longitude = longitude (decimal degrees)F NOTE: longitude is negative for western hemisphere for input cells= in the spreadsheet for calls to the functions namedE sunrise, solarnoon, and sunset. Those functions convert theG longitude to positive for the western hemisphere for calls to< other functions using the original sign convention( from the NOAA javascript code. year = year month = month day = day9 timezone = time zone hours relative to GMT/UTC (hours)< dlstime = daylight savings time (0 = no, 1 = yes) (hours)* Return value:$* sunset time in local time (days)H***********************************************************************/]] U change sign convention for longitude from negative to positive in western hemisphere ' ' 33333sV@ G33333sV@'j 33333sV@ G33333sV@'j * , .$('2, // Calculate sunset for this date 2  $'I // adjust for time zone and daylight savings time in minutes <  < ' // convert to days 'i$ 8H***********************************************************************/* Name: solarazimuth* Type: Main FunctionC* Purpose: calculate solar azimuth (deg from north) for the enteredK* date, time and location. Returns -999999 if darker than twilight* * Arguments:@* latitude, longitude, year, month, day, hour, minute, second,!* timezone, daylightsavingstime* Return value:'* solar azimuth in degrees from north*?* Note: solarelevation and solarazimuth functions are identicalD* and could be converted to a VBA subroutine that would return* both values.*H***********************************************************************/]]]0H`]x]] 8P]h]](]@Xp]U change sign convention for longitude from negative to positive in western hemisphere ' ' 33333sV@ G33333sV@'j 33333sV@ G33333sV@'j9change time zone to ppositive hours in western hemisphere ' <'  < ' ' l';// timenow is GMT time for calculation in hours since 0Z  <   ' * , .$('2 2 8@ $6'8 8$^'` 8$r'x 8$|' 8$' ' '// in degrees `' @  N@  ' N@  N@  ' // in minutes  b  '@ @f@ ' 4// Thanks to Louis Schwarzmayr for the next line:  G v@ 'j $$'  $$$T $$$T $$$b $$$b $b ' ? ?' ? e?'k  ! %$' $$$b $$$T' MbP?   $$$T $$$b $$$T  ' ?   ?'d?'kkf@  ! %$ '   'kdx  f@'dH'k0k(   v@ 'kV@  '-beginning of complex expression commented out+ If (exoatmElevation > 85#) Then) refractionCorrection = 0# Else3 te = Tan(degToRad(exoatmElevation)). If (exoatmElevation > 5#) Then refractionCorrection = 58.1 / te - 0.07 / (te * te * te) +' 0.000086 / (te * te * te * te * te)6 ElseIf (exoatmElevation > -0.575) Then K refractionCorrection = 1735# + exoatmElevation *' (-518.2 + exoatmElevation * (103.4 +' exoatmElevation * (-12.79 +' exoatmElevation * 0.711))) Else7 refractionCorrection = -20.774 / te End IfC refractionCorrection = refractionCorrection / 3600# End Ifend of complex expression"beginning of simplified expression @U@ 'dp $$$' @  M@ Q?    6w\?      ' ffffff? eGz)@ n? 'Y@   '1@   '@   'd0/$4@ 'k  @'kend of simplified expression   '% If (solarZen < 108#) Then '- solarelevation = 90# - solarZen& If (solarZen < 90#) Then0 coszen = Cos(degToRad(solarZen)) Else coszen = 0# End IfB Else '// do not report az & el after astro twilight$ solarazimuth = -999999& solarelevation = -999999 coszen = -999999 End Ifi H***********************************************************************/* Name: solarazimuth* Type: Main FunctionC* Purpose: calculate solar azimuth (deg from north) for the enteredK* date, time and location. Returns -999999 if darker than twilight* * Arguments:@* latitude, longitude, year, month, day, hour, minute, second,!* timezone, daylightsavingstime* Return value:'* solar azimuth in degrees from north*?* Note: solarelevation and solarazimuth functions are identicalA* and could converted to a VBA subroutine that would return* both values.*H***********************************************************************/]Ph]]](@]Xp]]0]H`x]]] 8PU change sign convention for longitude from negative to positive in western hemisphere ' ' 33333sV@ G33333sV@'j 33333sV@ G33333sV@'j9change time zone to ppositive hours in western hemisphere ' <'  < ' ' l';// timenow is GMT time for calculation in hours since 0Z  <   ' * , .$('2 2 8@ $6'8 8$^'` 8$r'x 8$|' 8$' ' '// in degrees `' @  N@  ' N@  N@  ' // in minutes  b  '@ @f@ ' 4// Thanks to Louis Schwarzmayr for the next line:  G v@ 'j $$'  $$$T $$$T $$$b $$$b $b ' ? ?' ? e?'k  ! %$' $$$b $$$T' MbP?   $$$T $$$b $$$T  ' ?   ?'d?'kkf@  ! %$ '   'kdx  f@'dH'k0k(   v@ 'kV@  '-beginning of complex expression commented out+ If (exoatmElevation > 85#) Then) refractionCorrection = 0# Else3 te = Tan(degToRad(exoatmElevation)). If (exoatmElevation > 5#) Then refractionCorrection = 58.1 / te - 0.07 / (te * te * te) +' 0.000086 / (te * te * te * te * te)6 ElseIf (exoatmElevation > -0.575) Then K refractionCorrection = 1735# + exoatmElevation *' (-518.2 + exoatmElevation * (103.4 +' exoatmElevation * (-12.79 +' exoatmElevation * 0.711))) Else7 refractionCorrection = -20.774 / te End IfC refractionCorrection = refractionCorrection / 3600# End Ifend of complex expression"beginning of simplified expression @U@ 'dp $$$' @  M@ Q?    6w\?      ' ffffff? eGz)@ n? 'Y@   '1@   '@   'd0/$4@ 'k  @'kend of simplified expression   '% If (solarZen < 108#) Then$ solarazimuth = azimuthV@  '& If (solarZen < 90#) Then0 coszen = Cos(degToRad(solarZen)) Else coszen = 0# End IfB Else '// do not report az & el after astro twilight$ solarazimuth = -999999& solarelevation = -999999 coszen = -999999 End Ifi~ hH***********************************************************************/* Name: solarazimuth* Type: Main FunctionC* Purpose: calculate solar azimuth (deg from north) for the enteredK* date, time and location. Returns -999999 if darker than twilight* * Arguments:@* latitude, longitude, year, month, day, hour, minute, second,!* timezone, daylightsavingstime* Return value:'* solar azimuth in degrees from north*?* Note: solarelevation and solarazimuth functions are identicalA* and could converted to a VBA subroutine that would return* both values.*H***********************************************************************/](!@!]X!p!]!!!!]!""]0"H"`"x"]"""]""#] #8#P#h#]##]###]#$($U change sign convention for longitude from negative to positive in western hemisphere ' ' 33333sV@ G33333sV@'j 33333sV@ G33333sV@'j9change time zone to ppositive hours in western hemisphere ' <'  < ' ' l';// timenow is GMT time for calculation in hours since 0Z  <   ' * , .$('2 2 8@ $6'8 8$^'` 8$r'x 8$|' 8$' ' '// in degrees `' @  N@  ' N@  N@  ' // in minutes  b  '8w @f@ ' 4// Thanks to Louis Schwarzmayr for the next line:  G v@ 'j $$'  $$$T $$$T $$$b $$$b $b ' ? ?' ? e?'ku  ! %$' $$$b $$$T' MbP?   $$$T $$$b $$$T  ' ?   ?'dt?'ktktf@  ! %$ '   'kxtdpt  f@'d@t'k(tk t   v@ 'ksV@  '-beginning of complex expression commented out+ If (exoatmElevation > 85#) Then) refractionCorrection = 0# Else3 te = Tan(degToRad(exoatmElevation)). If (exoatmElevation > 5#) Then refractionCorrection = 58.1 / te - 0.07 / (te * te * te) +' 0.000086 / (te * te * te * te * te)6 ElseIf (exoatmElevation > -0.575) Then K refractionCorrection = 1735# + exoatmElevation *' (-518.2 + exoatmElevation * (103.4 +' exoatmElevation * (-12.79 +' exoatmElevation * 0.711))) Else7 refractionCorrection = -20.774 / te End IfC refractionCorrection = refractionCorrection / 3600# End Ifend of complex expression"beginning of simplified expression @U@ 'dho $$$' @  M@ Q?    6w\?      ' ffffff? eGz)@ n? 'Y@   '1@   '@   'd(n/$4@ 'kn  @'kmend of simplified expression   '% If (solarZen < 108#) Then 'V@  '& If (solarZen < 90#) Then0 coszen = Cos(degToRad(solarZen)) Else coszen = 0# End IfB Else '// do not report az & el after astro twilight$ solarazimuth = -999999& solarelevation = -999999 coszen = -999999 End Ifok*H***********************************************************************/* Name: calcHourAngleDawn* Type: Function>* Purpose: calculate the hour angle of the sun at dawn for the* latitude:* for user selected solar depression below horizon * Arguments:)* lat : latitude of observer in degrees2* solarDec : declination angle of sun in degreesC* solardepression: angle of the sun below the horizion in degrees* Return value:!* hour angle of dawn in radiansH***********************************************************************/]@$X$p$$ $$' $$'Z  $$$b $b $b $ $ 'Z  $$$b $b $b $ $ ! %' 'ih$H***********************************************************************/* Name: calcHourAngleDusk* Type: Function>* Purpose: calculate the hour angle of the sun at dusk for the* latitude:* for user selected solar depression below horizon * Arguments:)* lat : latitude of observer in degrees2* solarDec : declination angle of sun in degrees:* solardepression: angle of sun below horizon in degrees* Return value:!* hour angle of dusk in radiansH***********************************************************************/]%%%% $$' $$'Z  $$$b $b $b $ $ 'Z  $$$b $b $b $ $ ! %' 'i`d%H***********************************************************************/* Name: calcDawnUTC* Type: FunctionA* Purpose: calculate the Universal Coordinated Time (UTC) of dawn:* for the given day at the given location on earth:* for user selected solar depression below horizon * Arguments:* JD : julian day.* latitude : latitude of observer in degrees0* longitude : longitude of observer in degrees>* solardepression: angle of sun below the horizon in degrees* Return value:* time in minutes from zero ZH***********************************************************************/]&&&&]''0']H' 2$6'80 // *** First pass to approximate sunrise 8$' 8$|'  $'  $ ' ' in minutes of time   ' in minutes7 *** Second pass includes fractional jday in gamma calc 8$: @ $6' $' $|'   $'  $ ' '   ' in minutes 'i@_`'H***********************************************************************/* Name: calcDuskUTC* Type: FunctionA* Purpose: calculate the Universal Coordinated Time (UTC) of dusk:* for the given day at the given location on earth:* for user selected solar depression below horizon * Arguments:* JD : julian day.* latitude : latitude of observer in degrees0* longitude : longitude of observer in degrees/* solardepression: angle of sun below horizon* Return value:* time in minutes from zero ZH***********************************************************************/] (8(P(h(](((]( 2$6'8< // First calculates sunrise and approx length of day 8$' 8$|'  $'  $ ' '   'B // first pass used to include fractional day in gamma calc 8$: @ $6' $' $|'   $'  $ ' '   ' // in minutes 'iHZ(H***********************************************************************/* Name: dawn.* Type: Main Function called by spreadsheet7* Purpose: calculate time of dawn for the entered date* and location.A* For latitudes greater than 72 degrees N and S, calculations are@* accurate to within 10 minutes. For latitudes less than +/- 72'* accuracy is approximately one minute. * Arguments:( latitude = latitude (decimal degrees)* longitude = longitude (decimal degrees)F NOTE: longitude is negative for western hemisphere for input cells= in the spreadsheet for calls to the functions namedE sunrise, solarnoon, and sunset. Those functions convert theG longitude to positive for the western hemisphere for calls to< other functions using the original sign convention( from the NOAA javascript code. year = year month = month day = day9 timezone = time zone hours relative to GMT/UTC (hours)< dlstime = daylight savings time (0 = no, 1 = yes) (hours): solardepression = angle of sun below horizon in degrees* Return value:"* dawn time in local time (days)H***********************************************************************/] *8*P*]h**U change sign convention for longitude from negative to positive in western hemisphere ' ' 33333sV@ G33333sV@'j 33333sV@ G33333sV@'j * , .$('2. // Calculate sunrise for this date 2   $'I // adjust for time zone and daylight savings time in minutes <  < ' // convert to days 'iR`+H***********************************************************************/* Name: dusk.* Type: Main Function called by spreadsheetD* Purpose: calculate time of sunrise and sunset for the entered date* and location.A* For latitudes greater than 72 degrees N and S, calculations are@* accurate to within 10 minutes. For latitudes less than +/- 72'* accuracy is approximately one minute. * Arguments:( latitude = latitude (decimal degrees)* longitude = longitude (decimal degrees)F NOTE: longitude is negative for western hemisphere for input cells= in the spreadsheet for calls to the functions namedE sunrise, solarnoon, and sunset. Those functions convert theG longitude to positive for the western hemisphere for calls to< other functions using the original sign convention( from the NOAA javascript code. year = year month = month day = day9 timezone = time zone hours relative to GMT/UTC (hours)< dlstime = daylight savings time (0 = no, 1 = yes) (hours): solardepression = angle of sun below horizon in degrees* Return value:"* dusk time in local time (days)H***********************************************************************/],,,],,U change sign convention for longitude from negative to positive in western hemisphere ' ' 33333sV@ G33333sV@'j 33333sV@ G33333sV@'j * , .$('2, // Calculate sunset for this date 2   $'I // adjust for time zone and daylight savings time in minutes <  < ' // convert to days 'iJ*W* Note: For sunrise and sunset calculations, we assume 0.833 of atmospheric refraction_* For details about refraction see http://www.srrb.noaa.gov/highlights/sunrise/calcdetails.html**W* Note: For sunrise and sunset calculations, we assume 0.833 of atmospheric refraction_* For details about refraction see http://www.srrb.noaa.gov/highlights/sunrise/calcdetails.html* I Greg Pelletier Olympia, WA 98504-7600 Department of EcologyضH Olympia, WA 98504-7600tier Department of EcologyxHail: gpel461@ ecy.wa.govXHAttribute VB_Name = "Module1" ' Calculation of local times8sunrise, solar noon, and 0setbased azthe xprocedure by NOAA in $javascriptBhttp://www.srrb.noaa.gov/highlts/.ht ml-?azelFive funcs aWOilabl or usrom Excel worksheets: -5(,year, month, day,zondls>)?un9>azimut"hhouA4in@econd^50elevme LLT@sign ven®fjinputs tounȲCDAĸe0i |posittude decimalgre#@$norrn hemisphere|negElongiDGweste  Afs  ;AA&oah]qVBAT!b] original!"w- '  . a Hs%b Sc./YS!0 Pb-on!ŕorcuqequL uAstronomi! Alg thms,aJean Meeus.!Calsocl@9d atmo5ic refra effects AdBHhsul`Pw@=p@Sbe accurawith '+/- 1 mkb9Abetween A72N#UDt` aiR 5xtho`%AThi`eransAYwaNdsy@_ctf\ou@@@v r~eP^`0J JcodeC dohno31 pri~@nezxbs/!a'aLbolZAr8c` Circ!b0elowAAnta), wh *a < <&o97)`&fPZ'sO`&ȁnbyEGreg Pell etieraDe`partmE@cologyP.O.Box 47600Olympia, WA 98504-%email: gpel461@ ecy.wu OpSExplXiciAFp radToDeg(angleRadW// Converti@4!WdeK1 %0(180# *2 / ApqB;.WUu.Pi() E&U VTo # , # 3!  s   ~E  G/ & OJD(݁*/ :1 #2pType2RPur\Jul!Њ +endpArgu1)p*q : 4 dct  :/nuary`1 1P33Retunval= Then Exit`>a = -AQP< 0 + Loop'0(W)^l0^cAnomaly^_3+s^ S_^cV^D ^ Ŭ^Bn]ߟ(.(S#m)^ am ?357. 52911^5999.05029^1537^HA mN+AMEcgIityEarthOrbitU%~cq_&SwUe %e1 's o/U&n||&{puunitless IPc$eSe 0"16708634#Sb#0420 #+ 00126$lo 7#x:$'EqOfAer##~cI!ǚ#q+`RtAss**X`/-"-right a _??,,;֭VO,IVy,нasI!deGӲaxlph#E'n"N% |(q2%y~G7* = (/ToRad(e)) * Sin(deglambda))) tanadenom = (Cos 'original NOAA code using javascript Math.A@2(y,x)%nvention:Aqvar alphaqradToDeg(:a:anum, 1));?;Ap plicag.WorksheetpFuncG*  *translatedgExcel VBA +x,yss6Sy~ՇcalcSunRtAsce\ K\c\iffe0Tbetween true sol t` a{meac_!4g aaae)oaminutjq@*?**+bpsilon)_ll0fm'y;IJ2 Nco*s42, ~E3xq$l~r0wGeomM= Q Q4/s C= y [A0-em + Tm $#_- 0.5A - 1.2q12 1DFT q4#7< P1HourAngleDawn(v,EVdepres_;RcKR Oh P bI`sun at d forQbituLdeJusЂs A fm zero Z /=7 Dim t As Double, $u(rhnc h(A•l :cB[E<4J&DY//Firstto approximate Gt9t e ے)vcʿleHF,= aA0= ҁ1ʿB<{ʿʅS}p?_^4i3Y 1dd@olNoon "(tdEMP'HFd**ccSfa c c=cccan cc cctbnumbLeras- cfuriPsince J2000.0!bepb Ҡbb(ZOcR$ept%_BC0.5Bg/ 36R^C_ #K_\ UU(* 4)f :?/:::unset:J;;c-ߏ;;𔏟C3C";;;ƞ9aC=<<<<O( " *I!h68ъrpǑ, eLST9che-"&wB"f7+ *  longit@ude = X @* -1 atat lIf (l>> 89.8) Then *=*l< -7' 8 JDcalcJD(year, month, day)  ' // C+ue sunrise for thiste.TimeGMT3DawnUTC(JD,o, solardepressionA @ H ad0justC5 zone andalight savings tin minutdesULSU\+p (60.)" dls* 60J convert toA"LdAD/ 1(440\E/Funct@ E]AM, Mm,9)q)QN*?A/ Name:GAgDTypMa@Z-led by svadshee'* Purpos ACVofFe enterdaAAzlocaAK. F@s g re an 72 de@es bNS, @[s ar@accLur owinH 10E. lGU`` +/-` #Ccy `cap@proxim ly !TPArgums:`C DF(decl?:as NpOTE: neg@'vxwes ,n hemis ph-b/input cellX(y B*8sPen latitude = -89.8 HJDtcalcJD(year, month, d(ay)LtJTimeJulianCent(JDF1Znew`iFromEt) + 0.5long/ 360#^1Veqt~EqBuonOf(rsolarN@oonDecSulinUTC720E(F* 4) - @H '// adjust for Vzone andlight s@avingsin minutes*]n]DK+ (60 *C*(dls3* 60Hconvert to ar/ 1440 E-Function  E sunset(, I, M,F)(g-L*?A/ Npame:_$TypMaWF-led by spreadsheet PurpoVs u5e/ of:rispvhe erpdate!zlocaAM.BF#Bs g@tehan 72 de@es NS, @]s arCaccur!Aqwith510E. les@+/-` Ccy i pproxim ly !TPArgums:`QF(decl;;!O'f=CDy N0OTE: neg@'ve,wes@%n hemis ph-input cellY]"t2;*l!o fZs n}Gd6`;A=,6 na,2>. Th`D '&kh4 `nJiti_!*or(us orig l sign "nu"fNOAA jav@ascrip`'odea=!w;C¿ C@`bbhours re!D GMT/(BD%=(0 no, 1yes) * Return value}S*3u @aolգ( s*?** F DimWAs Double`ahC@A$ 1LST' c@zge->b\GNb>h ('Wgq g;f-1 aScIf !aN > )@3{j<  ?,+a1zCalc^$"{h0H\q=Z0-`'  ُe R4gKA "= x ߂7߂Q 6M݂b9tAcH!+wdusk߂v߂04BXdezssp*!  σ QσσGσ`:a`σσσσσ σσ`σσ* σσσhCArGσ "nσ σbσσ5aσPσ$@DσEσ6σ[Ie \%σP σσσ σσσ1=Bσay2σσ@qσσ σE` angleT below hX B> !C> 'OHDouble, @JD As  Dim setTimeGMTd,TLST ' change sign convention for longitude from negative to posi in western hemisphere F=R * -1 !'Wg at If (l> 89.8) Then = < - = calcJD(year, month, day)t// CuLunłthi:stԃ1DuskUTC(JD,n€olardepresswi Y As@# adjust! zone and/light savings tsminut\esKAD*A= +p (60s)" @dls* 460H A%rtQdA F@/ 1440[Ea@.FuncA  E sFazi0muthM, 1l, _6Lhoxursw@)d@E7}6C5*?A/m* Name:"1BTypC MagG?'* P|urpTN A (degdworth)Qe |td & dat Cb7ADloca-. Returns -9 ifG@rker t 8twibI " ArHgum@ s: ߓYO3!00/,D0|ay $Wb value)!'"rees"a1Not@)"elevbbeBE*fOs are id=i/"#)a'co@uld be#rted]a VBA subrouti q't wbrb,bothls.a*?* NCffatcoB wSd,hh)mmsa7xnowG t)Rmalpha)thet E 9)eq+h  / 3600!a&zt ! >JulianC@`@/ 24#`yRtSun#Etor(tLL㠁tAscenNKlin[on#PEquyBOf ;Q= R;AR$rV`uT= R]'aT= - 4#@:+%oVRa#+ b60K 7 * Do Whi[(]> kj - LoopKA/c/ 80#+d T ko Lou5Schwarzmayrnext~ #qY OK180 +16p RnpEegTo/(o= Sine))@!߻ r *+Ͼ Cos* h n { "#kq1\Else Y csz = @-1# E`nd If 4z enithvradToDeg(Application.WorksheetFuncA"Acos()) azDeHnomJ(C#degToRad(lJtude)) * Sin({)J VIf (Abs(^) > 0.001)` Then +"az:B(5B_ [N -  0solarDecg / V3gSyf1#dIh< 0 >Else>A OazimuB180#R)#AAEhouranglePG!-O*6SKߨ@d-0\Q% H$ %+ 36-1 )exoatmElevb@r9b@k'beginning of complex expressAmented out ' AM p> 85f!refraCorre"j>teTaaU858.1`-a7`(* ) +AnA a0086?%,!-0p.575t.1735# 8*(-518.2(103.4@` (-12.79JY*/711"׎ GA)!-20.7742t τ oon<{.e?808:sip:ifiP9:?"nR99/ = i+= 9G9M/ ! w9_ R o9 o9 _9e9 / ! K9}step1L/1)w-O 2%7(2 3 89.8) Then< - `"D"Upp&AJsAB= By= dlB#,60K@{=bs - (/ 60F)k= m"ss+= c //3is GMT?`cu/<since8 0Z+ Eh <+ @ @/ 3600`A AcB@=  JD(;t 144m/ m -b+LoopA/7c*f/ 80#+d TPUksLou5Schwarzmayr5`$ next #AOK180$O +16p RnpEegTo/(/o= SinN($%W))@!_ %*+ qCos *h n w "# 1\Elset -ЪIf= ToDeg(Applv.Worksh eetFuS.A6c)^u= (?ude2>)q Abs() > 00.0013az0%U((#Yj m#b  ) /B A ` } 1?C < 6?n $M$$Et%= 1IO&onO&C& o&!QgF!? CW- 5 h $(8o/O\ ? $ [b ion = 90# - zenith 'beginning of complex expressHmented out^ If (exoatmElevat^> 85#) Then Z8@refrac(C0orre 0#! +Else>te,Tan(deg ToRad ~))5RT58.1 / D- 0.07(*) + _A)A00086  b-0.5759173,5#@+ p*/(- 518.2 (1p03.4@(@-12.79 0.711)R|XC-274etEnd IfPfW/ 360Nesiifi@ 7hsa4IC+)a@`= sSrrr1 ar!!Srstep1`g_b[:e 2Enjb c3y݁2541׊(b)t ueu _Fu$up solar`.#@w! 'aO" Zen < 108azimuth]Re|b Ooh cosCos{ϒ & SFL t^T uT9q'// do not report az & el after astro t@wilighm -9b & b Funra`  Subposi(lat, lon, year, month, day,| hours inutesecondtim ezone ls},f <*// Npame:q )' * TypMain Pur calcu@ec .& from`rth) for the qredt a$loca. Returns  if rk@#than9#*Argu s: itud@g0,$a $ay"*xsav02S valuePreesHNot, "/f(s are idi!could:nverto a VBA suDbrPinepaht wr8bo`J s.a1#& Dim2 As Doublat7y5S$hhymmsscnow'J6DJRalXpha-t EsQeq"Deca 3VkŢTCFixctrueSnA-angleJarad#csz90c`azDen=Xaz` 7+x12 3c{`Xp6 cDgKigns3nGK6CT;egP*rv4o `=we rn hemispherP̶Mlongitude = lon * -1 latat lIf (|> 89.8) Then j*l< -7 8 'change time zon o ppositive hours in western hemisphere I:=F{daySavinDgsdls8* 60 $hh;- (/)mmminutes s2second s//9now is GMTzfor calcuv?since 0&Z,!= T+ #AL + 9/ 03600@  JD+JD(year, mo`nth, 85tD TeJulia@nCent(@+,0/ 24# R SunRadVector(tA alpha tAscensioBn thet D`eclin E#EDEqu Of0BBeqD B solar@'nedegreMz@RthC; RM]c!FixD- 4#+AnH trueS$@@}#@y~}60gU Do While ( > 1x440,8"Y-K Loop+߁^@`x /%@ X80#KT@ks to Lou@kSchwarz`mayr k8 next Ge:K!'`180D; g+alharad3@DToA(`'Kcsz0Sin())B_cA<@T+ Cos #  * !bw'A D#&C16Else.-nd If zenitḀ2ToDeg(Applic.WorksheetFunct.Ac %)azDeno($*63cf)A , Abs( ) > 0.001)az`JF((j F & -#  ) / Q ` 1?R < 6?n $M$$Etazimu%1IO&onO&C& o&!QgF!? {CW- 5 h $(8o/\ ? ? 3C$ [b;exoat`mElevD 99w- 5'beginnp of complex expresA!mДed ou'q-> 856refraRLCorrL_P CtqTah*^o nP#_ = 5X8.1E-1P7(* D)0n>qS0086}tේ_ Q -0.575Xo 1735{a *V!(-518.2P(103.4co(-12.7.9,*71~1k #-@20.774`tUo`Z='e0?8O2q:@!:si:ifip9:M##9O O+= 9)ЊM (exoatmElevation > 5#) T@hen r efracCorre$ = 58.1 / te - 0.07(*") + _d2000486 6 @@(|\BkD%k$%TX $  X TA v@4(Dl$Bk%k%  $   ABBko\kĤҗ@BtT) XT6 $| oTkDl4(D ]3 (Db4(D$b4(D]3Q (Db4(D$b\(l@ XT$|\D,DT,BA4$@Btd odkTl hD(l4D/DT@4$,BABtd5 odkTl hD(l4MFžvq@$/r@T3?D4Btd6odhodk odh odhtd od odhtdQ odkTl (l4`I D4Btd5 odkTl `(l4$l, ,Btd5,dM@, ,Bt\5, m\ tTo\o\9 tLo\o\o\9 tDoTkļ5?os?_>Y1\> ,oLk,L y?|y?l\< oD,am2?kBt<6 o__SRP_3  \ Sheet2F_VBA_PROJECTdirV<rU (`a/(`/0` ///(`/(!`/(I`/(q`/(`/(`/( `/( `/(9 `/(a `/( `/(`/(`/(`/()`/0Q` 1///,y`//,`//0` 1///8 `Yy1////01` Yy///,Y`y//0` Yy///8`Yy1////L` 1////////D`///////D!`///////DI`///////Lq` 1////////T `(//////////T!`(//////////`"`0)Q////////////n/#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}H(%0(8;DxAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD280* pHd VBAProject4@j = r ;D J< rstdole>stdole f%\*\Gh%exoatmElevationstep1step2step3refractionCorrectionte>_solarzen~(solarelevation (solarposition7 Sheet2Workbookk Worksheet(calcHourAngleDawnSsolardepression}(calcHourAngleDusk+ (calcDawnUTC5 (calcDuskUTC6(dawn];(duskߥGreg Pelletier5 DepartmentRof^EcologyuPgBoxyOlympia!wa_voicefaxYemailgpel461ecyGgovl   H`CC(A0044DE52}#2.2#0#C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 10.0 Object Library  ;D{00020430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation^DOfficDO>fic5DD2DF8D04C-5BFA-101B -BDE5DAA5B42Dgram Files\CommonMicrosoft Shared\@10\MSO`.DLL# 10.0 Ob LibraryKThisWorkbookGThjsWrkbo 2 HB1w`5B,Q!"B+B{Sheet1GS@#e@Xt14H2NModule;dug2OODN9Z!N92M92I92M92c9I9K*s__SRP_0_o __SRP_1 wPROJECTwmkPROJECTrU~~~~~~~~~~a )?&f @w}l/    a  p# AqAq I A y ! I q  9 a   ) ThisWorkbookSheet1Module1Sheet2 VBAProjectF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA I q0F4C:\Program Files\Microsoft Office\Office10\EXCEL.EXEExcel Ai@as  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.4#0#C:\Program Files\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.2#0#C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 10.0 Object Library  ;DThisWorkbook0J443bc4a3ThisWorkbook5 Sheet10K443bc4a3 Sheet15Module1014c0006f2Module1Z0O Sheet20M443bc4a3  Sheet2H5hH00Z'NL`XK28WN2a$sc/jJZ8qh; B Excel+ VBAWin16~Win32MacVBA6# VBAProjectstdole`Officeu ThisWorkbook| _Evaluate Sheet1 Module1b(radToDegaiangleRad& Application*WorksheetFunction&Pi^(degToRadangleDegߞ(calcJD'year6nmonthdayAXJD]Floor (calcTimeJulianCenttk(calcJDFromJulianCentĠ(calcGeomMeanLongSunA>l0^(calcGeomMeanAnomalySun_md(calcEccentricityEarthOrbitpe\(calcSunEqOfCenter/mrad?sinm:sin2mTsin3mycZSin(calcSunTrueLongNOf(calcSunTrueAnomalyvm(calcSunRadVectortRiCosO(calcSunApparentLongomega1klambda(calcMeanObliquityOfEclipticseconds؃e0\(calcObliquityCorrection(calcSunRtAscension΍tananum3 tanadenomRalphaAtan2(calcSunDeclination`sintAthetaAjAsinH(calcEquationOfTime/2epsilonȃylsin2l0=9cos2l0sin4l0CEtime6Tan-(calcHourAngleSunrisekulatksolarDec7 latRadVsdRadFHAargHA~]Acos7(calcHourAngleSunset(calcSunriseUTClatitude longitude7eqtime  hourangledeltatimeDiff+5timeUTC8newtq (calcSolNoonUTCt solarNoonDec solNoonUTC (calcSunsetUTC~(sunriseHllonktimezone7Sdlstime _ riseTimeGMTv riseTimeLST (solarnoon@U(sunset setTimeGMT setTimeLST (solarazimuthfhoursGPminutesOgzoneف daySavingshh]mmC^ss'_timenowy earthRadVec solarTimeFixU trueSolarTimeIharadWncszzenith azDenomazRadazimut0FC:\WINNT\System32\stdole2.tlbstdoleF QyPL-[DR?C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLLOffice a`radToDegdegToRadcalcJDcalcTimeJulianCentcalcJDFromJulianCentcalcGeomMeanLongSuncalcGeomMeanAnomalySuncalcEccentricityEarthOrbitcalcSunEqOfCentercalcSunTrueLongcalcSunTrueAnomalycalcSunRadVectorcalcSunApparentLong calcMeanObliquityOfEclipticcalcObliquityCorrectioncalcSunRtAscensioncalcSunDeclinationcalcEquationOfTimecalcHourAngleDawncalcHourAngleSunrisecalcHourAngleSunsetcalcHourAngleDusk calcDawnUTCcalcSunriseUTCcalcSolNoonUTC calcSunsetUTC calcDuskUTCdawnsunrise solarnoonsunsetdusk solarazimuthsolarelevation solarposition FFVBE6.DLL  F  G   H NrU angleRadangleDegyearmonthdayJDtlatsolarDecsolardepressionlatitude longitudelontimezonedlstimehoursminutesseconds solarazimuthsolarelevation1ThisWorkbookThisWorkbookSheet1Sheet1Module1Module1Sheet2Sheet2ID="{6714B79E-92F3-4DB4-B8EA-BE2AE9300FD7}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=Module1 Document=Sheet2/&H00000000 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="CCCEDFC221E125E125E125E125" DPB="EFEDFC233C655E665E665E" GC="1210010025012501DA" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Module1=0, 0, 826, 329, Z Sheet2=0, 0, 0, 0, C Oh+'0HPh| SummaryInformation(DocumentSummaryInformation8CompObjf George Bakerx John DenmanMicrosoft Excel@ûx@2N @՜.+,0 PXd lt| ~o{  Site Survey DataRegional Solar Datasolar_positionsunriseSolar Heating BOM Solar PV BOMSolar PV Mounting RackSolar PV Interconnect TableRegional Wind Speed 'Regional Wind Speed'!Windspeed  Worksheets  Named Ranges FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q