/ ============================= / 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 " \n \n
  342.00418   0.0018592512
  2.2964871e-006   171.78918
  2.296512e-006   171.79104
" +/' r />/ 342.00418 343.58208 PgrayBall : { +/ AE * SfeerPart * Psb x } / total radiated power from shaded gray ball Tdif : { -/ PgrayBall @/: ( Tcs ; x ) } / K's ?[ Tdif ; 0.0 ; 300 ] />/ 278.67912 / Essentially a disk , black on the day side , totally reflective and non emissive on the ni AE : 1 1 0 ; ?[ Tdif ; 0.0 ; 300 ] />/ 331.40719 AE : 1 1 1 ; Tcs : 3 # Sun.temp ; ?[ Tdif ; 0.0 ; 6000 ] />/ 5778.0 AE : 1 1 0 ; Tcs : 3 # Sun.temp ; ?[ Tdif ; 0.0 ; 6000 ] />/ 5778.0 / And maximally hot black and white disk in Venus orbit : PlanetTemps[ `Venus ; 0 ] * Sun.Dist />/ 1.0820864e+011 / Venus orbital distance SAd Sun.r , r />/ 0.00012997041 : SfeerPart : ( ( ( :: ; pi2 - ) .\: r ) , pi2 ) % pi4 / />/ 1.0342716e-005 0.49998966 0.5 AE : 1 1 0 ; Tcs : Sun.temp , 2 # CMB ?[ Tdif ; 0.0 ; 300 ] />/ 389.66706 / ======================== / fri.feb.20090213 / ======================== / AE : 1 1 1 ; Tcs : 6000 3 3.0 AE 5778 5800 5900 6000 *Trd . Sun `r `Dist />/ 278.67912 279.7402 284.56331 289.38642 680 - 638 />/ 42 / ======================== / fri.jun.20090612 / ======================== / Tdif />/ { -/ PgrayBall @/: ( Tcs ; x ) } 1 - .9997 />/ 0.0003 r * 10000 />/ 3.0 / ======================== / wed.jul.20090722 / ======================== / : .r : ( ( .R `spltcols )[ " " ] .r ) 1 2 eval _ssr[ ; .r 1 .r : .:'' .[ .r ; ( 1 ; ) ; _ssr[ ; ":" ; "." ] ] .r / CO2 from G & T (1958 1967 1977 1987 1996 2007 ; 315.56 322.88 334.53 349.24 363.99 377.3) : Q : .r `Q Q..c : `plot / ======================== / fri.jul.20090724 / ======================== / / ======================== / mon.jul.20090727 / ======================== / 0 = intOverSphere ( Source ^ 4 ) - Color * Planck[ T ] ^ 4 PgrayBall />/ { +/ AE * SfeerPart * Psb x } AE />/ 1 1 0 `.CoSy.Fact ( .R `iz ) .' ( ( `c ; `.CoSy.Fact.c ) ; ( `h ; `.CoSy.Fact.h ) ; ( `Boltz ; `.CoSy.Fact.Boltz ) ) + ( r ; .:' r ) />/ ((`c;2.9979246e+008) ; (`h;6.626069e-034) ; (`Boltz;1.3806504e-023)) Planck : {[ f ; T ] ( 2 * h * f ^ 3 ) % c * ( _exp ( h * f ) % Boltz * T ) - 1 } $ + |:' ( Q ; Planck[ Q : .0 + 1 _ 10 ^ ! 20 ; 6000 ] ) `CoSy.Fact . `h / ======================== / wed.aug.20090805 / ======================== / sb : 5.6704e-008 : SAsun : SAd Sun `r `Dist />/ 6.800133e-005 : SfeerPart : ( ( ( :: ; pi2 - ) .\: SAsun ) , pi2 ) % pi4 / />/ 5.411374e-006 0.4999946 0.5 AE : 1 1 1 ; Tcs : 5778 3 3.0 ; ?[ Tdif ; 0.0 ; 300. ] />/ 278.6791 AE : 1 1 1 ; Tcs : 5778 0. 0.0 ; ?[ Tdif ; 0.0 ; 300. ] />/ 278.6791 AE : 1 1 1 ; Tcs : 5778 100 100. ; ?[ Tdif ; 0.0 ; 300. ] />/ 279.8271 AE : 1 1 1 ; Tcs : 5778 200 200. ; ?[ Tdif ; 0.0 ; 300. ] />/ 295.5635 .8271 - .6791 />/ 0.148 .91 * 278 />/ 252.98 295.56 - 278.68 />/ 16.88 / ======================== / sun.aug.20090809 / ======================== / SpectrumEarth *' Planck[ ; Tsun , Tearth ] ( Planck[ Q : .0 + 1 _ 10 ^ ! 20 ; 6000 ] Planck[ Q : .0 + 1 _ 10 ^ ! 20 ; 6000 ] Planck[ Q : .0 + 1 _ 10 ^ ! 20 ; 6000 ] -15.1 -20.5 -20.5 $ QW : ( , Q ) , Planck[ Q : .0 + 1 _ 10 ^ ! 18 ]' 6000 300 AE : +/' SpectrumEarth *' Planck[ ; Tsun , Tearth ] -20.5 $ QW[ , 0 ] , +\' QW[ 1 2 ] QW[ 1 2 ] .R ( -15.1 $ QW[ , 0 ] ) , 20.9 $ .CoSy.normalize' QW[ 1 2 ] : Q : 10 ^ ( .R `thru )[ 8 ; 18 ] -15.1 -20.5 -20.5 $ QW : ( , Q ) , Planck[ Q ]' 6000 300 ( -15.1 $ QW[ , 0 ] ) , 20.9 $ .CoSy.normalize' QW[ 1 2 ] ( .R `tab2html ) r PBall : { +/ AE * SfeerPart * Psb x } / ======================== / mon.aug.20090817 / ======================== / ( .R `view ) ( .R `fns ) _d ?[ Psb ; ; 300 ] 1 .7 * 1366 % 4 />/ 278.57636 254.81135 -/ r />/ 23.765009 1 273 + ( .R . `Fact `c2f ) ? 189 />/ 88.222222 360.22222 ?[ Psb ; ; 300 ] 1 .7 * 1366 />/ 393.96646 360.35766 AE : 1 1 0 ; Tcs : 5778 3 3.0 ; ?[ Tdif ; 0.0 ; 600. ] / ======================== / wed.aug.20090819 / ======================== / Psb />/ {[ T ] sb * T ^ 4 } P : sb : 5.6704e-8 ; sb..h : " W%(M^2)*K^4 " {[ E ] ( E % sb ) ^ % 4 } 1366 / ======================== / sun.sep.20090906 / ======================== / 1.016852 ^ 4 />/ 1.0691312 / ======================== / mon.sep.20090907 / ======================== / : Sun : ( .R `Drename )[ Sun ; `apihelion ; `aphelion ] SAd..h />/ "Solid angle of disk of radius ( RD 0 ) at distance RD 1 " : SAsun : SAd Sun `r `Dist / />/ 6.8001334e-005 : SfeerPart : ( ( ( :: ; pi2 - ) .\: SAsun ) , pi2 ) % pi4 / />/ 5.4113742e-006 0.49999459 0.5 AE : 1 1 1 ; Tcs : 5778 3 3.0 ; ?[ Tdif ; 0.0 ; 300. ] / />/ 278.67912 AE : 1 1 1 * .7 ; Tcs : 5778 3 3.0 ; ?[ Tdif ; 0.0 ; 300. ] / />/ 278.67912 : SAsun : SAd' 2 2 # Sun `r `perihelion `r `aphelion />/ 7.0332229e-005 6.578442e-005 : SfeerPart : ( ( ( :: ; pi2 - ) .\: SAsun 0 ) , pi2 ) % pi4 />/ 5.5968609e-006 0.4999944 0.5 AE : 1 1 1 ; Tcs : 5778 3 3.0 ; ?[ Tdif ; 0.0 ; 300. ] / />/ 281.03711 : SfeerPart : ( ( ( :: ; pi2 - ) .\: SAsun 1 ) , pi2 ) % pi4 />/ 5.2349578e-006 0.49999477 0.5 AE : 1 1 1 ; Tcs : 5778 3 3.0 ; ?[ Tdif ; 0.0 ; 300. ] / />/ 276.37951 % %/ 276.37951 281.03711 />/ 1.0168522 r ^ 4 />/ 1.069132 { AE :: .7 + x , x , - x ; Tcs :: 5778 3 3.0 ; 281.04 - ?[ Tdif ; 0.0 ; 300. ] } ? 0 />/ 0.048423202 : AE : { .7 + x , x , - x } r />/ 0.72359891 0.72359891 0.67640109 $ SAsun : SfeerPart : ( ( ( :: ; pi2 - ) .\: SAsun 0 ) , pi2 ) % pi4 / />/ 5.2349578e-006 0.49999477 0.5 5.2349578e-006 0.49999477 0.5 { AE :: .7 + x , x , - x ; Tcs :: 5778 3 3.0 ; 278.68 - ?[ Tdif ; 0.0 ; 300. ] } ? 0 / />/ 0.023598908 { AE :: .7 + x , x , - x ; Tcs :: 5778 3 3.0 ; 278.68 - ?[ Tdif ; 0.0 ; 300. ] } ? 0 / />/ -0.023190297 { AE :: .7 + x , x , -x ; Tcs :: 5778 3 3.0 ; ?[ Tdif ; 0.0 ; 300. ] }' 0 .01 .02 .03 SAsun Tdif..h : "Difference in power between a scalar point temperature and a surrounding temperature distribution" { -/ PgrayBall @/: ( Tcs ; x ) } / ======================== / tue.sep.20090908 / ======================== / Planck : {[ f ; T ] ( 2 * h * f ^ 3 ) % c * ( _exp ( h * f ) % Boltz * T ) - 1 } : Q : 10 ^ ( .R `thru )[ 8 ; 18 ] -15.1 -20.5 -20.5 $ QW : ( , Q ) , Planck[ Q ]' 6000 300 ( -15.1 $ QW[ , 0 ] ) , 20.9 $ .CoSy.normalize' QW[ 1 2 ] $ Q : ,/ 1 2 5 */: 10 ^ ( .R `thru )[ 9 ; 16 ] -15.1 -20.5 -20.5 -20.5 $ QW : ( , Q ) , Planck[ Q ]' 5772 320 250 : QWE : QW 1 2 3 ( .R `tab2csv )[ "," ] QW , 10 1 1 * ( .R `normalize )' QW 1 2 3 / ======================== / fri.sep.20090911 / ======================== / `.CoSy.Fact 0: "C:/CoSy/Science/ASTMG173.csv" : .r : ( .R `csv2dic ) 1 _ 0: "C:/CoSy/Science/ASTMG173.csv" ( .R `evaln )' .r[] 1 .r[] : .:'' _ssr[ ; "+" ; "" ]'' _ssr[ ; "E" ; "e" ]'' .r[] `.r ! .r `Wvlgthnm `EtrWm2nm1 `GlobaltiltWm2nm1 `DirectcircumsolarWm2nm1 { +/ ( ? x ) =/: x } @ -': .r `Wvlgthnm / ======================== / tue.oct.20091013 / ======================== / Planck />/ {[ f ; T ] ( 2 * h * f ^ 3 ) % c * ( _exp ( h * f ) % Boltz * T ) - 1 } .CoSy.math.a..h />/ " Arthur Whitney's basic collection " ( .CoSy.math.a `cor ) />/ {cov[x;y]%dev[x]*dev y} / ( .CoSy.math.a `cor )[ + 2 10 # ! 10 ; 10 2 # 20 _draw 10 ] / test / ShellSpectra..h : "spectrum of each partition of shell" PointSpectra..h : "spectrum of each partition of point as a function of T " AE : ( .CoSy.math.a `cor )[ ShellSpecta ; PointSpectra[ T ] ] Pball : { +/ AE * SfeerPart * Psb x } / ======================== / wed.nov.20091125 / ======================== / "Cold Earth" assumption . AE : .7 1 1 ; Tcs : 5778 3 3 ; ?[ Tdif ; 0.0 ; 300. ] / />/ 257.06228 287.7 - 257.06228 278.7 />/ 30.63772 9 / ======================== / mon.nov.20091130 / ======================== / : SfeerPart : ( ( ( :: ; pi2 - ) .\: SAsun 0 ) , pi2 ) % pi4 / />/ 5.2349578e-006 0.49999477 0.5 Tcs / : 5778 3 3.0 9 % 279 />/ 0.032258065 { AE :: .7 + x , 2 # - x ; 288. - ?[ Tdif ; 0.0 ; 300. ] } ? 0 / />/ 0.071992926 .7 + ( :: ; -: ) .\: r />/ 0.77199293 0.62800707 { AE :: .7 + x , 2 # - x } .033 ; AE />/ 0.733 0.667 0.667 ?[ Tdif ; 0.0 ; 300 ] />/ 287.74524 { AE :: .5 + x , 2 # - x } 0 / .033 ; AE / />/ 0.533 0.467 0.467 ?[ Tdif ; 0.0 ; 300 ] / />/ 290.47995 / ======================== / thu.dec.20091210 / ======================== / Stossel error : Kel_C + ( .R . `Fact `c2f ) ? 24 25 />/ -4.4444444 -3.8888889 ( .R .' `Fact ,' `Kel_C `c2f / ======================== / fri.sep.20100910 / ======================== / maximum temperature given .7 albedo : AE SfeerPart />/ 5.411374e-006 0.4999946 0.5 AE : 1 1 1 ; Tcs : 5778 3 3.0 ; ?[ Tdif ; 0.0 ; 300. ] />/ 278.6791 AE : .7 , 2 # .5 ; Tcs : 5778 3 3.0 ; ?[ Tdif ; 0.0 ; 300. ] />/ 303.1351 AE : .7 , 2 # 1 ; Tcs : 5778 3 3.0 ; ?[ Tdif ; 0.0 ; 300. ] />/ 254.9054 / ======================== / thu.sep.20100930 / ======================== / AE : 1 1 1 ; Tcs : 5778 200 200. ; ?[ Tdif ; 0.0 ; 300. ] />/ 295.5635 / ======================== / sat.oct.20101002 / ======================== / ( +/ SfeerPart * 5778 ^ 4 ) ^ % 4 />/ 278.6791 ( +/ 5.41e-006 0.9999946 * 5778 0 ^ 4 ) ^ % 4 />/ 278.6614 ( +/ 5.411374e-006 0.9999946 * 5778 200 ^ 4 ) ^ % 4 />/ 295.5635 / ======================== / tue.nov.20101102 / ======================== / ( 5.41e-6 * 5778 ^ 4 ) />/ 6.029863e+009 6.03e9 r * sb />/ 341.9251 / ======================== / fri.nov.20101119 / ======================== / ( -/ ; :: ) @\: Psb 289 288 />/ (5.446436 ; 395.5533 390.1069) $ sb / ###################################################################### / .R .' `Fact ,' `Kel_C `c2f : Kel_C : .R . `Fact , `Kel_C Psb : {[ T ] sb * T ^ 4 } PgrayBall : { +/ AE * SfeerPart * Psb x } Tdif : { -/ PgrayBall @/: ( Tcs ; x ) } 6CO2 + H2O -> C6H12O6 + 6O2 .79 r^2 between earth temp & sun | Sundergard % 278.7 % 5778 0.048234683 288 % 279 />/ 1.032258 / ###################################################################### /