Re: pole shift

Michael Lorrey (retroman@tpk.net)
Fri, 18 Jul 1997 22:35:57 -0400


Anton Sherwood wrote:
>
> >From somewhere in the world...EvMick asks...
>
> : To interject a notion....is it possible that our esteemed collegue is
> : thinking of a shift in the magnetic pole? I seem to recall that magnetic
> : pole shift occurs rather regularly....in fact...isn't that a method used
> : to measure continental drift? That is ...observe the magnetic alignment
> : of the lava extruded from the midocean rifts....
>
> The symmetric alternation...in magnetic alignment...around the Mid-Atlantic
> Ridge...is a way to detect seafloor spreading...but I don't believe it's
> regular enough...that is periodic enough...to be used as a clock.
>

Without further stuttering, the cycles in magnetic alignment in seafloor
lava is relative to the precession of the magnetic pole, which has been
shown to be tightly tied in with the differential in rotation between
the mantle and the core. As this precession is cyclic at around 40,000
years, from what I've heard, this is a decent stopwatch for such
geologic changes, so long as the moons orbit is not significantly
changed over time, which would change the tidal drag vector on the crust
and mantle, thus changing the path and cycle of the precession of the
magnetic pole. NOTE: this is not related to the 26,000 precession cycle
of our rotational axis relative to the stars.

-- 
TANSTAAFL!!!
			Michael Lorrey
------------------------------------------------------------
mailto:retroman@tpk.net		Inventor of the Lorrey Drive
Agent Lorrey@ThePentagon.com
Silo_1013@ThePentagon.com	http://www.tpk.net/~retroman/

Mikey's Animatronic Factory My Own Nuclear Espionage Agency (MONEA) MIKEYMAS(tm): The New Internet Holiday Transhumans of New Hampshire (>HNH) ------------------------------------------------------------ #!/usr/local/bin/perl-0777---export-a-crypto-system-sig-RC4-3-lines-PERL @k=unpack('C*',pack('H*',shift));for(@t=@s=0..255){$y=($k[$_%@k]+$s[$x=$_ ]+$y)%256;&S}$x=$y=0;for(unpack('C*',<>)){$x++;$y=($s[$x%=256]+$y)%256; &S;print pack(C,$_^=$s[($s[$x]+$s[$y])%256])}sub S{@s[$x,$y]=@s[$y,$x]}