<?php   /* Code © Charles Chandler http://qdl.scs-inc.us/?top=7912 */   $coDataPgID = (kIsPublic) ? 8906 : 13930; $v['chargePerAtom' ] = LU($coDataPgID, 'atomic unit of charge'); // in coulombs $v['hydKgPerAtom' ] = LU($coDataPgID, 'proton mass'); $v['minCMEsPerDay' ] = .2; // wikipedia $v['maxCMEsPerDay' ] = 3.5; // wikipedia $v['kgPerCME' ] = 1.6 * pow(10, 12); // wikipedia $v['kgPerYearBySW' ] = 9.13 * pow(10, -14) * $solSys->sun->mass_kg; // http://arxiv.org/abs/0801.3807 $v['kgPerSecBySW' ] = $v['kgPerYearBySW'] / (365 * 24 * 60 * 60); $v['solarVolts' ] = 1.7 * pow(10, 9); // from Alfven (1941) $v['solarWattsTotal' ] = 3.86 * pow(10, 26); // http://adsabs.harvard.edu/abs/2004A%26ARv..12..273F   $v['aveCMEsPerDay' ] = $v['minCMEsPerDay'] + $v['maxCMEsPerDay']; // averaged near side, doubled to get both sides $v['kgPerDay' ] = $v['kgPerCME' ] * $v['aveCMEsPerDay']; $v['kgPerSec' ] = $v['kgPerDay' ] / (24 * 60 * 60); $v['kgPerSecAdjusted' ] = $v['kgPerSec' ] * 10;   // hydrogen atoms per second $v['hydAtomsPerKg' ] = 1 / $v['hydKgPerAtom']; $v['hydAtomsPerSec' ] = $v['kgPerSecAdjusted'] * $v['hydAtomsPerKg'];   // charge per second $v['solarAmps' ] = $v['hydAtomsPerSec' ] * $v['chargePerAtom']; // amps $v['solarWattsElec' ] = $v['solarAmps' ] * $v['solarVolts']; $v['solarWattsFusion' ] = $v['solarWattsTotal'] / 3; $v['solarWattsSupGran'] = $v['solarWattsTotal'] / 6; $v['solarWattsHalf' ] = $v['solarWattsTotal'] / 2; $v['discrepancy' ] = $v['solarWattsElec' ] / $v['solarWattsHalf'];   // current density $v['ampsPerSqMeter'] = $v['solarAmps'] / $solSys->sun->area_m2;   ?>