Did I tell you I was a geek??? http://www.iris.edu/seismon/ith circles to show you the approximate location and magnitude of the earthquakes. A color code shows you the age of the quakes: …occurring today, yesterday, during the past 2 weeks, or within the past 5 years. The size of the circles indicate the magnitude range: 4, 5, 6, 7, or 8 By clicking on the circle you desire, you zoom in to the specific area. By pinpointing the area with another click, you will see a chart that will give you very specific information: date, latitude, longitude, exact magnitude, depth, and the region location of its epicenter.

I have a piece of software that shows something similar on my Pocket PC. :)

[code:1:0461483b5d] { Seismic indicator v1.0 Plot on price chart. ©Copyright 2005 Jose Silva. http://www.metastocktools.com W/thanks to MG Ferreira for ellipse equation.} pds1:=Input("Seismic width periods",2,2600,30); pds2:=Input("Seismic separation periods", -26000,2600,-10); pds2:=LastValue(If(pds2<=-pds1,-pds1+1,pds2)); { Seismic 1 } p2:=pds1; p1:=pds1+p2; start:=Cum(1)=LastValue(Cum(1))-p1; end:=Cum(1)=LastValue(Cum(1))-p2; restrict:=Ref(Ref(ValueWhen(1,start,1),-p2),p2); Hi:=LastValue(Highest(ValueWhen(1,restrict,H))) +restrict-1; Lo:=LastValue(Lowest(ValueWhen(1,restrict,L))) +restrict-1; midX:=(p1-p2)/2; midY:=(Hi-Lo)/2; tX:=Cum(1)-midX-(LastValue(Cum(1))-p1); ellipse:= Sqrt(midY*midY*(1-Min(tX*tX/midX/midX,1))); upperE:=Lo+midY+ellipse; lowerE:=Hi-midY-ellipse; upperE;lowerE; { Seismic 2 } p2:=p1+pds2; p1:=pds1+p2; start:=Cum(1)=LastValue(Cum(1))-p1; end:=Cum(1)=LastValue(Cum(1))-p2; restrict:=Ref(Ref(ValueWhen(1,start,1),-p2),p2); Hi:=LastValue(Highest(ValueWhen(1,restrict,H))) +restrict-1; Lo:=LastValue(Lowest(ValueWhen(1,restrict,L))) +restrict-1; midX:=(p1-p2)/2; midY:=(Hi-Lo)/2; tX:=Cum(1)-midX-(LastValue(Cum(1))-p1); ellipse:= Sqrt(midY*midY*(1-Min(tX*tX/midX/midX,1))); upperE:=Lo+midY+ellipse; lowerE:=Hi-midY-ellipse; upperE;lowerE; { Seismic 3 } p2:=p1+pds2; p1:=pds1+p2; start:=Cum(1)=LastValue(Cum(1))-p1; end:=Cum(1)=LastValue(Cum(1))-p2; restrict:=Ref(Ref(ValueWhen(1,start,1),-p2),p2); Hi:=LastValue(Highest(ValueWhen(1,restrict,H))) +restrict-1; Lo:=LastValue(Lowest(ValueWhen(1,restrict,L))) +restrict-1; top:=If(start OR end,Lo,Hi); bot:=If(start OR end,Hi,Lo); midX:=(p1-p2)/2; midY:=(Hi-Lo)/2; tX:=Cum(1)-midX-(LastValue(Cum(1))-p1); ellipse:= Sqrt(midY*midY*(1-Min(tX*tX/midX/midX,1))); upperE:=Lo+midY+ellipse; lowerE:=Hi-midY-ellipse; upperE;lowerE; { Seismic 4 } p2:=p1+pds2; p1:=pds1+p2; start:=Cum(1)=LastValue(Cum(1))-p1; end:=Cum(1)=LastValue(Cum(1))-p2; restrict:=Ref(Ref(ValueWhen(1,start,1),-p2),p2); Hi:=LastValue(Highest(ValueWhen(1,restrict,H))) +restrict-1; Lo:=LastValue(Lowest(ValueWhen(1,restrict,L))) +restrict-1; top:=If(start OR end,Lo,Hi); bot:=If(start OR end,Hi,Lo); midX:=(p1-p2)/2; midY:=(Hi-Lo)/2; tX:=Cum(1)-midX-(LastValue(Cum(1))-p1); ellipse:= Sqrt(midY*midY*(1-Min(tX*tX/midX/midX,1))); upperE:=Lo+midY+ellipse; lowerE:=Hi-midY-ellipse; upperE;lowerE [/code:1:0461483b5d] jose '-)