Aucun titre de diapositive

1
A quick overview of Object-oriented, Distributed,
Network-based software
objects
Anthony Lomax Anthony Lomax
Scientific Software Mouans-Sartoux,
France anthony_at_alomax.net www.alomax.net
2
program horrible(tr,gr,t,g,dist)
common/mess/t,g,h,p,str,ctr,r1,r2 real8
d,tr,gr,t,g,h,p,str,ctr,r1,r2,st,ct,cdg,
sdg,q,x,y,z,az12,az21,p0,horrible
if(tr.eq.t.and.gr.eq.g) goto 100
h.006722653d0 p.006768153d0
strdsin(tr) ctrdcos(tr)
if(ctr.eq.0.d0) ctr.000001d0
if(str.eq.0.d0) str.000001d0
r16378.388d0/dsqrt(1.d0-hstrstr)
if(t.eq.0.d0) t.000001d0 goto 999 100
stdsin(t) ctdcos(t)
r26378.388d0/dsqrt(1.d0-hstst)
cdgdcos(g-gr) sdgdsin(g-gr)
qstctr/((1.d0p)ctstr)hr1ctr/(r2ct)
xr2ctcdg yr2ctsdg
z(1.d0-h)(r2st-r1str)
az12datan2(sdg,(q-cdg)str)
qstrct/(ctrst(1.d0p))hr2ct/(r1ctr)
horribleqx-az12yz if(tr.eq.t.and.gr.eq.g
) goto 100 h.006722653d0
p.006768153d0 strdsin(tr)
ctrdcos(tr) if(ctr.eq.0.d0) ctr.000001d0
if(str.eq.0.d0) str.000001d0
r16378.388d0/dsqrt(1.d0-hstrstr)
if(t.eq.0.d0) t.000001d0 goto 999 100
stdsin(t) ctdcos(t)
r26378.388d0/dsqrt(1.d0-hstst)
cdgdcos(g-gr) sdgdsin(g-gr)
qstctr/((1.d0p)ctstr)hr1ctr/(r2ct)
xr2ctcdg yr2ctsdg
z(1.d0-h)(r2st-r1str)
az12datan2(sdg,(q-cdg)str)
qstrct/(ctrst(1.d0p))hr2ct/(r1ctr)
horribleqx-az12yz if(tr.eq.t.and.gr.eq.g
) goto 100 h.006722653d0
p.006768153d0 strdsin(tr)
ctrdcos(tr) if(ctr.eq.0.d0) ctr.000001d0
if(str.eq.0.d0) str.000001d0
r16378.388d0/dsqrt(1.d0-hstrstr)
if(t.eq.0.d0) t.000001d0 goto 999 100
stdsin(t) ctdcos(t)
r26378.388d0/dsqrt(1.d0-hstst)
cdgdcos(g-gr) sdgdsin(g-gr)
qstctr/((1.d0p)ctstr)hr1ctr/(r2ct)
xr2ctcdg yr2ctsdg
z(1.d0-h)(r2st-r1str)
az12datan2(sdg,(q-cdg)str)
qstrct/(ctrst(1.d0p))hr2ct/(r1ctr)
horribleqx-az12yz if(tr.eq.t.and.gr.eq.g
) goto 100 h.006722653d0
p.006768153d0 strdsin(tr)
ctrdcos(tr) if(ctr.eq.0.d0) ctr.000001d0
if(str.eq.0.d0) str.000001d0
r16378.388d0/dsqrt(1.d0-hstrstr)
if(t.eq.0.d0) t.000001d0 goto 999 100
stdsin(t) ctdcos(t)
r26378.388d0/dsqrt(1.d0-hstst)
cdgdcos(g-gr) sdgdsin(g-gr)
qstctr/((1.d0p)ctstr)hr1ctr/(r2ct)
xr2ctcdg yr2ctsdg
z(1.d0-h)(r2st-r1str)
az12datan2(sdg,(q-cdg)str)
qstrct/(ctrst(1.d0p))hr2ct/(r1ctr)
horribleqx-az12yz return end
procedure
user interface
computer
operating system
logic / calculations
classic program
I/O
data management
3
objects
computer B
Object-oriented, Distributed, Network-based
software
computer
operating system
www intranet
classic program
I/O
computer A
4
objects
user interface
logic / calculations
data management
5
package net.alomax.seis import
net.alomax.math. / A basic Seismogram object
/ public class BasicSeismogram extends BasicItem
implements Serializable public TimeSeries
timeSeries // The seismogram data public
BasicChannel channel // The channel
information public BasicHypocenter
hypocenter // The hypocenter public int
iyear // The year of the reference time
public int ijday // The day of year of
reference time public int ihour, imin,
isec // The reference hour and min public
double sec // The reference sec public
double timeMin // The offset of the first
sample / Returns the amplitude at a given
time. / public final double ampAtTime(double
time) double sampleOffset (time -
timeMin) / (double) timeSeries.sampleInt
int nsample (int) sampleOffset if
(nsample lt 0 nsample gt timeSeries.sampleLength
() - 1) return INVALID_AMPLITUDE
double fract sampleOffset - (double) nsample
double amp1, amp2 amp1 (double)
timeSeries.sampleAt(nsample) amp2
(double) timeSeries.sampleAt(nsample 1)
return(amp1 (amp2 - amp1) fract)
/ Removes the mean of the time series samples.
/ public void removeMean()
timeSeries.removeMean() // end class
BasicSeismogram
logic / calculations
6
package net.alomax.seis import
net.alomax.math. / A basic Seismogram object
/ public class BasicSeismogram extends BasicItem
implements Serializable public TimeSeries
timeSeries // The seismogram data public
BasicChannel channel // The channel
information public BasicHypocenter
hypocenter // The hypocenter public int
iyear // The year of the reference time
public int ijday // The day of year of
reference time public int ihour, imin,
isec // The reference hour and min public
double sec // The reference sec public
double timeMin // The offset of the first
sample / Returns the amplitude at a given
time. / public final double ampAtTime(double
time) double sampleOffset (time -
timeMin) / (double) timeSeries.sampleInt
int nsample (int) sampleOffset if
(nsample lt 0 nsample gt timeSeries.sampleLength
() - 1) return INVALID_AMPLITUDE
double fract sampleOffset - (double) nsample
double amp1, amp2 amp1 (double)
timeSeries.sampleAt(nsample) amp2
(double) timeSeries.sampleAt(nsample 1)
return(amp1 (amp2 - amp1) fract)
/ Removes the mean of the time series samples.
/ public void removeMean()
timeSeries.removeMean() // end class
BasicSeismogram
program (software process)
distributed and dynamic program
data methods
object
restricted access
messages
7
distributed dynamic
distributed data management
distributed and dynamic program
data methods
Java-RMI Corba SOAP
http
ftp
restricted access
messages
http
plug-in, applet download
8
Object-oriented, Distributed, Network-based
seismology
9
A quick overview of Object-oriented, Distributed,
Network-based software References
General Developer.com - http//developer.com Deve
loper.com deesign - http//www.developer.com/desig
n O'Reilly Network - http//www.oreillynet.com Sci
entific D. Walker, Computer Science, Univ of
Wales Cardiff, UK - http//www.cs.cf.ac.uk/user/Da
vid.W.Walker/talks.html The Globus Project GRID
computing - http//www.globus.org UK Research
Councils e-science - http//www.rcuk.ac.uk/escienc
e Seismological Information Technology by T.
Owens, Geological SciencesUniversity of South
Carolina, USA - http//www.seismosoc.org/publicati
ons/SRL/SRL_73/srl_73-4_es.html SCEC Community
Modeling Environment - http//www.scec.org/cme
Anthony Lomax Scientific Software,
Mouans-Sartoux, France anthony_at_alomax.net
www.alomax.net