Mean square displacement after a cooling case

Hello,everyone

I am a new user of MS script and hope some experienced users can give me some advice.

I want to simulate the melting point of LiCl-KCl by cooling it from 723K to another lower temperature with a Perl script to observe the MSD (or density or some other property of it).

Here is my code:

==========================================

#!perl

{

use strict;

use Getopt::Long;

use MaterialsScript qw(:all);

my \$deltaT=20;

my \$Tempchangetimes=1;

my \$NumberOfSteps = 20000;

my \$doc = \$Documents{"H2O.xsd"};

my \$newdoc = Documents->New("Hello.xtd");

sub Run {

   my (\$doc) = @_;

}

my \$forcite = Modules->Forcite;

my \$dynamics = Modules->Forcite->Dynamics;

for (my \$i = 0) {

    \$forcite->ChangeSettings([

                    Ensemble3D =>"NVT",

                    CurrentForcefield => "COMPASS",                     # force field to be used in the simulations

                    Temperature=>723-\$deltaT*\$i,

                    Thermostat => "Nose",                                        # type of thermostat to use

      BerendsenThermostatDecayConstant => 0.1,           # thermostat parameter

      "3DPeriodicvdWSummationMethod" => "Atom based", # van der Waals method to use

      TimeStep => 1,                                                  # time step (in fs)

      NumberOfSteps => \$NumberOfSteps,

      ]);    

    my \$results = Modules->Forcite->Dynamics->Run(\$doc, \$forcite);

    my \$docdelete = \$Documents{"H2O.xtd"};

    \$newdoc->Trajectory->AppendFramesFrom(\$doc,Frames(Start=>1,End=>\$NumberOfSteps));

    \$docdelete->Delete;

}

for (my \$i = 1; \$i <= \$Tempchangetimes; ++\$i) {

    \$forcite->ChangeSettings([

                    Ensemble3D =>"NVT",

                    CurrentForcefield => "COMPASS",                     # force field to be used in the simulations

                    Temperature=>723-\$deltaT*\$i,

                    Thermostat => "Nose",                                        # type of thermostat to use

      BerendsenThermostatDecayConstant => 0.1,           # thermostat parameter

      "3DPeriodicvdWSummationMethod" => "Atom based", # van der Waals method to use

      TimeStep => 1,                                                  # time step (in fs)

      NumberOfSteps => \$NumberOfSteps,

      InitialVelocities => "Current"

      ]);    

    my \$results = Modules->Forcite->Dynamics->Run(\$doc, \$forcite);

    my \$docdelete = \$Documents{"H2O.xtd"};

    \$newdoc->Trajectory->AppendFramesFrom(\$doc,Frames(Start=>1,End=>\$NumberOfSteps));

    \$docdelete->Delete;

}

}

But when i analyze the MSD of the xtd file, it shows "Mean square displacement analysis failed. The times associated with the first two selected fames are both zero"

I guess it because all the trajectories are counted from zero not continued.

Are there any method can fixed this problem??

Thanks in advance,

Regards,

Bill