/ ============================= / LOG / ============================ / / ======================== / thu.oct.20031030 / ======================== / / 1327 / emailed Sallie Baliunas abt "null hypothesis" / ======================== / mon.mar.20040329 / ======================== / Earth orbit radius 150e9 M / ecentricity .017 147e9 152e9 ^ 2 />/ 2.1609e+022 2.3104e+022 / -/ r />/ -1.495e+021 1.017 ^ 2 />/ 1.03429 / ======================== / sat.apr.20040410 / ======================== / / 1421 / Paul Driessen : "Eco-Imperialism : Green Power , Black Death " 13k wind turbines = single 535MW gas turbine in CA Hernand DeSoto Peru / / ======================== / sun.jan.20050109 / ======================== / / 1255 / got .( ` title : " Meltdown " ; ` author : " Patrick Michaels " ; ` pub : " Cato " ; ` Date : 2004 ; ` cost : 16 ) ( ( 1 - a ) * S % 4 ) ~ SB * e * T ^ 4 ( ( ( 1 - a ) % e ) * S % 4 * SB ) ~ T ^ 4 T ~ ( ( S % 4 * SB ) ^ % 4 ) * ( ( 1 - a ) % e ) ^ % 4 + | ( Q ^ % 4 ; Q : .5 + .05 * ! 21) thru / ======================== / thu.sep.20050929 / ======================== / / 1937 / Junto debate w Metzger / 5770 % 287 />/ 20.10453 / r * 288 />/ 5790.1045 2 * 4047 />/ 8094 3.1e6 %.3 />/ 10333333.0 / r % 1000 />/ 10333.333 r % 8094 />/ 1.2766658 .03 * 2.47 />/ 0.0741 3e6 % 4047 />/ 741.28984 / 100e3 % r />/ 134.9 24000 % 2 3 6 />/ 12000 8000 4000.0 / r % 640 />/ 18.75 12.5 6.25 / ======================== / sat.mar.20060304 / ======================== / : NYCc : ( 2 4 9 14 20 25 28 27 23 17 11 6 ; -5 -4 0 6 12 17 20 19 14 8 3 -2 ) NYCc ( .R `avg ) @ -/ NYCc />/ 8.1666667 273.15 + ( .R `avg )' NYCc />/ 288.65 280.48333 %/ r />/ 1.0291164 : WPc : ( 3 6 8 12 17 23 26 24 21 16 8 4 ; -16 -14 -10 -6 -2 2 5 4 0 -6 -11 -16 ) ( .R `avg ) @ -/ WPc />/ 19.833333 -/ ( .R `avg )' WPc />/ 19.833333 ( .R `avg )' WPc />/ 14 -5.8333333 r + 273.15 />/ 287.15 267.31667 %/ r />/ 1.0741942 : WPrain : .29 .3 .81 1.06 1.64 1.41 2.73 3.02 1.47 .84 .61 .27 +/r />/ 14.45 : CSrain : .28 .35 1.06 1.62 2.39 2.34 2.85 3.48 1.23 .86 .52 .42 +/ r />/ 17.4 / ======================== / wed.feb.20070228 / ======================== / Baliunas ltr / ( .R `avg ) @ ,/ WPc />/ 4.0833333 r + 273.5 />/ 277.58333 20 % 280 />/ 0.071428571 25.4 % 8 />/ 3.175 / ======================== / thu.apr.20070405 / ======================== / further work on diurnal #s .R Q : 316 325 338 354 368 ; Q[ 4 ] + 1 _ Q - Q 0 377 390 406 420 288 + ( ! 5 ) * .8 % 4 />/ 288 288.2 288.4 288.6 288.8 r - .4 />/ 287.6 287.8 288 288.2 288.4 / ======================== / sat.dec.20081206 / ======================== / ( 1 - ; :: ) .\: .00006 % 4 * .R `pi />/ 0.99999523 4.7746483e-006 r * 3 6000 ^ 4 />/ 80.999613 6.1879442e+009 ( +/ r ) ^ % 4 />/ 280.47012 / ======================== / sun.dec.20081207 / ======================== / .r : 0: "C:/CoSy/Science/PlanetTemps.csv" ( .R `csv2DT )[ "," ] { ltab2dic @ + csvcutD[ x ]' y }[","] ( .R `csvcutD )[ "," ]' .r ltab2dic D `r : PlanetTemps / : r PlanetTemps[] : .:'' PlanetTemps _n Q : _ 100 1 100 1 * + PlanetTemps[ ; 0 1 0 2] PlanetTempPlot : ( 2 # Q ; 2 _ Q ) Q..c : `plot PlanetTempPlot..c : `plot `PlanetTempPlot / 1557 / : sb : 5.6704e-8 / W%(M^2)*K^4 SB : {[ T ] sb * T ^ 4 } SB 3 300 6000 />/ 4.593024e-006 459.3024 73488384 Sun.r : 6.96e8 / meters Sun.Dist : 1.496e11 / meters ( `Sun . " r % 2 * Dist " ) ^ % 2 />/ 0.048230729 % r />/ 20.73367 ( .R `rnd2 ) r * 5000 5500 5750 5825 6000 />/ 241.15 265.27 277.33 280.94 289.38 / ======================== / tue.dec.20081209 / ======================== / Q : 2 _draw 0 ; ( ( %/ Q ) ^ 2 ) ~ ( Q[ 0 ] ^ 2 ) % Q[ 1 ] ^ 2 />/ 1 Sun />/ .((`r;6.96e+008;) ; (`Dist;1.496e+011;)) Tratio : {[ R ; D ] ( R % 2 * D ) ^ % 2 } Tratio . Sun _n />/ 0.048230729 % r / ======================== / sun.dec.20081214 / ======================== / .25 ^ % 4 />/ 0.70710678 .71 * 328 />/ 232.88 %/ PlanetTemps.Venus[ 1 2 ] />/ 2.2408537 / ======================== / tue.jan.20090120 / ======================== / Sun / ======================== / sun.feb.20090201 / ======================== / / ======================== / tue.feb.20090203 / ======================== / Sun `r `Dist />/ 6.96e+008 1.496e+011 : pi4 : ( .R `pi ) * 4 />/ 12.566371 : pi2 : ( .R `pi ) * 2 />/ 6.2831853 : SAsun : ( .R `SolidAngleDisk ) Sun `r `Dist />/ 6.7999413e-005 : R0 : r % pi4 />/ 5.4112214e-006 / Sun.temp : 6000 / Sun.temp ^ 4 />/ 1.296e+015 : SunFlux : r * Sun.temp ^ 4 />/ 1.679616e+030 : CosmicMicrowaveBackground / CMB : 3 />/ : InFlux : SunFlux , ( pi4 - R0 ) * CMB ^ 4 \ : EarthFlux : pi4 * Earth.temp ^ 4 / AbsorbEmit / black body # / : AE : 1 />/ 1 { +/ AE * InFlux - pi4 * x ^ 4 } ? 0 { InFlux - pi4 * x ^ 4 } 280 2.1767823e+045 -7.723995e+010 AE 2.1767823e+045 -7.723995e+010 InFlux 2.1767823e+045 1017.8756 / ======================== / fri.feb.20090206 / ======================== / Sun.temp />/ 6000 6000 ^ 4 />/ 1.296e+015 : SfearPart : ( ( :: ; pi4 - ) .\: SAsun ) % pi4 />/ 5.4112214e-006 0.99999459 ( +/ ; %/ ) .\: r />/ 1 5.4112506e-006 : SunFlux : { SfearPart * ( x ^ 4 ) , 0 } / Sun.temp : InFlux : SfearPart * SunFlux , CMB ^ 4 />/ (1;"type") : EarthFlux : { SfearPart * x ^ 4 } / where x is Earth.temp EarthFlux 6000 />/ 7.0129429e+009 1.295993e+015 8.8127239e+010 1.6285928e+016 { AE * ( InFlux ; EarthFlux x ) } 6000 { AE * ( InFlux - EarthFlux x ) } 6000 />/ 1.1779051e+040 -1.295993e+015 1.4801992e+041 -1.6285928e+016 +/ r />/ 1.4801992e+041 r ^ % 4 />/ 1.9614626e+010 1.9614626e+010 / ======================== / sat.feb.20090207 / ======================== / / ======================== / sun.feb.20090208 / ======================== / / SfeerPart : SfearPart CMB />/ 3 : SAsun : ( .R `SolidAngleDisk ) Sun `r `Dist />/ 6.7999413e-005 / agrees w @ Wikipedia/SolidAngle SfeerPart />/ 5.4112214e-006 0.99999459 Flux : { x ^ 4 } / radiant flux of temp x / sb constant left out because it cancels $ Flux Sun.temp , CMB : InFlux : SfeerPart * Flux Sun.temp , CMB />/ 7.0129429e+009 80.999562 : EarthFlux : { SfeerPart */: x ^ 4 } / where x is Earth.temp EarthFlux 300 />/ 43830.893 8.0999562e+009 $ { ( , InFlux ) , EarthFlux x } 300 290 $ { ( +/' q ) ,' q : ( , InFlux ) , EarthFlux x } . , 290 $ { ( ( *:' x ) - * * x ) ,' x : ( +/' x ) ,' x : ( , InFlux ) , EarthFlux x } Q : 285 + ! 10 $ Q : ( , InFlux ) , EarthFlux ./: 300 290 $ ( ( *:' Q ) - * * Q ) ,' Q : ( +/' Q ) ,' Q : ( , InFlux ) , EarthFlux ./: 300 290 288 280 $ ( Q ; { -/ +/' AE *'( InFlux ; EarthFlux x ) }' Q : ( .R `apv ) . ( 289.384 ; .0001 ; 10 ) ) : Sun.temp : 5778. / nasa.gob sun fact sheet $ InFlux : SfeerPart * Flux Sun.temp , CMB />/ 6.0312239e+009 80.999562 $ ( Q ; { -/ +/' AE *'( InFlux ; EarthFlux x ) }' Q : ( .R `apv ) . ( 278.67 ; .001 ; 10 ) ) 6000 5778 % 289 279 />/ 20.761246 20.709677 { -/ +/' AE *'( InFlux ; EarthFlux x ) } 290 : AE : 1 1 />/ 1 1 ?[ { 1e-10 * -/ +/' AE *'( InFlux ; EarthFlux x ) } ; 0.0 ; 289. ] / ======================== / mon.feb.20090209 / ======================== / Sun.temp />/ 5778.0 : SfeerPart : 5.4112214e-006 , ( 0.99999459 - .5 ) , .5 />/ 5.4112214e-006 0.49999459 0.5 : AE : 1 1 0 />/ 1 1 0 : InFlux : SfeerPart * Flux Sun.temp , 2 # CMB />/ 6.0312239e+009 40.499562 40.5 EarthFlux 300 />/ 43830.893 4.0499562e+009 4.05e+009 $ { AE */: ( InFlux ; EarthFlux x ) } 300 ?[ { 1e-10 * -/ +/' AE */: ( InFlux ; EarthFlux x ) } ; 0.0 ; 289. ] />/ 331.40485 : AE : 1 1 1 />/ 1 1 1 ?[ { 1e-10 * -/ +/' AE */: ( InFlux ; EarthFlux x ) } ; 0.0 ; 289. ] />/ 278.67715 : AE : .5 * 1 1 1 />/ 0.5 0.5 0.5 ?[ { 1e-10 * -/ +/' AE */: ( InFlux ; EarthFlux x ) } ; 0.0 ; 289. ] />/ 278.67715 / VENUS / \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ / Sun.Dist * PlanetTemps[ `Venus ; 0 ] />/ 1.0821017e+011 : SAsun : ( .R `SolidAngleDisk ) Sun.r , r />/ 0.00012996674 : SfeerPart : ( ( ( :: ; pi2 - ) .\: SAsun ) , pi2 ) % pi4 />/ 1.0342424e-005 0.49998966 0.5 : InFlux : SfeerPart * Flux Sun.temp , 2 # CMB />/ 1.152743e+010 40.499162 40.5 ( .R `iz ) . `PlanetFlux `EarthFlux ?[ { 1e-10 * -/ +/' AE */: ( InFlux ; PlanetFlux x ) } ; 0.0 ; 289. ] />/ 327.66732 Flux ( Sun.Temp , 2 # CMB ; : AE : 1 1 0 />/ 1 1 0 ?[ { 1e-10 * -/ +/' AE */: ( InFlux ; PlanetFlux x ) } ; 0.0 ; 300 ] />/ 389.6643 PlanetTemps / [ ; 0 ] />/ (0.38709;0.72333;1;1.52366) $ { -/ +/' AE */: SfeerPart */: Flux ( Sun.temp , 2 # CMB ; x ) } 300 Celestial : Flux ( CelestialTemp ; BallTemp ) / ======================== / tue.feb.20090210 / ======================== / / .r : 0: "C:/CoSy/Science/Earth.html" Sun[ `apihelion `perihelion ] : 152097701e3 147098074e3 Sun.Dist : ( .R `avg ) Sun[ `apihelion `perihelion ] DT2html D `Sun .((`r;6.96e+008;) ; (`Dist;1.495979e+011;) ; (`temp;5778.0;) ; (`apihelion;1.520977e+011;) ; (`perihelion;1.470981e+011;)) : sb />/ 5.6704e-008 Psb : {[ T ] sb * T ^ 4 } / \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ / Earth Peri/ap-helion calc 0 / \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ / Trd : {[ R ; D ] ( ( R % D ) % 2 ) ^ % 2 } Sun[ `r `Dist ] />/ 6.96e+008 1.496e+011 Trd . Sun `r `Dist />/ 0.04823073 Trd[ Sun.r ]' Sun[ `apihelion `perihelion `Dist ] />/ 0.04783307 0.04863917 0.04823107 r * Sun.temp />/ 276.3795 281.0371 278.6791 ( %/ ; -/ ) .\: r 1 0 />/ 1.016852 4.657602 / This > 1% difference between api- and peri-helion temps should be easy to confirm /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ / PlanetTemps[ `Venus ; 0 ] />/ 0.72333 / distance from sun as ratio of earth ( AU ) r * Sun.Dist />/ 1.082086e+011 / Venus orbital distance Trd[ Sun.r ] r />/ 0.05670987 r * Sun.temp />/ 327.6696 ( .R `iz ) . `SAd `.CoSy.SolidAngleDisk />/ `SAd / ======================== / wed.feb.20090211 / ======================== / SAd : {[ RD ] ( .R `pi ) * %/ RD ^ 2 } SAd..h : "Solid angle of disk of radius ( RD 0 ) at distance RD 1 " : pi2 : ( .R `pi ) * 2 />/ 6.2831853 : pi4 : ( .R `pi ) * 4 />/ 12.566371 : SAsun : SAd Sun `r `Dist />/ 6.7999413e-005 / agrees w @ Wikipedia/SolidAngle / The celestial sphere is divided into the solid angle of the sun and the rest of night and / day as portions of the total pi4 steradians . : SfeerPart : ( ( ( :: ; pi2 - ) .\: SAsun ) , pi2 ) % pi4 />/ 5.4113742e-006 0.49999459 0.5 / ======================== / thu.feb.20090212 / ======================== / : CMB : 3.0 />/ 3.0 / 3K Cosmic Microwave Background : Tcs : Sun.temp , 2 # CMB />/ 5778 3 3.0 / : AE : 1 1 1 />/ 1 1 1 ( SfeerPart ; Tcs ; AE ) ( .R `tab2html ) r Tcs />/ 5778 3 3.0 ?[ { -/ +/' AE */: SfeerPart */: Psb ( Tcs ; x ) } ; 0.0 ; 278.5 ] { AE * SfeerPart * Psb x } @/: ( Tcs ; 279 ) / total radiated power from shaded gray ball "
342.00418 | 0.0018592512 |
2.2964871e-006 | 171.78918 |
2.296512e-006 | 171.79104 |