full3d.xmds

Script source:
full3d.xmds.gz

<?xml version="1.0"?>
<!-- Simulates evolution of coupled atomic-molecular BECs on full 3D lattice -->

<simulation>

  <name>full3d</name>

  <author>Tim Vaughan</author>
  <description>
    Simulates evolution of coupled atomic-molecular BECs on full 3D
    lattice
  </description>

  <prop_dim>t</prop_dim>
  <error_check>no</error_check>
  <stochastic>no</stochastic>

  <globals>
  <![CDATA[
    const double alpha_11 = 0.1;
    const double gam = 1;

    const double A = 3.7919;
    const double B = 4.4037;
    const double a = 0.2756;
    const double b = 0.2901;

    const double R = 10;
    const double AG = 1;
    const double PG = log(0.0363206335777221)/(log(sin((1-5/R)*M_PI/2)));
  ]]>
  </globals>

  <field>
    <name>main</name>
    <dimensions>x y z</dimensions>
    <lattice>100 100 100</lattice>
    <domains>(-10,10) (-10,10) (-10,10)</domains>
    <samples>1 1</samples>
    <vector>
      <name>main</name>
      <type>complex</type>
      <components>u v</components>
      <fourier_space>no no no</fourier_space>
      <![CDATA[
        double r2 = x*x + y*y + z*z;
        u = complex(A*exp(-a*r2),0);
        v = complex(B*exp(-b*r2),0);
    ]]>
    </vector>
    <vector>
      <name>vc1</name>
      <type>complex</type>
      <components>damp</components>
      <fourier_space>no no no</fourier_space>
      <![CDATA[
        double r = sqrt(x*x + y*y + z*z);
        damp = complex(AG*pow(sin(r/R*0.5*M_PI),PG),0);
      ]]>
    </vector>
  </field>
 
 <sequence>
    <integrate>
      <algorithm>SIIP</algorithm>
      <interval>10</interval>
      <lattice>100</lattice>
      <samples>100 100</samples>
      <k_operators>
        <constant>yes</constant>
        <operator_names>L1 L2</operator_names>
        <![CDATA[
          L1 = -i*(kx*kx + ky*ky + kz*kz);
          L2 = -i*0.5*(kx*kx + ky*ky + kz*kz);
        ]]>
      </k_operators>
      <iterations>3</iterations>
      <vectors>main vc1</vectors>
      <![CDATA[
        du_dt = L1[u] - i*(u - conj(u)*v + alpha_11*conj(u)*u*u) - u*damp;
        dv_dt = L2[v] - 0.5*i*(gam*v - u*u) - 0.5*v*damp;
      ]]>
    </integrate>
  </sequence>

  <output>
    <group>
      <sampling>
        <fourier_space>no no no</fourier_space>
        <lattice>100 1 1</lattice>
        <moments>Iu Iv</moments>
        <![CDATA[
          Iu = mod2(u);
          Iv = mod2(v);
        ]]>
      </sampling>
    </group>
    <group>
      <sampling>
        <fourier_space>no no no</fourier_space>
        <lattice>0 0 0</lattice>
        <moments>Na Nb N</moments>
        <![CDATA[
          Na = mod2(u);
          Nb = mod2(v);
          N = Na + 2*Nb;
        ]]>
      </sampling>
    </group>
  </output>
</simulation>


Generated by GNU enscript 1.6.3.



Introduction | Examples | Downloads | Documentation | Archives | Script Repository | FAQ | News | Links | Contacts