<?php   /* Angular Momentum © Charles Chandler http://qdl.scs-inc.us/?top=7781 */   // Calculate the conservation of angular momentum in a supergranule as it rises. // This is the force that equatorial differential rotation has to overcome.   $vars['solarRadius' ] = 695500; // km $vars['solarCircum' ] = $vars['solarRadius'] * 2 * pi(); $vars['depthToLiquid' ] = 125000; // depth below surface of top of liquid hydrogen layer, in km $vars['liquidRadius' ] = $vars['solarRadius'] - $vars['depthToLiquid']; $vars['liquidCircum' ] = $vars['liquidRadius'] * 2 * pi(); $vars['equatorVelocity'] = 2; // km/s $vars['liquidVelocity' ] = $vars['equatorVelocity'] * ($vars['liquidCircum'] / $vars['solarCircum']); $vars['superUpdraft' ] = .4; // speed of supergranule updraft, in km/s $vars['updraftElapsed' ] = $vars['depthToLiquid'] / $vars['superUpdraft']; // time travelled, in seconds $vars['elapsedDays' ] = $vars['updraftElapsed'] / (60 * 60 * 24); $vars['equatorDistTrav'] = $vars['equatorVelocity'] * $vars['updraftElapsed']; // rotation in that time, in km $vars['liquidDistTrav' ] = $vars['liquidVelocity'] * $vars['updraftElapsed']; // rotation in that time, in km $vars['distanceDiff' ] = $vars['equatorDistTrav'] - $vars['liquidDistTrav']; $vars['fractOfCircum' ] = $vars['distanceDiff'] / $vars['solarCircum']; $vars['degreesTravel' ] = $vars['fractOfCircum'] * 360; VarDump($vars);   $vars = array ( 'solarRadius' => 695500, 'solarCircum' => 4369955.3811434, 'depthToLiquid' => 125000, 'liquidRadius' => 570500, 'liquidCircum' => 3584557.217746, 'equatorVelocity' => 2, 'liquidVelocity' => 1.6405463695183, 'superUpdraft' => 0.4, 'updraftElapsed' => 312500, 'elapsedDays' => 3.6168981481481, 'equatorDistTrav' => 625000, 'liquidDistTrav' => 512670.74047448, 'distanceDiff' => 112329.25952552, 'fractOfCircum' => 0.025704898500847, 'degreesTravel' => 9.2537634603049, );   ?>