/[escript]/trunk/doc/examples/usersguide/wave.py
ViewVC logotype

Diff of /trunk/doc/examples/usersguide/wave.py

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

temp_trunk_copy/doc/examples/wave.py revision 1384 by phornby, Fri Jan 11 02:29:38 2008 UTC trunk/doc/examples/wave.py revision 2420 by gross, Thu May 14 02:28:58 2009 UTC
# Line 1  Line 1 
1    
2    ########################################################
3    #
4    # Copyright (c) 2003-2008 by University of Queensland
5    # Earth Systems Science Computational Center (ESSCC)
6    # http://www.uq.edu.au/esscc
7    #
8    # Primary Business: Queensland, Australia
9    # Licensed under the Open Software License version 3.0
10    # http://www.opensource.org/licenses/osl-3.0.php
11    #
12    ########################################################
13    
14    __copyright__="""Copyright (c) 2003-2008 by University of Queensland
15    Earth Systems Science Computational Center (ESSCC)
16    http://www.uq.edu.au/esscc
17    Primary Business: Queensland, Australia"""
18    __license__="""Licensed under the Open Software License version 3.0
19    http://www.opensource.org/licenses/osl-3.0.php"""
20    __url__="https://launchpad.net/escript-finley"
21    
22  # You can shorten the execution time by reducing variable tend from 60 to 0.5  # You can shorten the execution time by reducing variable tend from 60 to 0.5
23    
24  from esys.escript import *  from esys.escript import *
# Line 59  def wavePropagation(domain,h,tend,lam,mu Line 79  def wavePropagation(domain,h,tend,lam,mu
79     u_pc_z = u_pc[2]     u_pc_z = u_pc[2]
80    
81     # open file to save displacement at point source     # open file to save displacement at point source
82     u_pc_data=open('./data/U_pc.out','w')     u_pc_data=FileWriter('./data/U_pc.out')
83     u_pc_data.write("%f %f %f %f\n"%(t,u_pc_x,u_pc_y,u_pc_z))     u_pc_data.write("%f %f %f %f\n"%(t,u_pc_x,u_pc_y,u_pc_z))
84    
85     while t<tend:     while t<tend:

Legend:
Removed from v.1384  
changed lines
  Added in v.2420

  ViewVC Help
Powered by ViewVC 1.1.26