From allan.cornet at scilab.org  Sun Oct  2 17:19:47 2011
From: allan.cornet at scilab.org (Allan CORNET)
Date: Sun, 2 Oct 2011 17:19:47 +0200
Subject: [scilab-Users] Problems to install Scilab 5.3.3 x64 bit version on windows 7 enterprise x64 bit
In-Reply-To: <000001cc7ec5$00d88a30$02899e90$@idsc.net.eg>
References: <000001cc7ec5$00d88a30$02899e90$@idsc.net.eg>
Message-ID: <01da01cc8116$b8c25970$2a470c50$@scilab.org>

Hi

 

Can you get more information ?

 

Please report a bug report @  <http://bugzilla.scilab.org/>
http://bugzilla.scilab.org

 

Thanks

 

Allan

 

De : Mohamed Sharkawy [mailto:mosharkawy at idsc.net.eg] 
Envoy? : jeudi 29 septembre 2011 18:30
? : users at lists.scilab.org
Objet : [scilab-Users] Problems to install Scilab 5.3.3 x64 bit version on
windows 7 enterprise x64 bit

 

Dear support team,

 

I'm one of Scilab users and developers and I install the Scilab on original
version of windows 7 enterprise x64 and x32 , it work on the 32 bit one and
don't work for the other.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111002/33789209/attachment.htm>

From severine.pl at gmail.com  Mon Oct  3 15:10:08 2011
From: severine.pl at gmail.com (severine.pl)
Date: Mon, 3 Oct 2011 06:10:08 -0700 (PDT)
Subject: too large string
Message-ID: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com>

Hi!

I woulf like to find an answer to my problem.

I'm doing very big calculus in scilab, and calculating very big matrix.
And when i'm trying to executing the programm, Scilab says me:

"Too large string"

What must I do?

S?verine Paul


--
View this message in context: http://mailinglists.scilab.org/too-large-string-tp3389713p3389713.html
Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111003/95c2c488/attachment.htm>

From severine.pl at gmail.com  Mon Oct  3 15:22:30 2011
From: severine.pl at gmail.com (severine.pl)
Date: Mon, 3 Oct 2011 06:22:30 -0700 (PDT)
Subject: Too large string
Message-ID: <CAHvBYcPZ+OuSR43=B+pDgqYSSKvpeavWweFwpYpqmYqPmvxBvA@mail.gmail.com>

Hi!

I would like to find an answer to my problem.

I'm doing very big calculus in scilab, and calculating very big matrix.
And when i'm trying to executing the programm, Scilab says me:

"Too large string"

What must I do?


--
View this message in context: http://mailinglists.scilab.org/Too-large-string-tp3389740p3389740.html
Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111003/58b1b8ca/attachment.htm>

From Mike at Page-One.Waitrose.com  Mon Oct  3 15:34:08 2011
From: Mike at Page-One.Waitrose.com (Mike Page)
Date: Mon, 3 Oct 2011 14:34:08 +0100
Subject: [scilab-Users] too large string
In-Reply-To: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com>
Message-ID: <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com>

Can you post some code that shows the problem?

Sounds like maybe you are creating a string instead of a numeric matrix.

Regards,
Mike.

  -----Original Message-----
  From: severine.pl [mailto:severine.pl at gmail.com]
  Sent: 03 October 2011 14:10
  To: users at lists.scilab.org
  Subject: [scilab-Users] too large string


  Hi!

  I woulf like to find an answer to my problem. 

  I'm doing very big calculus in scilab, and calculating very big matrix.
  And when i'm trying to executing the programm, Scilab says me:

  "Too large string"

  What must I do?

  S?verine Paul


------------------------------------------------------------------------------
  View this message in context: too large string
  Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111003/d3452c88/attachment.htm>

From severine.pl at gmail.com  Mon Oct  3 15:53:20 2011
From: severine.pl at gmail.com (=?ISO-8859-1?Q?S=E9verine_Paul?=)
Date: Mon, 3 Oct 2011 15:53:20 +0200
Subject: [scilab-Users] too large string
In-Reply-To: <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com>
References: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com>
 <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com>
Message-ID: <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com>

Hi again,

this is the answer of scilab:

Command is too long (more than 512 characters long): could not send it to
Scilab

and below is the command. It is actually quite long, but I didn't know that
this could be a problem. In Maple (from which this comes), there is no
problem

Thanks for your help.
S?verine.

J(i,k) =
-exp(-b*(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * (-0.144e3 *
exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * sqrt(b) +
0.144e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) *
sqrt(b) - 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^
2)) * x(k) ^ 2 * x(i) * x(i + 1) * b ^ (0.5e1 / 0.2e1) - 0.66e2 * exp(b *
(x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 2 * b ^ (0.3e1
/ 0.2e1) - 0.420e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1)
^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 4 * x(i + 1) *
sqrt(%pi) * b ^ 3 - 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 +
0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * x(k + 1) ^ 4 * x(k) +
0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i)
^ 5 * x(k) * b ^ (0.7e1 / 0.2e1) + 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 *
x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(k) ^ 2 * b ^ (0.7e1 / 0.2e1) +
0.112e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) *
x(i) ^ 5 * x(i + 1) * b ^ (0.7e1 / 0.2e1) + 0.112e3 * exp(b * (x(k) ^ 2 +
0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 5 * b ^ (0.7e1
/ 0.2e1) + 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^
2)) * x(i + 1) ^ 5 * x(k + 1) * b ^ (0.7e1 / 0.2e1) - 0.126e3 * exp(b *
(x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) * x(i) * b ^
(0.3e1 / 0.2e1) + 0.48e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i
+ 1) ^ 2)) * x(k + 1) * x(i) ^ 3 * b ^ (0.5e1 / 0.2e1) + 0.168e3 * b ^ 4 *
exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1)
* sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 5 * x(i) * sqrt(%pi) * x(k + 1) +
0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1)
+ x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 2 * x(k) - 0.56e2 * b ^ (0.5e1 / 0.2e1)
* exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) *
x(k) ^ 2 * x(k + 1) + 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 +
0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) * x(k + 1) ^ 2 * x(k) +
0.280e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(i)
* x(k + 1) ^ 4 * x(k) - 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k
+ 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i)
^ 6 * sqrt(%pi) * x(k + 1) + 0.40e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k
+ 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 2 * x(i) ^ 2 * b ^ (0.5e1 / 0.2e1) -
0.14e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k
+ 1) * x(i + 1) * b ^ (0.3e1 / 0.2e1) - 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^
2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i + 1) *
sqrt(b) - x(k + 1) * sqrt(b)) * b + 0.212e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1
* x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 4 * b ^ (0.5e1 / 0.2e1) - 0.212e3 *
exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 4 * b
^ (0.5e1 / 0.2e1) - 0.48e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) +
x(i + 1) ^ 2)) * x(k) ^ 3 * x(i) * b ^ (0.5e1 / 0.2e1) + 0.364e3 * exp(b *
(x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 3 *
b ^ (0.5e1 / 0.2e1) - 0.140e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k +
1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) *
sqrt(%pi) * x(i) ^ 4 * x(k + 1) - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i)
^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) *
sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k + 1) ^ 5 * x(k) + 0.140e3 * exp(b *
(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 4 * erf(x(i +
1) * sqrt(b) - x(k) * sqrt(b)) * x(i) * sqrt(%pi) * b ^ 3 + 0.56e2 * exp(b *
(x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) * x(i + 1) *
x(i) ^ 2 * b ^ (0.5e1 / 0.2e1) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b *
(x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) * x(k
+ 1) ^ 3 * x(k) - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1)
^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 5 * x(i
+ 1) * sqrt(%pi) * x(k + 1) - 0.168e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k +
1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(i) * x(k) * x(k
+ 1) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) *
x(k) + x(i + 1) ^ 2)) * x(i) ^ 3 * x(k) ^ 2 * x(k + 1) - 0.196e3 * b ^
(0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^
2)) * x(i) * x(k + 1) ^ 2 * x(k) - 0.210e3 * b ^ 2 * exp(b * (x(k) ^ 2 +
x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) * sqrt(%pi) *
erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(k) + 0.112e3 * b ^ (0.7e1 /
0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i)
* x(i + 1) ^ 3 * x(k + 1) * x(k) + 0.144e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 *
x(i + 1) * x(k) + x(i) ^ 2)) * sqrt(b) - 0.252e3 * exp(b * (x(k) ^ 2 + x(i)
^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 5 * erf(x(i + 1) * sqrt(b) -
x(k) * sqrt(b)) * sqrt(%pi) * b ^ 3 + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 +
x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) *
sqrt(b)) * x(i + 1) ^ 3 * x(i) * sqrt(%pi) * x(k) + 0.112e3 * b ^ (0.7e1 /
0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i
+ 1) * x(i) * x(k + 1) ^ 3 * x(k) + 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b *
(x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 2 * x(k) * x(k
+ 1) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) *
x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 2 * x(k + 1) ^ 2 * x(k) +
0.210e3 * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * x(i + 1) * x(i) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) *
sqrt(b)) * x(k) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 +
0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 2 * x(k) ^ 2 * x(k
+ 1) - 0.40e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2))
* x(k + 1) ^ 2 * x(i + 1) ^ 2 * b ^ (0.5e1 / 0.2e1) - 0.364e3 * exp(b *
(x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 *
b ^ (0.5e1 / 0.2e1) - 0.140e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2
+ x(i + 1) ^ 2)) * x(k) ^ 4 * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i +
1) * sqrt(%pi) * b ^ 3 + 0.140e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^
2 + x(i + 1) ^ 2)) * x(k) ^ 4 * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) *
x(i + 1) * sqrt(%pi) * b ^ 3 + 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1)
* x(k + 1) + x(i) ^ 2)) * x(k + 1) * x(i) * x(i + 1) ^ 2 * b ^ (0.5e1 /
0.2e1) - 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^
2)) * x(i) ^ 4 * x(i + 1) * x(k) * b ^ (0.7e1 / 0.2e1) + 0.112e3 * exp(b *
(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) *
sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 6 * x(i) * sqrt(%pi) * b ^ 4 -
0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * x(k) ^ 6 * x(k + 1)
+ 0.224e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) *
x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(k + 1) + 0.14e2 * b ^ (0.3e1 / 0.2e1) *
exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) * x(k +
1) + 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) *
x(k) + x(i + 1) ^ 2)) * x(k) ^ 5 * x(k + 1) + 0.56e2 * exp(b * (x(k + 1) ^ 2
+ 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 3 * x(i) * x(k) ^ 2 * b
^ (0.7e1 / 0.2e1) + 0.66e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) +
x(i + 1) ^ 2)) * x(i) ^ 2 * b ^ (0.3e1 / 0.2e1) - 0.56e2 * exp(b * (x(k + 1)
^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(i) * x(k) ^ 4 * b
^ (0.7e1 / 0.2e1) + 0.364e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) +
x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * b ^ (0.5e1 / 0.2e1) - 0.92e2 * exp(b
* (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) * x(i + 1) * b
^ (0.3e1 / 0.2e1) + 0.126e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) +
x(i + 1) ^ 2)) * x(i + 1) * x(i) * b ^ (0.3e1 / 0.2e1) - 0.56e2 * exp(b *
(x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 3 *
x(k + 1) ^ 2 * b ^ (0.7e1 / 0.2e1) + 0.14e2 * exp(b * (x(k) ^ 2 + 0.2e1 *
x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) * x(i) * b ^ (0.3e1 / 0.2e1) -
0.80e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i
+ 1) ^ 6 * b ^ (0.7e1 / 0.2e1) + 0.80e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) *
x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 6 * b ^ (0.7e1 / 0.2e1) + 0.105e3 * b *
exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) *
erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(k + 1) + 0.126e3 * b ^ (0.3e1 /
0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k
+ 1) * x(k)+0.84e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i +
1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 3 * x(k) + 0.112e3 * b ^ (0.7e1 /
0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i)
^ 5 * x(k + 1) - 0.126e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 *
x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) * x(k) - 0.364e3 * b ^ (0.5e1 /
0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k)
^ 3 * x(k + 1) + 0.364e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 +
0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 3 * x(k + 1) + 0.84e2 * b ^
(0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^
2)) * x(i) ^ 3 * x(k + 1) - 0.364e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^
2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 3 * x(k) + 0.224e3
* b ^ (0.3e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) +
x(i) ^ 2)) * x(i) * x(k) - 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k +
1) + x(i + 1) ^ 2)) * x(i) ^ 5 * x(k + 1) * b ^ (0.7e1 / 0.2e1) + 0.56e2 *
exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) *
x(i) * x(k) ^ 4 * b ^ (0.7e1 / 0.2e1) - 0.420e3 * exp(b * (x(k) ^ 2 + x(i) ^
2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b))
* x(i + 1) ^ 4 * x(i) * sqrt(%pi) * b ^ 3 - 0.80e2 * exp(b * (x(k) ^ 2 +
x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) *
sqrt(b)) * x(i) ^ 7 * sqrt(%pi) * b ^ 4 + 0.280e3 * x(k + 1) * x(k) * b ^ 4
* exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i +
1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * sqrt(%pi) * x(i + 1) ^ 4 -
0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 5 * x(i + 1) * sqrt(%pi)
* x(k) - 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 *
x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(k) ^ 4 * x(k + 1) + 0.56e2 * b ^
(0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^
2)) * x(i) ^ 3 * x(k + 1) ^ 2 * x(k) + 0.105e3 * b * exp(b * (x(k) ^ 2 +
x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i + 1) *
sqrt(b) - x(k + 1) * sqrt(b)) * x(k) + 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b
* (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 3 * x(k)
^ 2 * x(k + 1) + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^
2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) *
sqrt(%pi) * x(i) ^ 3 * x(k + 1) + 0.140e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i)
^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) *
x(i) ^ 4 * sqrt(%pi) * x(k) + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2
+ x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) *
sqrt(b)) * x(i) * sqrt(%pi) * x(k + 1) ^ 5 * x(k) + 0.196e3 * b ^ (0.5e1 /
0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i
+ 1) * x(k + 1) ^ 2 * x(k) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k +
1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(k) * x(k + 1) +
0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) *
x(k) + x(i) ^ 2)) * x(i) * x(k) ^ 2 * x(k + 1) + 0.32e2 * exp(b * (x(k) ^ 2
+ 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(k + 1) ^ 4 * b
^ (0.7e1 / 0.2e1) + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k +
1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) *
sqrt(%pi) * x(k) ^ 3 * x(k + 1) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i)
^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) ^ 3 * x(i) * sqrt(%pi) *
erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(k + 1) - 0.168e3 * b ^ 4 *
exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1)
* sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 5 * x(i) * sqrt(%pi) * x(k) +
0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k +
1) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(i) * x(k + 1) ^ 2 * x(k) - 0.280e3 * b ^
4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i +
1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi) * x(k + 1)
^ 4 * x(k) - 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 +
x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 6 *
sqrt(%pi) * x(k + 1) + 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2
+ x(i + 1) ^ 2)) * x(i + 1) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) *
sqrt(b)) * b - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2
+ x(i + 1) ^ 2)) * x(i) ^ 3 * x(i + 1) * sqrt(%pi) * erf(x(i) * sqrt(b) -
x(k) * sqrt(b)) * x(k) + 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^
2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(k) * x(k + 1) +
0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 5 * x(i + 1) *
sqrt(%pi) * x(k) + 0.210e3 * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1)
^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) -
x(k) * sqrt(b)) * x(k + 1) + 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^
2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(k + 1) ^ 4 *
x(k) - 0.84e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i +
1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 3 * x(k + 1) - 0.280e3 * b ^ 3 * exp(b *
(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) *
sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k) ^ 3 * x(k + 1) +
0.420e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * x(k) ^ 4 * x(k
+ 1) - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i +
1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i) * sqrt(%pi) *
x(k) ^ 5 * x(k + 1) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k +
1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i +
1) * sqrt(%pi) * x(k + 1) ^ 3 * x(k) - 0.210e3 * b ^ 2 * exp(b * (x(k) ^ 2 +
x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) * sqrt(%pi) *
erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(k + 1) + 0.168e3 * exp(b *
(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) -
x(k) * sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi) * x(k) ^ 5 * b ^ 4 - 0.252e3 *
exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) *
sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 5 * sqrt(%pi) * b ^ 3 - 0.140e3 * exp(b *
(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 1) ^ 4 *
erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * b ^ 3
- 0.80e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) *
x(k + 1) ^ 6 * b ^ (0.7e1 / 0.2e1) + 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 *
x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 2 * x(i) * x(i + 1) * b ^
(0.5e1 / 0.2e1) + 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 *
x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(k + 1) * x(k) - 0.210e3
* b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i
+ 1) * x(i) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(k +
1) + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i +
1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) *
x(i) ^ 3 * x(k) - 0.420e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1)
^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) *
sqrt(%pi) * x(k + 1) ^ 4 * x(k) - 0.80e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 *
x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 6 * b ^ (0.7e1 / 0.2e1) + 0.56e2 * b ^
(0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^
2)) * x(i) * x(k + 1) ^ 4 * x(k) + 0.140e3 * b ^ 3 * exp(b * (x(k) ^ 2 +
x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1)
* sqrt(b)) * x(i + 1) ^ 4 * sqrt(%pi) * x(k + 1) + 0.168e3 * b ^ (0.7e1 /
0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i
+ 1) ^ 4 * x(i) * x(k + 1) + 0.140e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2
+ x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) *
x(i) ^ 4 * sqrt(%pi) * x(k + 1) - 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b *
(x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 4 *
x(k) + 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i +
1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 6 *
sqrt(%pi) * x(k) - 0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 +
0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(k) ^ 2 * x(k + 1) +
0.212e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k
+ 1) ^ 4 * b ^ (0.5e1 / 0.2e1) - 0.66e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 *
x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 2 * b ^ (0.3e1 / 0.2e1) - 0.105e3 *
exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) *
sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * b - 0.14e2 *
exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) * x(i) *
b ^ (0.3e1 / 0.2e1) - 0.40e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) +
x(i + 1) ^ 2)) * x(k) ^ 2 * x(i) ^ 2 * b ^ (0.5e1 / 0.2e1) + 0.56e2 * exp(b
* (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(i)
* x(k) * b ^ (0.7e1 / 0.2e1) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k)
^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(k + 1) *
x(k) - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i +
1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 5 *
x(i) * sqrt(%pi) * x(k + 1) - 0.14e2 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k) ^
2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) * x(k) - 0.14e2 * b ^
(0.3e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^
2)) * x(i + 1) * x(k + 1) + 0.126e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k +
1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) * x(k + 1) + 0.112e3 *
b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i)
^ 2)) * x(i + 1) ^ 5 * x(k) + 0.364e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k)
^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 3 * x(k) +
0.140e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k
+ 1) ^ 4 * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) *
b ^ 3 + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i
+ 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(i
+ 1) * x(k + 1) ^ 5 * x(k) - 0.105e3 * b * exp(b * (x(k) ^ 2 + x(i) ^ 2 +
x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k) *
sqrt(b)) * x(k) - 0.105e3 * b * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2
+ x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) *
x(k + 1) - 0.210e3 * x(k + 1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2
+ x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) -
x(k) * sqrt(b)) + 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 +
x(i + 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b))
* b + 0.92e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2))
* x(k + 1) * x(i + 1) * b ^ (0.3e1 / 0.2e1) + 0.84e2 * exp(b * (x(k + 1) ^ 2
+ 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 3 * x(i + 1) * b ^ (0.5e1 /
0.2e1) - 0.92e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^
2)) * x(k + 1) * x(i) * b ^ (0.3e1 / 0.2e1) + 0.420e3 * exp(b * (x(k) ^ 2 +
x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1)
* sqrt(b)) * x(i) * sqrt(%pi) * x(i + 1) ^ 4 * b ^ 3 + 0.66e2 * exp(b *
(x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 2 * b ^
(0.3e1 / 0.2e1) + 0.66e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i
+ 1) ^ 2)) * x(k) ^ 2 * b ^ (0.3e1 / 0.2e1) + 0.252e3 * exp(b * (x(k) ^ 2 +
x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 1) ^ 5 * erf(x(i + 1) *
sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * b ^ 3 + 0.210e3 * b ^ 2 * exp(b
* (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) *
sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(k + 1) +
0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k)
+ x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * x(k) * x(k + 1) - 0.56e2 * b ^
(0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^
2)) * x(i) * x(k) ^ 4 * x(k + 1) + 0.168e3 * b ^ (0.5e1 / 0.2e1) * exp(b *
(x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) * x(k
+ 1) * x(k) + 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2
+ x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) *
x(k) ^ 6 * x(k + 1) - 0.420e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k +
1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) *
x(k) ^ 4 * x(k + 1) - 0.66e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) +
x(i + 1) ^ 2)) * x(k + 1) ^ 2 * b ^ (0.3e1 / 0.2e1) + 0.66e2 * exp(b * (x(k)
^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2 * b ^ (0.3e1 /
0.2e1) + 0.212e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^
2)) * x(i) ^ 4 * b ^ (0.5e1 / 0.2e1) - 0.252e3 * exp(b * (x(k) ^ 2 + x(i) ^
2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 1) ^ 5 * erf(x(i) * sqrt(b) - x(k
+ 1) * sqrt(b)) * sqrt(%pi) * b ^ 3 - 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2
+ x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) -
x(k) * sqrt(b)) * b + 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k +
1) + x(i) ^ 2)) * x(i + 1) * x(k + 1) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.112e3 *
exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) *
x(k + 1) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1
* x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 5 * x(k) * b ^ (0.7e1 / 0.2e1) +
0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i)
* x(k) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 *
x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) * x(k) ^ 5 * b ^ (0.7e1 / 0.2e1) -
0.48e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k
+ 1) ^ 3 * x(i + 1) * b ^ (0.5e1 / 0.2e1) + 0.92e2 * exp(b * (x(k + 1) ^ 2 +
0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) * x(i) * b ^ (0.3e1 / 0.2e1) +
0.126e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i
+ 1) * x(i) * b ^ (0.3e1 / 0.2e1) - 0.112e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1
* x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 5 * x(i) * b ^ (0.7e1 / 0.2e1) -
0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i
+ 1) ^ 3 * x(k) ^ 3 * b ^ (0.7e1 / 0.2e1) + 0.112e3 * exp(b * (x(k + 1) ^ 2
+ 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(k) ^ 5 * b ^ (0.7e1 /
0.2e1) + 0.80e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^
2)) * x(k + 1) ^ 6 * b ^ (0.7e1 / 0.2e1) + 0.56e2 * exp(b * (x(k) ^ 2 +
0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * x(k + 1) ^
2 * b ^ (0.7e1 / 0.2e1) - 0.66e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1)
* x(k) + x(i) ^ 2)) * x(i + 1) ^ 2 * b ^ (0.3e1 / 0.2e1) + 0.252e3 * exp(b *
(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) *
sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 5 * sqrt(%pi) * b ^ 3 - 0.80e2 *
exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 6 * b
^ (0.7e1 / 0.2e1) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 +
0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(i + 1) * x(k) ^ 3 * x(k + 1)
+ 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 6 * sqrt(%pi) * x(k) +
0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 6 * sqrt(%pi) * x(k + 1)
- 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1)
+ x(i + 1) ^ 2)) * x(i) ^ 2 * x(k + 1) * x(k) - 0.84e2 * exp(b * (x(k + 1) ^
2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 3 * x(i) * b ^ (0.5e1 /
0.2e1) - 0.126e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^
2)) * x(i + 1) * x(i) * b ^ (0.3e1 / 0.2e1) + 0.14e2 * exp(b * (x(k + 1) ^ 2
+ 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) * x(i + 1) * b ^ (0.3e1 /
0.2e1) + 0.210e3 * x(k + 1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 +
x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * sqrt(%pi) * erf(x(i + 1) *
sqrt(b) - x(k) * sqrt(b)) + 0.168e3 * x(k + 1) * x(k) * b ^ 4 * exp(b *
(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) -
x(k + 1) * sqrt(b)) * sqrt(%pi) * x(i) ^ 5 + 0.168e3 * x(k + 1) * x(k) * b ^
4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i +
1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 5 * sqrt(%pi) - 0.210e3 * x(k +
1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * x(i + 1) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) + 0.210e3
* x(k + 1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 +
x(i + 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b))
- 0.168e3 * x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k +
1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i
+ 1) ^ 5 * sqrt(%pi) + 0.280e3 * x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 2
+ x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) *
sqrt(b)) * x(i) ^ 4 * x(i + 1) * sqrt(%pi) + 0.140e3 * exp(b * (x(k) ^ 2 +
x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 1) ^ 4 * erf(x(i) * sqrt(b)
- x(k + 1) * sqrt(b)) * sqrt(%pi) * x(i) * b ^ 3 + 0.252e3 * exp(b * (x(k) ^
2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 5 * erf(x(i) * sqrt(b)
- x(k) * sqrt(b)) * sqrt(%pi) * b ^ 3 - 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 *
x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) * x(i + 1) * x(i) ^ 2 * b ^
(0.5e1 / 0.2e1) - 0.212e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1)
+ x(i) ^ 2)) * x(k + 1) ^ 4 * b ^ (0.5e1 / 0.2e1) - 0.168e3 * exp(b * (x(k)
^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k +
1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(i) * x(k + 1) ^ 5 * b ^ 4 + 0.40e2
* exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 2 *
x(i + 1) ^ 2 * b ^ (0.5e1 / 0.2e1) - 0.84e2 * exp(b * (x(k) ^ 2 + 0.2e1 *
x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 3 * x(i + 1) * b ^ (0.5e1 /
0.2e1) + 0.48e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^
2)) * x(k) ^ 3 * x(i + 1) * b ^ (0.5e1 / 0.2e1) + 0.112e3 * exp(b * (x(k) ^
2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k)
* sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k) ^ 6 * b ^ 4 - 0.112e3 * exp(b *
(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) -
x(k) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k) ^ 6 * b ^ 4 - 0.56e2 * exp(b *
(x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) * x(i) * x(i +
1) ^ 2 * b ^ (0.5e1 / 0.2e1) + 0.252e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k
+ 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) *
sqrt(%pi) * x(i) ^ 5 * b ^ 3 - 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k
+ 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k)
* sqrt(b)) * b - 0.212e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i
+ 1) ^ 2)) * x(i) ^ 4 * b ^ (0.5e1 / 0.2e1) + 0.212e3 * exp(b * (x(k + 1) ^
2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 4 * b ^ (0.5e1 /
0.2e1) + 0.14e2 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1)
* x(k + 1) + x(i) ^ 2)) * x(i + 1) * x(k) - 0.112e3 * b ^ (0.7e1 / 0.2e1) *
exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 5 *
x(k) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i +
1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(i) * x(k
+ 1) ^ 3 * x(k) + 0.420e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1)
^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi)
* x(k + 1) ^ 4 * x(k) - 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k
+ 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i)
^ 6 * sqrt(%pi) * x(k) + 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 +
0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(i + 1) * x(k) -
0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * sqrt(%pi) * x(k + 1)
^ 5 * x(k) - 0.144e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i +
1) ^ 2)) * sqrt(b) + 0.80e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) *
x(k) + x(i) ^ 2)) * x(k) ^ 6 * b ^ (0.7e1 / 0.2e1) - 0.112e3 * b ^ (0.7e1 /
0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i)
* x(i + 1) ^ 3 * x(k) * x(k + 1) - 0.105e3 * b * exp(b * (x(k) ^ 2 + x(i) ^
2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k +
1) * sqrt(b)) * x(k) + 0.105e3 * b * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1)
^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) *
x(k) - 0.280e3 * x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 +
x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) *
x(i + 1) ^ 4 * x(i) * sqrt(%pi) + 0.210e3 * x(k + 1) * x(k) * b ^ 2 * exp(b
* (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) *
sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) + 0.56e2 * exp(b * (x(k
+ 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 2 * x(i + 1) * x(i)
* b ^ (0.5e1 / 0.2e1) + 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2
+ x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi)
* x(k + 1) ^ 7 * b ^ 4 + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 +
x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) *
x(i + 1) ^ 3 * x(i) * sqrt(%pi) * x(k + 1) - 0.210e3 * b ^ 2 * exp(b * (x(k)
^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) * sqrt(%pi)
* erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(k) - 0.168e3 * b ^ 4 * exp(b
* (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) *
sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k) ^ 5 * x(k + 1) +
0.105e3 * b * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) *
sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(k + 1) - 0.56e2
* b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) +
x(i) ^ 2)) * x(i + 1) ^ 3 * x(k + 1) ^ 2 * x(k) + 0.210e3 * b ^ 2 * exp(b *
(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) *
sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(k) - 0.280e3 * x(k + 1)
* x(k) * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 4 * x(i + 1) *
sqrt(%pi) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 +
x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i) * sqrt(%pi)
* x(k) ^ 3 * x(k + 1) + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k
+ 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1)
* sqrt(%pi) * x(k) ^ 3 * x(k + 1) + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 +
x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1)
* sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k + 1) ^ 3 * x(k) - 0.56e2 * b ^
(0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^
2)) * x(i + 1) * x(k + 1) ^ 4 * x(k) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b
* (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 2 * x(k) ^ 3
* x(k + 1) - 0.224e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 *
x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(k + 1) - 0.168e3 * x(k + 1) * x(k) *
b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) *
erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 5 * sqrt(%pi) - 0.210e3 * x(k
+ 1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1)
^ 2)) * x(i + 1) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b))
+ 0.210e3 * x(k + 1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k +
1) ^ 2 + x(i + 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) *
sqrt(b)) - 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^
2)) * x(i + 1) * x(i) ^ 3 * x(k) ^ 2 * b ^ (0.7e1 / 0.2e1) - 0.212e3 * exp(b
* (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 4 * b ^
(0.5e1 / 0.2e1) + 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 +
x(i + 1) ^ 2)) * x(i + 1) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k) *
sqrt(b)) * b - 0.364e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) +
x(i) ^ 2)) * x(i) * x(i + 1) ^ 3 * b ^ (0.5e1 / 0.2e1) + 0.48e2 * exp(b *
(x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) * x(i + 1) ^ 3 *
b ^ (0.5e1 / 0.2e1) - 0.48e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k +
1) + x(i) ^ 2)) * x(k + 1) * x(i + 1) ^ 3 * b ^ (0.5e1 / 0.2e1) - 0.105e3 *
b * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi)
* erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(k + 1) + 0.196e3 * b ^ (0.5e1
/ 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) *
x(i + 1) ^ 2 * x(i) * x(k + 1) + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i)
^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) *
sqrt(b)) * x(i) ^ 5 * x(i + 1) * sqrt(%pi) * x(k + 1) - 0.280e3 * b ^ 3 *
exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) ^ 3
* x(i) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(k) +
0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) +
x(i + 1) ^ 2)) * x(i) ^ 4 * x(k + 1) * x(k) - 0.56e2 * b ^ (0.7e1 / 0.2e1) *
exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2
* x(k + 1) ^ 3 * x(k) + 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^
2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i) *
sqrt(%pi) * x(k) ^ 6 * b ^ 4 - 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k
+ 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i +
1) ^ 6 * x(i) * sqrt(%pi) * b ^ 4 - 0.140e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 +
x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 4 * erf(x(i) * sqrt(b) - x(k) *
sqrt(b)) * x(i) * sqrt(%pi) * b ^ 3 - 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2
+ x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) *
sqrt(%pi) * x(k + 1) ^ 7 * b ^ 4 - 0.252e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 +
x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b))
* x(i + 1) ^ 5 * sqrt(%pi) * b ^ 3 + 0.420e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2
+ x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) *
x(i) ^ 4 * x(i + 1) * sqrt(%pi) * b ^ 3 + 0.168e3 * exp(b * (x(k) ^ 2 + x(i)
^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) *
sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi) * x(k + 1) ^ 5 * b ^ 4 - 0.112e3 *
exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1)
* sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * sqrt(%pi) * x(k + 1) ^ 6 * b ^ 4 -
0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) *
erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 7 * sqrt(%pi) * b
^ 4 - 0.140e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2))
* x(k + 1) ^ 4 * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) *
sqrt(%pi) * b ^ 3 - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 +
0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 5 * x(k + 1) + 0.112e3 *
exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) *
sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k + 1) ^ 6 * b ^ 4
+ 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) *
x(i) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * b - 0.56e2 *
exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) *
x(i) ^ 2 * x(k) ^ 3 * b ^ (0.7e1 / 0.2e1) - 0.84e2 * b ^ (0.5e1 / 0.2e1) *
exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 3 *
x(k) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) *
x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 5 * x(k) - 0.224e3 * b ^ (0.3e1 /
0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i
+ 1) * x(k) + 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 *
x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 5 * x(k) - 0.112e3 * b ^
(0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^
2)) * x(k) ^ 5 * x(k + 1) - 0.126e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k +
1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) * x(k + 1) - 0.112e3 *
exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) *
sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 6 * x(i + 1) * sqrt(%pi) * b ^ 4 -
0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i
+ 1) ^ 4 * x(k) ^ 2 * b ^ (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k) ^ 2 +
0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(k + 1) ^ 2 * b ^
(0.7e1 / 0.2e1) + 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) +
x(i) ^ 2)) * x(i + 1) ^ 3 * x(k + 1) ^ 3 * b ^ (0.7e1 / 0.2e1) - 0.48e2 *
exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) * x(i) ^
3 * b ^ (0.5e1 / 0.2e1) + 0.84e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) *
x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 3 * x(i) * b ^ (0.5e1 / 0.2e1) + 0.48e2 *
exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 3
* x(i) * b ^ (0.5e1 / 0.2e1) + 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k +
1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^
7 * sqrt(%pi) * b ^ 4 - 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k
+ 1) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(i) * x(k + 1) * b ^ (0.7e1 / 0.2e1) +
0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i
+ 1) * x(i) * x(k + 1) ^ 4 * b ^ (0.7e1 / 0.2e1) - 0.56e2 * exp(b * (x(k) ^
2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 2 * x(k +
1) ^ 3 * b ^ (0.7e1 / 0.2e1) - 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k
+ 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) *
sqrt(%pi) * x(i + 1) * x(k + 1) ^ 6 * b ^ 4 + 0.56e2 * b ^ (0.7e1 / 0.2e1) *
exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 2 *
x(k + 1) ^ 3 * x(k) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 +
0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * x(k + 1) *
x(k) - 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i +
1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(k +
1) ^ 6 * x(k) - 0.140e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^
2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 4
* sqrt(%pi) * x(k + 1) + 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^
2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(k) ^ 3 * x(k +
1) + 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) *
x(k) + x(i + 1) ^ 2)) * x(i) * x(k) ^ 2 * x(k + 1) - 0.196e3 * b ^ (0.5e1 /
0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i
+ 1) * x(i) ^ 2 * x(k + 1) - 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2
+ x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) *
x(i + 1) ^ 6 * sqrt(%pi) * x(k) - 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i)
* x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 2 * x(i + 1) * x(i) * b ^ (0.5e1 /
0.2e1) + 0.112e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^
2)) * x(i) * x(k + 1) ^ 5 * b ^ (0.7e1 / 0.2e1) + 0.112e3 * b ^ 4 * exp(b *
(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) -
x(k + 1) * sqrt(b)) * sqrt(%pi) * x(k + 1) ^ 6 * x(k) + 0.56e2 * b ^ (0.7e1
/ 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) *
x(i + 1) * x(k) ^ 4 * x(k + 1) + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i)
^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) *
x(i + 1) * sqrt(%pi) * x(k) ^ 5 * x(k + 1) + 0.112e3 * b ^ (0.7e1 / 0.2e1) *
exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) *
x(i) * x(k) ^ 3 * x(k + 1) - 0.210e3 * x(k + 1) * x(k) * b ^ 2 * exp(b *
(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i) * sqrt(%pi) *
erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) - 0.168e3 * exp(b * (x(k) ^ 2 +
x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) *
sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi) * x(k) ^ 5 * b ^ 4 + 0.32e2 * exp(b *
(x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 3 * x(k) ^ 3 *
b ^ (0.7e1 / 0.2e1) - 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 +
0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) * x(k + 1) ^ 2 * x(k) -
0.280e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi) *
x(k) ^ 4 * x(k + 1) - 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2
+ 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(i + 1) * x(k + 1) -
0.112e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) *
x(i) * x(k) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.112e3 * exp(b * (x(k) ^ 2 + 0.2e1
* x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 5 * b ^ (0.7e1 /
0.2e1) - 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^
2)) * x(i) * x(k + 1) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k + 1)
^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(k) ^ 4 * b ^
(0.7e1 / 0.2e1) + 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i
+ 1) ^ 2)) * x(i + 1) * x(i) ^ 2 * x(k + 1) ^ 3 * b ^ (0.7e1 / 0.2e1) +
0.80e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i
+ 1) ^ 6 * b ^ (0.7e1 / 0.2e1) + 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) *
x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 4 * x(k + 1) * b ^ (0.7e1 /
0.2e1) + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i
+ 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * sqrt(%pi)
* x(k + 1) ^ 3 * x(k) - 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2
+ x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) *
x(k) ^ 7 * b ^ 4 + 0.168e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 +
0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) * x(i) * x(k) * x(k + 1) -
0.168e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k +
1) + x(i) ^ 2)) * x(i + 1) * x(i) * x(k + 1) * x(k) + 0.168e3 * b ^ (0.7e1 /
0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i)
* x(k) ^ 4 * x(k + 1) - 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2
+ 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(k) * x(k + 1) -
0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) *
erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * x(i) * x(k) ^ 6 * b ^ 4 -
0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k +
1) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(i) * x(k) + 0.140e3 * b ^ 3 * exp(b *
(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) *
sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 4 * sqrt(%pi) * x(k) + 0.168e3 *
b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) *
erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 5 * x(i) * sqrt(%pi) *
x(k) + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i +
1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) * sqrt(%pi) * x(k) ^
5 * x(k + 1) - 0.140e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2
+ x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) *
x(i) ^ 4 * x(k) + 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i
+ 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * x(k) ^ 7 * b
^ 4 + 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2))
* erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 7 * sqrt(%pi) * b ^
4 - 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) *
x(i) ^ 2 * x(k + 1) ^ 4 * b ^ (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k) ^ 2 +
0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 3 * x(k + 1) ^ 3 * b ^
(0.7e1 / 0.2e1) + 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) +
x(i) ^ 2)) * x(i + 1) ^ 4 * x(k + 1) ^ 2 * b ^ (0.7e1 / 0.2e1) + 0.32e2 *
exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 2 *
x(k) ^ 4 * b ^ (0.7e1 / 0.2e1) + 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 *
x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(i) * x(k) ^ 3 * b ^ (0.7e1 /
0.2e1) + 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 6 * x(i + 1) * sqrt(%pi)
* b ^ 4 - 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^
2)) * x(i + 1) * x(i) * x(k + 1) ^ 4 * b ^ (0.7e1 / 0.2e1) + 0.112e3 * exp(b
* (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b)
- x(k + 1) * sqrt(b)) * sqrt(%pi) * x(i) * x(k + 1) ^ 6 * b ^ 4 + 0.112e3 *
b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) *
erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 6 * sqrt(%pi) *
x(k + 1) + 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 *
x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 2 * x(k) ^ 2 * x(k + 1) +
0.280e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^
2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi)
* x(k) ^ 4 * x(k + 1) - 0.140e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k
+ 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i +
1) ^ 4 * sqrt(%pi) * x(k) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 +
x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i) ^ 3 * x(i + 1) * sqrt(%pi) * erf(x(i) *
sqrt(b) - x(k) * sqrt(b)) * x(k + 1)) * b ^ (-0.9e1 / 0.2e1) / (x(i + 1) ^ 2
* x(k + 1) ^ 2 - 0.2e1 * x(i + 1) ^ 2 * x(k + 1) * x(k) + x(i + 1) ^ 2 *
x(k) ^ 2 - 0.2e1 * x(i + 1) * x(k + 1) ^ 2 * x(i) + 0.4e1 * x(i + 1) * x(i)
* x(k + 1) * x(k) - 0.2e1 * x(i + 1) * x(i) * x(k) ^ 2 + x(i) ^ 2 * x(k + 1)
^ 2 - 0.2e1 * x(i) ^ 2 * x(k + 1) * x(k) + x(i) ^ 2 * x(k) ^ 2) / 0.6720e4;

2011/10/3 Mike Page <Mike at page-one.waitrose.com>

> **
> Can you post some code that shows the problem?
>
> Sounds like maybe you are creating a string instead of a numeric matrix.
>
> Regards,
> Mike.
>
>
> -----Original Message-----
> *From:* severine.pl [mailto:severine.pl at gmail.com]
> *Sent:* 03 October 2011 14:10
> *To:* users at lists.scilab.org
> *Subject:* [scilab-Users] too large string
>
> Hi!
>
> I woulf like to find an answer to my problem.
>
> I'm doing very big calculus in scilab, and calculating very big matrix.
> And when i'm trying to executing the programm, Scilab says me:
>
> "Too large string"
>
> What must I do?
>
> S?verine Paul
>
> ------------------------------
> View this message in context: too large string<http://mailinglists.scilab.org/too-large-string-tp3389713p3389713.html>
> Sent from the Scilab users - Mailing Lists Archives mailing list archive<http://mailinglists.scilab.org/Scilab-users-Mailing-Lists-Archives-f2602246.html>at Nabble.com.
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111003/a41f703e/attachment.htm>

From mathieu.dubois at limsi.fr  Mon Oct  3 16:53:29 2011
From: mathieu.dubois at limsi.fr (Mathieu Dubois)
Date: Mon, 03 Oct 2011 16:53:29 +0200
Subject: [scilab-Users] too large string
In-Reply-To: <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com>
References: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com> <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com> <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com>
Message-ID: <4E89CC69.6090404@limsi.fr>

Hello,

I think the error is self-explanatory.

You could try to break-up your command, this would increase readability 
(although I guess your command is generated by some program).
Also you could try to express it in some vectorized form to make it more 
concise.

Mathieu

On 10/03/2011 03:53 PM, S?verine Paul wrote:
> Hi again,
>
> this is the answer of scilab:
>
> Command is too long (more than 512 characters long): could not send it 
> to Scilab
>
> and below is the command. It is actually quite long, but I didn't know 
> that this could be a problem. In Maple (from which this comes), there 
> is no problem
>
> Thanks for your help.
> S?verine.
>
> J(i,k) =
> -exp(-b*(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> (-0.144e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 
> 2)) * sqrt(b) + 0.144e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) 
> + x(i + 1) ^ 2)) * sqrt(b) - 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * 
> x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 2 * x(i) * x(i + 1) * b ^ (0.5e1 
> / 0.2e1) - 0.66e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i 
> + 1) ^ 2)) * x(i) ^ 2 * b ^ (0.3e1 / 0.2e1) - 0.420e3 * exp(b * (x(k) 
> ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - 
> x(k + 1) * sqrt(b)) * x(i) ^ 4 * x(i + 1) * sqrt(%pi) * b ^ 3 - 
> 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(i) * x(k + 1) ^ 4 * x(k) + 0.32e2 * exp(b * 
> (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 5 * x(k) 
> * b ^ (0.7e1 / 0.2e1) + 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) 
> * x(k) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(k) ^ 2 * b ^ (0.7e1 / 0.2e1) + 
> 0.112e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) 
> * x(i) ^ 5 * x(i + 1) * b ^ (0.7e1 / 0.2e1) + 0.112e3 * exp(b * (x(k) 
> ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 5 * 
> b ^ (0.7e1 / 0.2e1) + 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 5 * x(k + 1) * b ^ (0.7e1 / 0.2e1) 
> - 0.126e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 
> 2)) * x(i + 1) * x(i) * b ^ (0.3e1 / 0.2e1) + 0.48e2 * exp(b * (x(k) ^ 
> 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) * x(i) ^ 3 * b 
> ^ (0.5e1 / 0.2e1) + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) ^ 5 * x(i) * sqrt(%pi) * x(k + 1) + 0.196e3 * b ^ 
> (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 
> 1) ^ 2)) * x(i + 1) * x(i) ^ 2 * x(k) - 0.56e2 * b ^ (0.5e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 
> 1) * x(k) ^ 2 * x(k + 1) + 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) * x(k 
> + 1) ^ 2 * x(k) + 0.280e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k 
> + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * 
> x(i + 1) * sqrt(%pi) * x(i) * x(k + 1) ^ 4 * x(k) - 0.112e3 * b ^ 4 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 6 * sqrt(%pi) * x(k 
> + 1) + 0.40e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) 
> ^ 2)) * x(k + 1) ^ 2 * x(i) ^ 2 * b ^ (0.5e1 / 0.2e1) - 0.14e2 * exp(b 
> * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) * 
> x(i + 1) * b ^ (0.3e1 / 0.2e1) - 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 
> 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * b + 0.212e3 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 4 * b ^ (0.5e1 / 0.2e1) 
> - 0.212e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 
> 2)) * x(k) ^ 4 * b ^ (0.5e1 / 0.2e1) - 0.48e2 * exp(b * (x(k + 1) ^ 2 
> + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 3 * x(i) * b ^ (0.5e1 
> / 0.2e1) + 0.364e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + 
> x(i) ^ 2)) * x(i) * x(i + 1) ^ 3 * b ^ (0.5e1 / 0.2e1) - 0.140e3 * b ^ 
> 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(i) ^ 4 * x(k 
> + 1) - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + 
> x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * 
> sqrt(%pi) * x(k + 1) ^ 5 * x(k) + 0.140e3 * exp(b * (x(k) ^ 2 + x(i) ^ 
> 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 4 * erf(x(i + 1) * sqrt(b) 
> - x(k) * sqrt(b)) * x(i) * sqrt(%pi) * b ^ 3 + 0.56e2 * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) * x(i + 1) * x(i) 
> ^ 2 * b ^ (0.5e1 / 0.2e1) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) 
> * x(k + 1) ^ 3 * x(k) - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 
> + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) 
> * x(i) ^ 5 * x(i + 1) * sqrt(%pi) * x(k + 1) - 0.168e3 * b ^ (0.5e1 / 
> 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) 
> * x(i + 1) * x(i) * x(k) * x(k + 1) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 
> 3 * x(k) ^ 2 * x(k + 1) - 0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * x(k + 1) 
> ^ 2 * x(k) - 0.210e3 * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) 
> ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) * sqrt(%pi) * erf(x(i) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(k) + 0.112e3 * b ^ (0.7e1 / 0.2e1) * 
> exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * 
> x(i + 1) ^ 3 * x(k + 1) * x(k) + 0.144e3 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * sqrt(b) - 0.252e3 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 5 * 
> erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * b ^ 3 + 0.280e3 
> * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 3 * x(i) * 
> sqrt(%pi) * x(k) + 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) * x(i) * x(k + 1) 
> ^ 3 * x(k) + 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 2 * x(k) * x(k + 1) - 
> 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k 
> + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 2 * x(k + 1) ^ 2 * x(k) + 
> 0.210e3 * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * x(i + 1) * x(i) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k 
> + 1) * sqrt(b)) * x(k) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k 
> + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 2 
> * x(k) ^ 2 * x(k + 1) - 0.40e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) 
> * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 2 * x(i + 1) ^ 2 * b ^ (0.5e1 / 
> 0.2e1) - 0.364e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 
> 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * b ^ (0.5e1 / 0.2e1) - 0.140e3 * exp(b 
> * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 4 * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * sqrt(%pi) * b ^ 3 + 
> 0.140e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * x(k) ^ 4 * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * 
> sqrt(%pi) * b ^ 3 + 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(k + 1) * x(i) * x(i + 1) ^ 2 * b ^ (0.5e1 / 
> 0.2e1) - 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 
> 1) ^ 2)) * x(i) ^ 4 * x(i + 1) * x(k) * b ^ (0.7e1 / 0.2e1) + 0.112e3 
> * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 6 * x(i) * 
> sqrt(%pi) * b ^ 4 - 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * 
> sqrt(%pi) * x(k) ^ 6 * x(k + 1) + 0.224e3 * b ^ (0.3e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 
> 1) * x(k + 1) + 0.14e2 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) * x(k + 1) + 0.112e3 * b ^ 
> (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 
> 1) ^ 2)) * x(k) ^ 5 * x(k + 1) + 0.56e2 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 3 * x(i) * x(k) ^ 2 
> * b ^ (0.7e1 / 0.2e1) + 0.66e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) 
> * x(k) + x(i + 1) ^ 2)) * x(i) ^ 2 * b ^ (0.3e1 / 0.2e1) - 0.56e2 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 
> 1) * x(i) * x(k) ^ 4 * b ^ (0.7e1 / 0.2e1) + 0.364e3 * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * 
> b ^ (0.5e1 / 0.2e1) - 0.92e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 
> 1) * x(k) + x(i) ^ 2)) * x(k) * x(i + 1) * b ^ (0.3e1 / 0.2e1) + 
> 0.126e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) 
> * x(i + 1) * x(i) * b ^ (0.3e1 / 0.2e1) - 0.56e2 * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 3 * x(k + 
> 1) ^ 2 * b ^ (0.7e1 / 0.2e1) + 0.14e2 * exp(b * (x(k) ^ 2 + 0.2e1 * 
> x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) * x(i) * b ^ (0.3e1 / 
> 0.2e1) - 0.80e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + 
> x(i) ^ 2)) * x(i + 1) ^ 6 * b ^ (0.7e1 / 0.2e1) + 0.80e2 * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 6 * b ^ 
> (0.7e1 / 0.2e1) + 0.105e3 * b * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 
> 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * 
> sqrt(b)) * x(k + 1) + 0.126e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k) ^ 
> 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) * x(k)+0.84e2 
> * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 
> 1) + x(i) ^ 2)) * x(i + 1) ^ 3 * x(k) + 0.112e3 * b ^ (0.7e1 / 0.2e1) 
> * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) 
> ^ 5 * x(k + 1) - 0.126e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) * x(k) - 0.364e3 * 
> b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) 
> + x(i) ^ 2)) * x(k) ^ 3 * x(k + 1) + 0.364e3 * b ^ (0.5e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 
> 3 * x(k + 1) + 0.84e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 3 * x(k + 1) - 0.364e3 * 
> b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + 
> x(i + 1) ^ 2)) * x(k + 1) ^ 3 * x(k) + 0.224e3 * b ^ (0.3e1 / 0.2e1) * 
> exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * 
> x(k) - 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) 
> ^ 2)) * x(i) ^ 5 * x(k + 1) * b ^ (0.7e1 / 0.2e1) + 0.56e2 * exp(b * 
> (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) * x(i) 
> * x(k) ^ 4 * b ^ (0.7e1 / 0.2e1) - 0.420e3 * exp(b * (x(k) ^ 2 + x(i) 
> ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) ^ 4 * x(i) * sqrt(%pi) * b ^ 3 - 0.80e2 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * 
> sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 7 * sqrt(%pi) * b ^ 4 + 0.280e3 * 
> x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 
> + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) 
> * sqrt(%pi) * x(i + 1) ^ 4 - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i) ^ 5 * x(i + 1) * sqrt(%pi) * x(k) - 0.168e3 * b ^ 
> (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 
> 1) ^ 2)) * x(i + 1) * x(k) ^ 4 * x(k + 1) + 0.56e2 * b ^ (0.7e1 / 
> 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) 
> * x(i) ^ 3 * x(k + 1) ^ 2 * x(k) + 0.105e3 * b * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(k) + 0.56e2 * b ^ (0.7e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 
> 1) ^ 3 * x(k) ^ 2 * x(k + 1) + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 
> 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(i) ^ 3 * x(k + 1) + 0.140e3 * 
> b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 4 * sqrt(%pi) * x(k) + 
> 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * 
> sqrt(%pi) * x(k + 1) ^ 5 * x(k) + 0.196e3 * b ^ (0.5e1 / 0.2e1) * 
> exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 
> 1) * x(k + 1) ^ 2 * x(k) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k 
> + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(k) * 
> x(k + 1) + 0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(k) ^ 2 * x(k + 1) + 
> 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(i + 1) ^ 2 * x(k + 1) ^ 4 * b ^ (0.7e1 / 0.2e1) + 0.280e3 * b ^ 3 
> * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) * sqrt(%pi) * x(k) ^ 3 * 
> x(k + 1) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 
> 2 + x(i + 1) ^ 2)) * x(i + 1) ^ 3 * x(i) * sqrt(%pi) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(k + 1) - 0.168e3 * b ^ 4 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 5 * x(i) * sqrt(%pi) * x(k) 
> + 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) 
> * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(i) * x(k + 1) ^ 2 * x(k) - 
> 0.280e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * 
> x(i) * sqrt(%pi) * x(k + 1) ^ 4 * x(k) - 0.112e3 * b ^ 4 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * 
> sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 6 * sqrt(%pi) * x(k + 1) + 
> 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * x(i + 1) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * b 
> - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * x(i) ^ 3 * x(i + 1) * sqrt(%pi) * erf(x(i) * sqrt(b) - 
> x(k) * sqrt(b)) * x(k) + 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(k) * 
> x(k + 1) + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 
> 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 
> 5 * x(i + 1) * sqrt(%pi) * x(k) + 0.210e3 * b ^ 2 * exp(b * (x(k) ^ 2 
> + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) * 
> sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(k + 1) + 0.168e3 
> * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + 
> x(i + 1) ^ 2)) * x(i + 1) * x(k + 1) ^ 4 * x(k) - 0.84e2 * b ^ (0.5e1 
> / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 
> 2)) * x(i + 1) ^ 3 * x(k + 1) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - 
> x(k) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k) ^ 3 * x(k + 1) + 0.420e3 
> * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * x(k) ^ 4 * 
> x(k + 1) - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 
> 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i) * 
> sqrt(%pi) * x(k) ^ 5 * x(k + 1) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 
> + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k 
> + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k + 1) ^ 3 * x(k) - 0.210e3 
> * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * x(i + 1) * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * 
> sqrt(b)) * x(k + 1) + 0.168e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 
> 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i + 
> 1) * x(i) * sqrt(%pi) * x(k) ^ 5 * b ^ 4 - 0.252e3 * exp(b * (x(k) ^ 2 
> + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) 
> * sqrt(b)) * x(i) ^ 5 * sqrt(%pi) * b ^ 3 - 0.140e3 * exp(b * (x(k) ^ 
> 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 1) ^ 4 * erf(x(i 
> + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * b ^ 3 - 
> 0.80e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(k + 1) ^ 6 * b ^ (0.7e1 / 0.2e1) + 0.56e2 * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 2 * x(i) * x(i + 
> 1) * b ^ (0.5e1 / 0.2e1) + 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2 * 
> x(k + 1) * x(k) - 0.210e3 * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k 
> + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) * sqrt(%pi) * erf(x(i + 1) 
> * sqrt(b) - x(k) * sqrt(b)) * x(k + 1) + 0.280e3 * b ^ 3 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(i) ^ 3 * x(k) 
> - 0.420e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) 
> * x(k + 1) ^ 4 * x(k) - 0.80e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) 
> * x(k) + x(i + 1) ^ 2)) * x(i) ^ 6 * b ^ (0.7e1 / 0.2e1) + 0.56e2 * b 
> ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i 
> + 1) ^ 2)) * x(i) * x(k + 1) ^ 4 * x(k) + 0.140e3 * b ^ 3 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 4 * sqrt(%pi) * x(k + 1) + 
> 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 
> 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(i) * x(k + 1) + 0.140e3 * b 
> ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 4 * sqrt(%pi) * x(k + 1) 
> - 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) 
> * x(k + 1) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 4 * x(k) + 0.112e3 * b ^ 4 
> * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 6 * 
> sqrt(%pi) * x(k) - 0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 
> 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(k) ^ 2 * x(k + 
> 1) + 0.212e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) 
> ^ 2)) * x(k + 1) ^ 4 * b ^ (0.5e1 / 0.2e1) - 0.66e2 * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 2 * b ^ (0.3e1 
> / 0.2e1) - 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * x(i + 1) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) 
> * sqrt(b)) * b - 0.14e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k) + x(i) ^ 2)) * x(k) * x(i) * b ^ (0.3e1 / 0.2e1) - 0.40e2 * exp(b 
> * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 2 * 
> x(i) ^ 2 * b ^ (0.5e1 / 0.2e1) + 0.56e2 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(i) * x(k) * b 
> ^ (0.7e1 / 0.2e1) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(k + 1) * 
> x(k) - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + 
> x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 
> 1) ^ 5 * x(i) * sqrt(%pi) * x(k + 1) - 0.14e2 * b ^ (0.3e1 / 0.2e1) * 
> exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) * 
> x(k) - 0.14e2 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * 
> x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) * x(k + 1) + 0.126e3 * b ^ 
> (0.3e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + 
> x(i) ^ 2)) * x(k) * x(k + 1) + 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 5 * 
> x(k) + 0.364e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i 
> + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 3 * x(k) + 0.140e3 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 1) ^ 4 * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * b ^ 
> 3 + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + 
> x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * 
> sqrt(%pi) * x(i + 1) * x(k + 1) ^ 5 * x(k) - 0.105e3 * b * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * 
> erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(k) - 0.105e3 * b * exp(b 
> * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(k + 1) - 0.210e3 * x(k + 
> 1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) + 
> 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * b + 
> 0.92e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(k + 1) * x(i + 1) * b ^ (0.3e1 / 0.2e1) + 0.84e2 * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 3 * x(i + 1) * 
> b ^ (0.5e1 / 0.2e1) - 0.92e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k 
> + 1) + x(i + 1) ^ 2)) * x(k + 1) * x(i) * b ^ (0.3e1 / 0.2e1) + 
> 0.420e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * sqrt(%pi) * 
> x(i + 1) ^ 4 * b ^ 3 + 0.66e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 2 * b ^ (0.3e1 / 0.2e1) + 0.66e2 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 
> 2 * b ^ (0.3e1 / 0.2e1) + 0.252e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k 
> + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 1) ^ 5 * erf(x(i + 1) * sqrt(b) - 
> x(k + 1) * sqrt(b)) * sqrt(%pi) * b ^ 3 + 0.210e3 * b ^ 2 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) 
> * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(k + 1) 
> + 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) 
> * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * x(k) * x(k + 1) - 
> 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * 
> x(k) + x(i + 1) ^ 2)) * x(i) * x(k) ^ 4 * x(k + 1) + 0.168e3 * b ^ 
> (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 
> 1) ^ 2)) * x(i + 1) * x(i) * x(k + 1) * x(k) + 0.112e3 * b ^ 4 * exp(b 
> * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) 
> * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * x(k) ^ 6 * x(k + 1) - 
> 0.420e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * x(k) ^ 4 
> * x(k + 1) - 0.66e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + 
> x(i + 1) ^ 2)) * x(k + 1) ^ 2 * b ^ (0.3e1 / 0.2e1) + 0.66e2 * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2 * 
> b ^ (0.3e1 / 0.2e1) + 0.212e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k 
> + 1) + x(i + 1) ^ 2)) * x(i) ^ 4 * b ^ (0.5e1 / 0.2e1) - 0.252e3 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 
> 1) ^ 5 * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * b ^ 3 
> - 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 
> 2)) * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * b + 
> 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(i + 1) * x(k + 1) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.112e3 * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(k 
> + 1) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 5 * x(k) * b ^ 
> (0.7e1 / 0.2e1) + 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) 
> + x(i + 1) ^ 2)) * x(i) * x(k) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.32e2 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 
> 1) * x(k) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.48e2 * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 3 * x(i + 1) * b 
> ^ (0.5e1 / 0.2e1) + 0.92e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * 
> x(k) + x(i + 1) ^ 2)) * x(k) * x(i) * b ^ (0.3e1 / 0.2e1) + 0.126e3 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 
> 1) * x(i) * b ^ (0.3e1 / 0.2e1) - 0.112e3 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 5 * x(i) * b ^ 
> (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k) + x(i) ^ 2)) * x(i + 1) ^ 3 * x(k) ^ 3 * b ^ (0.7e1 / 0.2e1) + 
> 0.112e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) 
> * x(i + 1) * x(k) ^ 5 * b ^ (0.7e1 / 0.2e1) + 0.80e2 * exp(b * (x(k) ^ 
> 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 6 * b ^ 
> (0.7e1 / 0.2e1) + 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) 
> + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * x(k + 1) ^ 2 * b ^ (0.7e1 / 
> 0.2e1) - 0.66e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + 
> x(i) ^ 2)) * x(i + 1) ^ 2 * b ^ (0.3e1 / 0.2e1) + 0.252e3 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * 
> sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 5 * sqrt(%pi) * b ^ 3 - 0.80e2 
> * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) 
> ^ 6 * b ^ (0.7e1 / 0.2e1) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * 
> (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(i + 1) 
> * x(k) ^ 3 * x(k + 1) + 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 
> + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) 
> * x(i) ^ 6 * sqrt(%pi) * x(k) + 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i) ^ 6 * sqrt(%pi) * x(k + 1) - 0.56e2 * b ^ (0.5e1 / 
> 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) 
> * x(i) ^ 2 * x(k + 1) * x(k) - 0.84e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 
> * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 3 * x(i) * b ^ (0.5e1 / 0.2e1) 
> - 0.126e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 
> 2)) * x(i + 1) * x(i) * b ^ (0.3e1 / 0.2e1) + 0.14e2 * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) * x(i + 1) * b ^ 
> (0.3e1 / 0.2e1) + 0.210e3 * x(k + 1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 
> 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * sqrt(%pi) * 
> erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) + 0.168e3 * x(k + 1) * x(k) * 
> b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(i) ^ 5 + 
> 0.168e3 * x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k 
> + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * 
> x(i + 1) ^ 5 * sqrt(%pi) - 0.210e3 * x(k + 1) * x(k) * b ^ 2 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * 
> sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) + 0.210e3 * x(k + 1) 
> * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) 
> - 0.168e3 * x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * 
> sqrt(b)) * x(i + 1) ^ 5 * sqrt(%pi) + 0.280e3 * x(k + 1) * x(k) * b ^ 
> 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 4 * x(i + 1) * sqrt(%pi) 
> + 0.140e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 
> 2)) * x(k + 1) ^ 4 * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * 
> sqrt(%pi) * x(i) * b ^ 3 + 0.252e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 5 * erf(x(i) * sqrt(b) - x(k) * 
> sqrt(b)) * sqrt(%pi) * b ^ 3 - 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * 
> x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) * x(i + 1) * x(i) ^ 2 * b 
> ^ (0.5e1 / 0.2e1) - 0.212e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 4 * b ^ (0.5e1 / 0.2e1) - 0.168e3 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(i) 
> * x(k + 1) ^ 5 * b ^ 4 + 0.40e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i 
> + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 2 * x(i + 1) ^ 2 * b ^ (0.5e1 / 
> 0.2e1) - 0.84e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 
> 1) ^ 2)) * x(k + 1) ^ 3 * x(i + 1) * b ^ (0.5e1 / 0.2e1) + 0.48e2 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 
> 3 * x(i + 1) * b ^ (0.5e1 / 0.2e1) + 0.112e3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - 
> x(k) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k) ^ 6 * b ^ 4 - 0.112e3 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k) ^ 6 
> * b ^ 4 - 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + 
> x(i) ^ 2)) * x(k) * x(i) * x(i + 1) ^ 2 * b ^ (0.5e1 / 0.2e1) + 
> 0.252e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(i) ^ 5 * b 
> ^ 3 - 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) 
> ^ 2)) * x(i + 1) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * 
> b - 0.212e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 
> 2)) * x(i) ^ 4 * b ^ (0.5e1 / 0.2e1) + 0.212e3 * exp(b * (x(k + 1) ^ 2 
> + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 4 * b ^ (0.5e1 / 
> 0.2e1) + 0.14e2 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * 
> x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) * x(k) - 0.112e3 * b ^ 
> (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 
> 1) ^ 2)) * x(i) ^ 5 * x(k) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 
> 1) * sqrt(b)) * sqrt(%pi) * x(i) * x(k + 1) ^ 3 * x(k) + 0.420e3 * b ^ 
> 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(k + 1) ^ 4 * 
> x(k) - 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + 
> x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 6 * 
> sqrt(%pi) * x(k) + 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(i + 1) * x(k) 
> - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * 
> sqrt(%pi) * x(k + 1) ^ 5 * x(k) - 0.144e3 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * sqrt(b) + 0.80e2 * exp(b * (x(k 
> + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 6 * b ^ 
> (0.7e1 / 0.2e1) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 
> 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 3 * x(k) 
> * x(k + 1) - 0.105e3 * b * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 
> + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * 
> sqrt(b)) * x(k) + 0.105e3 * b * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 
> 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * 
> sqrt(b)) * x(k) - 0.280e3 * x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 
> 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) 
> - x(k) * sqrt(b)) * x(i + 1) ^ 4 * x(i) * sqrt(%pi) + 0.210e3 * x(k + 
> 1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * x(i + 1) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * 
> sqrt(b)) + 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i 
> + 1) ^ 2)) * x(k) ^ 2 * x(i + 1) * x(i) * b ^ (0.5e1 / 0.2e1) + 0.80e2 
> * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(k + 1) ^ 
> 7 * b ^ 4 + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) 
> ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i 
> + 1) ^ 3 * x(i) * sqrt(%pi) * x(k + 1) - 0.210e3 * b ^ 2 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) 
> * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(k) - 
> 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * 
> sqrt(%pi) * x(k) ^ 5 * x(k + 1) + 0.105e3 * b * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(k + 1) - 0.56e2 * b ^ (0.7e1 / 
> 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(i + 1) ^ 3 * x(k + 1) ^ 2 * x(k) + 0.210e3 * b ^ 2 * exp(b * (x(k) 
> ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) * 
> sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(k) - 0.280e3 * 
> x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 
> + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 4 
> * x(i + 1) * sqrt(%pi) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 
> 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i) * sqrt(%pi) * x(k) ^ 3 * x(k + 1) + 0.280e3 * b ^ 3 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k) ^ 3 
> * x(k + 1) + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) 
> ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * 
> x(i + 1) * sqrt(%pi) * x(k + 1) ^ 3 * x(k) - 0.56e2 * b ^ (0.7e1 / 
> 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(i + 1) * x(k + 1) ^ 4 * x(k) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 
> 2 * x(k) ^ 3 * x(k + 1) - 0.224e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k 
> + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(k + 1) - 
> 0.168e3 * x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k 
> + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * 
> x(i) ^ 5 * sqrt(%pi) - 0.210e3 * x(k + 1) * x(k) * b ^ 2 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * 
> sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) + 0.210e3 * 
> x(k + 1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 
> + x(i + 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * 
> sqrt(b)) - 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i 
> + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * x(k) ^ 2 * b ^ (0.7e1 / 0.2e1) - 
> 0.212e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(i + 1) ^ 4 * b ^ (0.5e1 / 0.2e1) + 0.105e3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * sqrt(%pi) * 
> erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * b - 0.364e3 * exp(b * (x(k 
> + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 3 
> * b ^ (0.5e1 / 0.2e1) + 0.48e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 
> 1) * x(k) + x(i) ^ 2)) * x(k) * x(i + 1) ^ 3 * b ^ (0.5e1 / 0.2e1) - 
> 0.48e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(k + 1) * x(i + 1) ^ 3 * b ^ (0.5e1 / 0.2e1) - 0.105e3 * b * exp(b 
> * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * 
> erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(k + 1) + 0.196e3 * b ^ 
> (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + 
> x(i) ^ 2)) * x(i + 1) ^ 2 * x(i) * x(k + 1) + 0.168e3 * b ^ 4 * exp(b 
> * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 5 * x(i + 1) * sqrt(%pi) * x(k 
> + 1) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + 
> x(i + 1) ^ 2)) * x(i + 1) ^ 3 * x(i) * sqrt(%pi) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(k) + 0.56e2 * b ^ (0.7e1 / 0.2e1) * 
> exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 
> 4 * x(k + 1) * x(k) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 
> + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(k + 1) ^ 
> 3 * x(k) + 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i) * 
> sqrt(%pi) * x(k) ^ 6 * b ^ 4 - 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 
> + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) ^ 6 * x(i) * sqrt(%pi) * b ^ 4 - 0.140e3 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 4 * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) * sqrt(%pi) * b ^ 3 - 
> 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(k + 1) ^ 7 
> * b ^ 4 - 0.252e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 
> 5 * sqrt(%pi) * b ^ 3 + 0.420e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 
> 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) 
> ^ 4 * x(i + 1) * sqrt(%pi) * b ^ 3 + 0.168e3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - 
> x(k + 1) * sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi) * x(k + 1) ^ 5 * b ^ 
> 4 - 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 
> 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * sqrt(%pi) 
> * x(k + 1) ^ 6 * b ^ 4 - 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 
> 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) 
> * x(i + 1) ^ 7 * sqrt(%pi) * b ^ 4 - 0.140e3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 1) ^ 4 * erf(x(i + 1) 
> * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * sqrt(%pi) * b ^ 3 - 0.112e3 * 
> b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) 
> + x(i) ^ 2)) * x(i + 1) ^ 5 * x(k + 1) + 0.112e3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 
> 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k + 1) ^ 6 * b ^ 4 + 0.105e3 
> * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i) 
> * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * b - 0.56e2 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 
> 1) * x(i) ^ 2 * x(k) ^ 3 * b ^ (0.7e1 / 0.2e1) - 0.84e2 * b ^ (0.5e1 / 
> 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) 
> * x(i) ^ 3 * x(k) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 
> + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 5 * x(k) - 
> 0.224e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k 
> + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(k) + 0.112e3 * b ^ (0.7e1 / 
> 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(k + 1) ^ 5 * x(k) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 5 * x(k + 1) - 
> 0.126e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * 
> x(k) + x(i + 1) ^ 2)) * x(k) * x(k + 1) - 0.112e3 * exp(b * (x(k) ^ 2 
> + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k 
> + 1) * sqrt(b)) * x(i) ^ 6 * x(i + 1) * sqrt(%pi) * b ^ 4 - 0.32e2 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 
> 1) ^ 4 * x(k) ^ 2 * b ^ (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(k + 1) ^ 2 * b 
> ^ (0.7e1 / 0.2e1) + 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 3 * x(k + 1) ^ 3 * b ^ (0.7e1 / 
> 0.2e1) - 0.48e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 
> 1) ^ 2)) * x(k) * x(i) ^ 3 * b ^ (0.5e1 / 0.2e1) + 0.84e2 * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 3 * 
> x(i) * b ^ (0.5e1 / 0.2e1) + 0.48e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) 
> * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 3 * x(i) * b ^ (0.5e1 / 
> 0.2e1) + 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 7 * 
> sqrt(%pi) * b ^ 4 - 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(i) * x(k + 1) * b ^ (0.7e1 / 
> 0.2e1) + 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 
> 1) ^ 2)) * x(i + 1) * x(i) * x(k + 1) ^ 4 * b ^ (0.7e1 / 0.2e1) - 
> 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(i) * x(i + 1) ^ 2 * x(k + 1) ^ 3 * b ^ (0.7e1 / 0.2e1) - 0.112e3 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i 
> + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(i + 1) * x(k + 1) 
> ^ 6 * b ^ 4 + 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 
> * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 2 * x(k + 1) ^ 3 * x(k) - 
> 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k 
> + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * x(k + 1) * x(k) - 
> 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * 
> x(k + 1) ^ 6 * x(k) - 0.140e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) ^ 4 * sqrt(%pi) * x(k + 1) + 0.56e2 * b ^ (0.7e1 / 
> 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) 
> * x(i + 1) ^ 2 * x(k) ^ 3 * x(k + 1) + 0.56e2 * b ^ (0.5e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) * 
> x(k) ^ 2 * x(k + 1) - 0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 2 * 
> x(k + 1) - 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 
> 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 
> 1) ^ 6 * sqrt(%pi) * x(k) - 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) 
> * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 2 * x(i + 1) * x(i) * b ^ 
> (0.5e1 / 0.2e1) + 0.112e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k 
> + 1) + x(i) ^ 2)) * x(i) * x(k + 1) ^ 5 * b ^ (0.7e1 / 0.2e1) + 
> 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(k 
> + 1) ^ 6 * x(k) + 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 
> + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) * x(k) ^ 4 * x(k + 
> 1) + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + 
> x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * 
> sqrt(%pi) * x(k) ^ 5 * x(k + 1) + 0.112e3 * b ^ (0.7e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 
> 1) * x(i) * x(k) ^ 3 * x(k + 1) - 0.210e3 * x(k + 1) * x(k) * b ^ 2 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i) * 
> sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) - 0.168e3 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i 
> + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi) * x(k) 
> ^ 5 * b ^ 4 + 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + 
> x(i + 1) ^ 2)) * x(i) ^ 3 * x(k) ^ 3 * b ^ (0.7e1 / 0.2e1) - 0.56e2 * 
> b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + 
> x(i + 1) ^ 2)) * x(i) * x(k + 1) ^ 2 * x(k) - 0.280e3 * b ^ 4 * exp(b 
> * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * 
> sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi) * x(k) ^ 4 * 
> x(k + 1) - 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(i + 1) * x(k + 1) 
> - 0.112e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 
> 2)) * x(i) * x(k) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.112e3 * exp(b * (x(k) 
> ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 5 * 
> b ^ (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k 
> + 1) + x(i + 1) ^ 2)) * x(i) * x(k + 1) ^ 5 * b ^ (0.7e1 / 0.2e1) - 
> 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) 
> * x(i + 1) ^ 2 * x(k) ^ 4 * b ^ (0.7e1 / 0.2e1) + 0.56e2 * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) 
> ^ 2 * x(k + 1) ^ 3 * b ^ (0.7e1 / 0.2e1) + 0.80e2 * exp(b * (x(k + 1) 
> ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 6 * b ^ (0.7e1 
> / 0.2e1) + 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i 
> + 1) ^ 2)) * x(i + 1) * x(i) ^ 4 * x(k + 1) * b ^ (0.7e1 / 0.2e1) + 
> 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * 
> sqrt(%pi) * x(k + 1) ^ 3 * x(k) - 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 
> 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * sqrt(%pi) * x(k) ^ 7 * b ^ 4 + 0.168e3 * b ^ (0.5e1 / 
> 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) 
> * x(i + 1) * x(i) * x(k) * x(k + 1) - 0.168e3 * b ^ (0.5e1 / 0.2e1) * 
> exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 
> 1) * x(i) * x(k + 1) * x(k) + 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * 
> (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(k) ^ 4 
> * x(k + 1) - 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(k) * x(k + 1) 
> - 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 
> 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * x(i) * x(k) ^ 
> 6 * b ^ 4 - 0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 
> * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(i) * x(k) + 
> 0.140e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 4 
> * sqrt(%pi) * x(k) + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) ^ 5 * x(i) * sqrt(%pi) * x(k) + 0.168e3 * b ^ 4 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) * sqrt(%pi) * x(k) ^ 5 * 
> x(k + 1) - 0.140e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 
> 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * 
> sqrt(%pi) * x(i) ^ 4 * x(k) + 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * 
> sqrt(%pi) * x(k) ^ 7 * b ^ 4 + 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) ^ 7 * sqrt(%pi) * b ^ 4 - 0.32e2 * exp(b * (x(k) ^ 
> 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 2 * x(k + 1) ^ 4 
> * b ^ (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * 
> x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 3 * x(k + 1) ^ 3 * b ^ (0.7e1 / 
> 0.2e1) + 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + 
> x(i) ^ 2)) * x(i + 1) ^ 4 * x(k + 1) ^ 2 * b ^ (0.7e1 / 0.2e1) + 
> 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) 
> * x(i) ^ 2 * x(k) ^ 4 * b ^ (0.7e1 / 0.2e1) + 0.56e2 * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(i) * 
> x(k) ^ 3 * b ^ (0.7e1 / 0.2e1) + 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 
> 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i) ^ 6 * x(i + 1) * sqrt(%pi) * b ^ 4 - 0.56e2 * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) * x(i) 
> * x(k + 1) ^ 4 * b ^ (0.7e1 / 0.2e1) + 0.112e3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 
> 1) * sqrt(b)) * sqrt(%pi) * x(i) * x(k + 1) ^ 6 * b ^ 4 + 0.112e3 * b 
> ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 6 * 
> sqrt(%pi) * x(k + 1) + 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 2 * 
> x(k) ^ 2 * x(k + 1) + 0.280e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi) * x(k) ^ 4 * x(k + 1) - 0.140e3 
> * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 4 * sqrt(%pi) 
> * x(k) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 
> + x(i + 1) ^ 2)) * x(i) ^ 3 * x(i + 1) * sqrt(%pi) * erf(x(i) * 
> sqrt(b) - x(k) * sqrt(b)) * x(k + 1)) * b ^ (-0.9e1 / 0.2e1) / (x(i + 
> 1) ^ 2 * x(k + 1) ^ 2 - 0.2e1 * x(i + 1) ^ 2 * x(k + 1) * x(k) + x(i + 
> 1) ^ 2 * x(k) ^ 2 - 0.2e1 * x(i + 1) * x(k + 1) ^ 2 * x(i) + 0.4e1 * 
> x(i + 1) * x(i) * x(k + 1) * x(k) - 0.2e1 * x(i + 1) * x(i) * x(k) ^ 2 
> + x(i) ^ 2 * x(k + 1) ^ 2 - 0.2e1 * x(i) ^ 2 * x(k + 1) * x(k) + x(i) 
> ^ 2 * x(k) ^ 2) / 0.6720e4;
>
> 2011/10/3 Mike Page <Mike at page-one.waitrose.com 
> <mailto:Mike at page-one.waitrose.com>>
>
>     Can you post some code that shows the problem?
>     Sounds like maybe you are creating a string instead of a numeric
>     matrix.
>     Regards,
>     Mike.
>
>         -----Original Message-----
>         *From:* severine.pl <http://severine.pl>
>         [mailto:severine.pl at gmail.com <mailto:severine.pl at gmail.com>]
>         *Sent:* 03 October 2011 14:10
>         *To:* users at lists.scilab.org <mailto:users at lists.scilab.org>
>         *Subject:* [scilab-Users] too large string
>
>         Hi!
>
>         I woulf like to find an answer to my problem.
>
>         I'm doing very big calculus in scilab, and calculating very
>         big matrix.
>         And when i'm trying to executing the programm, Scilab says me:
>
>         "Too large string"
>
>         What must I do?
>
>         S?verine Paul
>
>         ------------------------------------------------------------------------
>         View this message in context: too large string
>         <http://mailinglists.scilab.org/too-large-string-tp3389713p3389713.html>
>         Sent from the Scilab users - Mailing Lists Archives mailing
>         list archive
>         <http://mailinglists.scilab.org/Scilab-users-Mailing-Lists-Archives-f2602246.html>
>         at Nabble.com.
>
>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111003/7984bf4d/attachment.htm>

From calixte.denizet at scilab.org  Mon Oct  3 17:10:31 2011
From: calixte.denizet at scilab.org (Calixte Denizet)
Date: Mon, 03 Oct 2011 17:10:31 +0200
Subject: [scilab-Users] too large string
In-Reply-To: <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com>
References: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com> <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com> <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com>
Message-ID: <4E89D067.2020605@scilab.org>

Hi S?verine,

The string you can pass to scilab has a limited size.

A workaround:
i) put your big line in a file: expression.txt
ii) get your line with : l=mgetl('expression.txt');
iii) J(i,k)=evstr(l);

Best regards,

Calixte


On 03/10/2011 15:53, S?verine Paul wrote:
> Hi again,
>
> this is the answer of scilab:
>
> Command is too long (more than 512 characters long): could not send it 
> to Scilab
>
> and below is the command. It is actually quite long, but I didn't know 
> that this could be a problem. In Maple (from which this comes), there 
> is no problem
>
> Thanks for your help.
> S?verine.
>
> J(i,k) =
> -exp(-b*(x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> (-0.144e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 
> 2)) * sqrt(b) + 0.144e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) 
> + x(i + 1) ^ 2)) * sqrt(b) - 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * 
> x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 2 * x(i) * x(i + 1) * b ^ (0.5e1 
> / 0.2e1) - 0.66e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i 
> + 1) ^ 2)) * x(i) ^ 2 * b ^ (0.3e1 / 0.2e1) - 0.420e3 * exp(b * (x(k) 
> ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - 
> x(k + 1) * sqrt(b)) * x(i) ^ 4 * x(i + 1) * sqrt(%pi) * b ^ 3 - 
> 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(i) * x(k + 1) ^ 4 * x(k) + 0.32e2 * exp(b * 
> (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 5 * x(k) 
> * b ^ (0.7e1 / 0.2e1) + 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) 
> * x(k) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(k) ^ 2 * b ^ (0.7e1 / 0.2e1) + 
> 0.112e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) 
> * x(i) ^ 5 * x(i + 1) * b ^ (0.7e1 / 0.2e1) + 0.112e3 * exp(b * (x(k) 
> ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 5 * 
> b ^ (0.7e1 / 0.2e1) + 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 5 * x(k + 1) * b ^ (0.7e1 / 0.2e1) 
> - 0.126e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 
> 2)) * x(i + 1) * x(i) * b ^ (0.3e1 / 0.2e1) + 0.48e2 * exp(b * (x(k) ^ 
> 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) * x(i) ^ 3 * b 
> ^ (0.5e1 / 0.2e1) + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) ^ 5 * x(i) * sqrt(%pi) * x(k + 1) + 0.196e3 * b ^ 
> (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 
> 1) ^ 2)) * x(i + 1) * x(i) ^ 2 * x(k) - 0.56e2 * b ^ (0.5e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 
> 1) * x(k) ^ 2 * x(k + 1) + 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) * x(k 
> + 1) ^ 2 * x(k) + 0.280e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k 
> + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * 
> x(i + 1) * sqrt(%pi) * x(i) * x(k + 1) ^ 4 * x(k) - 0.112e3 * b ^ 4 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 6 * sqrt(%pi) * x(k 
> + 1) + 0.40e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) 
> ^ 2)) * x(k + 1) ^ 2 * x(i) ^ 2 * b ^ (0.5e1 / 0.2e1) - 0.14e2 * exp(b 
> * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) * 
> x(i + 1) * b ^ (0.3e1 / 0.2e1) - 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 
> 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * b + 0.212e3 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 4 * b ^ (0.5e1 / 0.2e1) 
> - 0.212e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 
> 2)) * x(k) ^ 4 * b ^ (0.5e1 / 0.2e1) - 0.48e2 * exp(b * (x(k + 1) ^ 2 
> + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 3 * x(i) * b ^ (0.5e1 
> / 0.2e1) + 0.364e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + 
> x(i) ^ 2)) * x(i) * x(i + 1) ^ 3 * b ^ (0.5e1 / 0.2e1) - 0.140e3 * b ^ 
> 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(i) ^ 4 * x(k 
> + 1) - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + 
> x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * 
> sqrt(%pi) * x(k + 1) ^ 5 * x(k) + 0.140e3 * exp(b * (x(k) ^ 2 + x(i) ^ 
> 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 4 * erf(x(i + 1) * sqrt(b) 
> - x(k) * sqrt(b)) * x(i) * sqrt(%pi) * b ^ 3 + 0.56e2 * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) * x(i + 1) * x(i) 
> ^ 2 * b ^ (0.5e1 / 0.2e1) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) 
> * x(k + 1) ^ 3 * x(k) - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 
> + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) 
> * x(i) ^ 5 * x(i + 1) * sqrt(%pi) * x(k + 1) - 0.168e3 * b ^ (0.5e1 / 
> 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) 
> * x(i + 1) * x(i) * x(k) * x(k + 1) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 
> 3 * x(k) ^ 2 * x(k + 1) - 0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * x(k + 1) 
> ^ 2 * x(k) - 0.210e3 * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) 
> ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) * sqrt(%pi) * erf(x(i) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(k) + 0.112e3 * b ^ (0.7e1 / 0.2e1) * 
> exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * 
> x(i + 1) ^ 3 * x(k + 1) * x(k) + 0.144e3 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * sqrt(b) - 0.252e3 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 5 * 
> erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * b ^ 3 + 0.280e3 
> * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 3 * x(i) * 
> sqrt(%pi) * x(k) + 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) * x(i) * x(k + 1) 
> ^ 3 * x(k) + 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 2 * x(k) * x(k + 1) - 
> 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k 
> + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 2 * x(k + 1) ^ 2 * x(k) + 
> 0.210e3 * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * x(i + 1) * x(i) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k 
> + 1) * sqrt(b)) * x(k) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k 
> + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 2 
> * x(k) ^ 2 * x(k + 1) - 0.40e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) 
> * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 2 * x(i + 1) ^ 2 * b ^ (0.5e1 / 
> 0.2e1) - 0.364e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 
> 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * b ^ (0.5e1 / 0.2e1) - 0.140e3 * exp(b 
> * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 4 * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * sqrt(%pi) * b ^ 3 + 
> 0.140e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * x(k) ^ 4 * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * 
> sqrt(%pi) * b ^ 3 + 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(k + 1) * x(i) * x(i + 1) ^ 2 * b ^ (0.5e1 / 
> 0.2e1) - 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 
> 1) ^ 2)) * x(i) ^ 4 * x(i + 1) * x(k) * b ^ (0.7e1 / 0.2e1) + 0.112e3 
> * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 6 * x(i) * 
> sqrt(%pi) * b ^ 4 - 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * 
> sqrt(%pi) * x(k) ^ 6 * x(k + 1) + 0.224e3 * b ^ (0.3e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 
> 1) * x(k + 1) + 0.14e2 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) * x(k + 1) + 0.112e3 * b ^ 
> (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 
> 1) ^ 2)) * x(k) ^ 5 * x(k + 1) + 0.56e2 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 3 * x(i) * x(k) ^ 2 
> * b ^ (0.7e1 / 0.2e1) + 0.66e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) 
> * x(k) + x(i + 1) ^ 2)) * x(i) ^ 2 * b ^ (0.3e1 / 0.2e1) - 0.56e2 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 
> 1) * x(i) * x(k) ^ 4 * b ^ (0.7e1 / 0.2e1) + 0.364e3 * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * 
> b ^ (0.5e1 / 0.2e1) - 0.92e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 
> 1) * x(k) + x(i) ^ 2)) * x(k) * x(i + 1) * b ^ (0.3e1 / 0.2e1) + 
> 0.126e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) 
> * x(i + 1) * x(i) * b ^ (0.3e1 / 0.2e1) - 0.56e2 * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 3 * x(k + 
> 1) ^ 2 * b ^ (0.7e1 / 0.2e1) + 0.14e2 * exp(b * (x(k) ^ 2 + 0.2e1 * 
> x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) * x(i) * b ^ (0.3e1 / 
> 0.2e1) - 0.80e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + 
> x(i) ^ 2)) * x(i + 1) ^ 6 * b ^ (0.7e1 / 0.2e1) + 0.80e2 * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 6 * b ^ 
> (0.7e1 / 0.2e1) + 0.105e3 * b * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 
> 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * 
> sqrt(b)) * x(k + 1) + 0.126e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k) ^ 
> 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) * x(k)+0.84e2 
> * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 
> 1) + x(i) ^ 2)) * x(i + 1) ^ 3 * x(k) + 0.112e3 * b ^ (0.7e1 / 0.2e1) 
> * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) 
> ^ 5 * x(k + 1) - 0.126e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) * x(k) - 0.364e3 * 
> b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) 
> + x(i) ^ 2)) * x(k) ^ 3 * x(k + 1) + 0.364e3 * b ^ (0.5e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 
> 3 * x(k + 1) + 0.84e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 3 * x(k + 1) - 0.364e3 * 
> b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + 
> x(i + 1) ^ 2)) * x(k + 1) ^ 3 * x(k) + 0.224e3 * b ^ (0.3e1 / 0.2e1) * 
> exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i) * 
> x(k) - 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) 
> ^ 2)) * x(i) ^ 5 * x(k + 1) * b ^ (0.7e1 / 0.2e1) + 0.56e2 * exp(b * 
> (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) * x(i) 
> * x(k) ^ 4 * b ^ (0.7e1 / 0.2e1) - 0.420e3 * exp(b * (x(k) ^ 2 + x(i) 
> ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) ^ 4 * x(i) * sqrt(%pi) * b ^ 3 - 0.80e2 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * 
> sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 7 * sqrt(%pi) * b ^ 4 + 0.280e3 * 
> x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 
> + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) 
> * sqrt(%pi) * x(i + 1) ^ 4 - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i) ^ 5 * x(i + 1) * sqrt(%pi) * x(k) - 0.168e3 * b ^ 
> (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 
> 1) ^ 2)) * x(i + 1) * x(k) ^ 4 * x(k + 1) + 0.56e2 * b ^ (0.7e1 / 
> 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) 
> * x(i) ^ 3 * x(k + 1) ^ 2 * x(k) + 0.105e3 * b * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(k) + 0.56e2 * b ^ (0.7e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 
> 1) ^ 3 * x(k) ^ 2 * x(k + 1) + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 
> 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(i) ^ 3 * x(k + 1) + 0.140e3 * 
> b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 4 * sqrt(%pi) * x(k) + 
> 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * 
> sqrt(%pi) * x(k + 1) ^ 5 * x(k) + 0.196e3 * b ^ (0.5e1 / 0.2e1) * 
> exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 
> 1) * x(k + 1) ^ 2 * x(k) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k 
> + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(k) * 
> x(k + 1) + 0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(k) ^ 2 * x(k + 1) + 
> 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(i + 1) ^ 2 * x(k + 1) ^ 4 * b ^ (0.7e1 / 0.2e1) + 0.280e3 * b ^ 3 
> * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) * sqrt(%pi) * x(k) ^ 3 * 
> x(k + 1) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 
> 2 + x(i + 1) ^ 2)) * x(i + 1) ^ 3 * x(i) * sqrt(%pi) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(k + 1) - 0.168e3 * b ^ 4 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 5 * x(i) * sqrt(%pi) * x(k) 
> + 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) 
> * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(i) * x(k + 1) ^ 2 * x(k) - 
> 0.280e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * 
> x(i) * sqrt(%pi) * x(k + 1) ^ 4 * x(k) - 0.112e3 * b ^ 4 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * 
> sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 6 * sqrt(%pi) * x(k + 1) + 
> 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * x(i + 1) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * b 
> - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * x(i) ^ 3 * x(i + 1) * sqrt(%pi) * erf(x(i) * sqrt(b) - 
> x(k) * sqrt(b)) * x(k) + 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(k) * 
> x(k + 1) + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 
> 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 
> 5 * x(i + 1) * sqrt(%pi) * x(k) + 0.210e3 * b ^ 2 * exp(b * (x(k) ^ 2 
> + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) * 
> sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(k + 1) + 0.168e3 
> * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + 
> x(i + 1) ^ 2)) * x(i + 1) * x(k + 1) ^ 4 * x(k) - 0.84e2 * b ^ (0.5e1 
> / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 
> 2)) * x(i + 1) ^ 3 * x(k + 1) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - 
> x(k) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k) ^ 3 * x(k + 1) + 0.420e3 
> * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * x(k) ^ 4 * 
> x(k + 1) - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 
> 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i) * 
> sqrt(%pi) * x(k) ^ 5 * x(k + 1) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 
> + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k 
> + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k + 1) ^ 3 * x(k) - 0.210e3 
> * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * x(i + 1) * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * 
> sqrt(b)) * x(k + 1) + 0.168e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 
> 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i + 
> 1) * x(i) * sqrt(%pi) * x(k) ^ 5 * b ^ 4 - 0.252e3 * exp(b * (x(k) ^ 2 
> + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) 
> * sqrt(b)) * x(i) ^ 5 * sqrt(%pi) * b ^ 3 - 0.140e3 * exp(b * (x(k) ^ 
> 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 1) ^ 4 * erf(x(i 
> + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * b ^ 3 - 
> 0.80e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(k + 1) ^ 6 * b ^ (0.7e1 / 0.2e1) + 0.56e2 * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 2 * x(i) * x(i + 
> 1) * b ^ (0.5e1 / 0.2e1) + 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2 * 
> x(k + 1) * x(k) - 0.210e3 * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k 
> + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) * sqrt(%pi) * erf(x(i + 1) 
> * sqrt(b) - x(k) * sqrt(b)) * x(k + 1) + 0.280e3 * b ^ 3 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(i) ^ 3 * x(k) 
> - 0.420e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) 
> * x(k + 1) ^ 4 * x(k) - 0.80e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) 
> * x(k) + x(i + 1) ^ 2)) * x(i) ^ 6 * b ^ (0.7e1 / 0.2e1) + 0.56e2 * b 
> ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i 
> + 1) ^ 2)) * x(i) * x(k + 1) ^ 4 * x(k) + 0.140e3 * b ^ 3 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 4 * sqrt(%pi) * x(k + 1) + 
> 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 
> 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(i) * x(k + 1) + 0.140e3 * b 
> ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 4 * sqrt(%pi) * x(k + 1) 
> - 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) 
> * x(k + 1) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 4 * x(k) + 0.112e3 * b ^ 4 
> * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 6 * 
> sqrt(%pi) * x(k) - 0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 
> 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(k) ^ 2 * x(k + 
> 1) + 0.212e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) 
> ^ 2)) * x(k + 1) ^ 4 * b ^ (0.5e1 / 0.2e1) - 0.66e2 * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 2 * b ^ (0.3e1 
> / 0.2e1) - 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * x(i + 1) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) 
> * sqrt(b)) * b - 0.14e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k) + x(i) ^ 2)) * x(k) * x(i) * b ^ (0.3e1 / 0.2e1) - 0.40e2 * exp(b 
> * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 2 * 
> x(i) ^ 2 * b ^ (0.5e1 / 0.2e1) + 0.56e2 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(i) * x(k) * b 
> ^ (0.7e1 / 0.2e1) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(k + 1) * 
> x(k) - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + 
> x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 
> 1) ^ 5 * x(i) * sqrt(%pi) * x(k + 1) - 0.14e2 * b ^ (0.3e1 / 0.2e1) * 
> exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) * 
> x(k) - 0.14e2 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * 
> x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) * x(k + 1) + 0.126e3 * b ^ 
> (0.3e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + 
> x(i) ^ 2)) * x(k) * x(k + 1) + 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 5 * 
> x(k) + 0.364e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i 
> + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 3 * x(k) + 0.140e3 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 1) ^ 4 * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * b ^ 
> 3 + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + 
> x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * 
> sqrt(%pi) * x(i + 1) * x(k + 1) ^ 5 * x(k) - 0.105e3 * b * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * 
> erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(k) - 0.105e3 * b * exp(b 
> * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(k + 1) - 0.210e3 * x(k + 
> 1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) + 
> 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * b + 
> 0.92e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(k + 1) * x(i + 1) * b ^ (0.3e1 / 0.2e1) + 0.84e2 * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 3 * x(i + 1) * 
> b ^ (0.5e1 / 0.2e1) - 0.92e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k 
> + 1) + x(i + 1) ^ 2)) * x(k + 1) * x(i) * b ^ (0.3e1 / 0.2e1) + 
> 0.420e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * sqrt(%pi) * 
> x(i + 1) ^ 4 * b ^ 3 + 0.66e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 2 * b ^ (0.3e1 / 0.2e1) + 0.66e2 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) ^ 
> 2 * b ^ (0.3e1 / 0.2e1) + 0.252e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k 
> + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 1) ^ 5 * erf(x(i + 1) * sqrt(b) - 
> x(k + 1) * sqrt(b)) * sqrt(%pi) * b ^ 3 + 0.210e3 * b ^ 2 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) 
> * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(k + 1) 
> + 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) 
> * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * x(k) * x(k + 1) - 
> 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * 
> x(k) + x(i + 1) ^ 2)) * x(i) * x(k) ^ 4 * x(k + 1) + 0.168e3 * b ^ 
> (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 
> 1) ^ 2)) * x(i + 1) * x(i) * x(k + 1) * x(k) + 0.112e3 * b ^ 4 * exp(b 
> * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) 
> * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * x(k) ^ 6 * x(k + 1) - 
> 0.420e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * x(k) ^ 4 
> * x(k + 1) - 0.66e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + 
> x(i + 1) ^ 2)) * x(k + 1) ^ 2 * b ^ (0.3e1 / 0.2e1) + 0.66e2 * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2 * 
> b ^ (0.3e1 / 0.2e1) + 0.212e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k 
> + 1) + x(i + 1) ^ 2)) * x(i) ^ 4 * b ^ (0.5e1 / 0.2e1) - 0.252e3 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 
> 1) ^ 5 * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * b ^ 3 
> - 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 
> 2)) * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * b + 
> 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(i + 1) * x(k + 1) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.112e3 * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(k 
> + 1) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 5 * x(k) * b ^ 
> (0.7e1 / 0.2e1) + 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) 
> + x(i + 1) ^ 2)) * x(i) * x(k) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.32e2 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 
> 1) * x(k) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.48e2 * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 3 * x(i + 1) * b 
> ^ (0.5e1 / 0.2e1) + 0.92e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * 
> x(k) + x(i + 1) ^ 2)) * x(k) * x(i) * b ^ (0.3e1 / 0.2e1) + 0.126e3 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 
> 1) * x(i) * b ^ (0.3e1 / 0.2e1) - 0.112e3 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 5 * x(i) * b ^ 
> (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k) + x(i) ^ 2)) * x(i + 1) ^ 3 * x(k) ^ 3 * b ^ (0.7e1 / 0.2e1) + 
> 0.112e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) 
> * x(i + 1) * x(k) ^ 5 * b ^ (0.7e1 / 0.2e1) + 0.80e2 * exp(b * (x(k) ^ 
> 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 6 * b ^ 
> (0.7e1 / 0.2e1) + 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) 
> + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * x(k + 1) ^ 2 * b ^ (0.7e1 / 
> 0.2e1) - 0.66e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + 
> x(i) ^ 2)) * x(i + 1) ^ 2 * b ^ (0.3e1 / 0.2e1) + 0.252e3 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * 
> sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 5 * sqrt(%pi) * b ^ 3 - 0.80e2 
> * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) 
> ^ 6 * b ^ (0.7e1 / 0.2e1) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * 
> (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(i + 1) 
> * x(k) ^ 3 * x(k + 1) + 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 
> + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) 
> * x(i) ^ 6 * sqrt(%pi) * x(k) + 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i) ^ 6 * sqrt(%pi) * x(k + 1) - 0.56e2 * b ^ (0.5e1 / 
> 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) 
> * x(i) ^ 2 * x(k + 1) * x(k) - 0.84e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 
> * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 3 * x(i) * b ^ (0.5e1 / 0.2e1) 
> - 0.126e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 
> 2)) * x(i + 1) * x(i) * b ^ (0.3e1 / 0.2e1) + 0.14e2 * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(k) * x(i + 1) * b ^ 
> (0.3e1 / 0.2e1) + 0.210e3 * x(k + 1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 
> 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * sqrt(%pi) * 
> erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) + 0.168e3 * x(k + 1) * x(k) * 
> b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(i) ^ 5 + 
> 0.168e3 * x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k 
> + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * 
> x(i + 1) ^ 5 * sqrt(%pi) - 0.210e3 * x(k + 1) * x(k) * b ^ 2 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * 
> sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) + 0.210e3 * x(k + 1) 
> * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) 
> - 0.168e3 * x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * 
> sqrt(b)) * x(i + 1) ^ 5 * sqrt(%pi) + 0.280e3 * x(k + 1) * x(k) * b ^ 
> 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) ^ 4 * x(i + 1) * sqrt(%pi) 
> + 0.140e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 
> 2)) * x(k + 1) ^ 4 * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * 
> sqrt(%pi) * x(i) * b ^ 3 + 0.252e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 5 * erf(x(i) * sqrt(b) - x(k) * 
> sqrt(b)) * sqrt(%pi) * b ^ 3 - 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * 
> x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) * x(i + 1) * x(i) ^ 2 * b 
> ^ (0.5e1 / 0.2e1) - 0.212e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 4 * b ^ (0.5e1 / 0.2e1) - 0.168e3 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(i) 
> * x(k + 1) ^ 5 * b ^ 4 + 0.40e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i 
> + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 2 * x(i + 1) ^ 2 * b ^ (0.5e1 / 
> 0.2e1) - 0.84e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 
> 1) ^ 2)) * x(k + 1) ^ 3 * x(i + 1) * b ^ (0.5e1 / 0.2e1) + 0.48e2 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 
> 3 * x(i + 1) * b ^ (0.5e1 / 0.2e1) + 0.112e3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - 
> x(k) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k) ^ 6 * b ^ 4 - 0.112e3 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k) ^ 6 
> * b ^ 4 - 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + 
> x(i) ^ 2)) * x(k) * x(i) * x(i + 1) ^ 2 * b ^ (0.5e1 / 0.2e1) + 
> 0.252e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(i) ^ 5 * b 
> ^ 3 - 0.105e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) 
> ^ 2)) * x(i + 1) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * 
> b - 0.212e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 
> 2)) * x(i) ^ 4 * b ^ (0.5e1 / 0.2e1) + 0.212e3 * exp(b * (x(k + 1) ^ 2 
> + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 4 * b ^ (0.5e1 / 
> 0.2e1) + 0.14e2 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * 
> x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) * x(k) - 0.112e3 * b ^ 
> (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 
> 1) ^ 2)) * x(i) ^ 5 * x(k) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 
> 1) * sqrt(b)) * sqrt(%pi) * x(i) * x(k + 1) ^ 3 * x(k) + 0.420e3 * b ^ 
> 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(k + 1) ^ 4 * 
> x(k) - 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + 
> x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 6 * 
> sqrt(%pi) * x(k) + 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(i + 1) * x(k) 
> - 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * 
> sqrt(%pi) * x(k + 1) ^ 5 * x(k) - 0.144e3 * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * sqrt(b) + 0.80e2 * exp(b * (x(k 
> + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 6 * b ^ 
> (0.7e1 / 0.2e1) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 
> 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 3 * x(k) 
> * x(k + 1) - 0.105e3 * b * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 
> + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * 
> sqrt(b)) * x(k) + 0.105e3 * b * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 
> 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * 
> sqrt(b)) * x(k) - 0.280e3 * x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 
> 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) 
> - x(k) * sqrt(b)) * x(i + 1) ^ 4 * x(i) * sqrt(%pi) + 0.210e3 * x(k + 
> 1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * x(i + 1) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * 
> sqrt(b)) + 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i 
> + 1) ^ 2)) * x(k) ^ 2 * x(i + 1) * x(i) * b ^ (0.5e1 / 0.2e1) + 0.80e2 
> * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(k + 1) ^ 
> 7 * b ^ 4 + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) 
> ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i 
> + 1) ^ 3 * x(i) * sqrt(%pi) * x(k + 1) - 0.210e3 * b ^ 2 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) 
> * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(k) - 
> 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * 
> sqrt(%pi) * x(k) ^ 5 * x(k + 1) + 0.105e3 * b * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(k + 1) - 0.56e2 * b ^ (0.7e1 / 
> 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(i + 1) ^ 3 * x(k + 1) ^ 2 * x(k) + 0.210e3 * b ^ 2 * exp(b * (x(k) 
> ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * x(i) * 
> sqrt(%pi) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(k) - 0.280e3 * 
> x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 
> + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 4 
> * x(i + 1) * sqrt(%pi) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 
> 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i) * sqrt(%pi) * x(k) ^ 3 * x(k + 1) + 0.280e3 * b ^ 3 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k) ^ 3 
> * x(k + 1) + 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) 
> ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * 
> x(i + 1) * sqrt(%pi) * x(k + 1) ^ 3 * x(k) - 0.56e2 * b ^ (0.7e1 / 
> 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(i + 1) * x(k + 1) ^ 4 * x(k) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 
> 2 * x(k) ^ 3 * x(k + 1) - 0.224e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k 
> + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(k + 1) - 
> 0.168e3 * x(k + 1) * x(k) * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k 
> + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * 
> x(i) ^ 5 * sqrt(%pi) - 0.210e3 * x(k + 1) * x(k) * b ^ 2 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * 
> sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) + 0.210e3 * 
> x(k + 1) * x(k) * b ^ 2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 
> + x(i + 1) ^ 2)) * x(i) * sqrt(%pi) * erf(x(i) * sqrt(b) - x(k + 1) * 
> sqrt(b)) - 0.56e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i 
> + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * x(k) ^ 2 * b ^ (0.7e1 / 0.2e1) - 
> 0.212e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(i + 1) ^ 4 * b ^ (0.5e1 / 0.2e1) + 0.105e3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i + 1) * sqrt(%pi) * 
> erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * b - 0.364e3 * exp(b * (x(k 
> + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(i + 1) ^ 3 
> * b ^ (0.5e1 / 0.2e1) + 0.48e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 
> 1) * x(k) + x(i) ^ 2)) * x(k) * x(i + 1) ^ 3 * b ^ (0.5e1 / 0.2e1) - 
> 0.48e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(k + 1) * x(i + 1) ^ 3 * b ^ (0.5e1 / 0.2e1) - 0.105e3 * b * exp(b 
> * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * sqrt(%pi) * 
> erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(k + 1) + 0.196e3 * b ^ 
> (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + 
> x(i) ^ 2)) * x(i + 1) ^ 2 * x(i) * x(k + 1) + 0.168e3 * b ^ 4 * exp(b 
> * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 5 * x(i + 1) * sqrt(%pi) * x(k 
> + 1) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + 
> x(i + 1) ^ 2)) * x(i + 1) ^ 3 * x(i) * sqrt(%pi) * erf(x(i + 1) * 
> sqrt(b) - x(k + 1) * sqrt(b)) * x(k) + 0.56e2 * b ^ (0.7e1 / 0.2e1) * 
> exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 
> 4 * x(k + 1) * x(k) - 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 
> + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(k + 1) ^ 
> 3 * x(k) + 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i) * 
> sqrt(%pi) * x(k) ^ 6 * b ^ 4 - 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 
> + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) ^ 6 * x(i) * sqrt(%pi) * b ^ 4 - 0.140e3 * exp(b * 
> (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k) ^ 4 * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) * sqrt(%pi) * b ^ 3 - 
> 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(k + 1) ^ 7 
> * b ^ 4 - 0.252e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i 
> + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 
> 5 * sqrt(%pi) * b ^ 3 + 0.420e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 
> 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) 
> ^ 4 * x(i + 1) * sqrt(%pi) * b ^ 3 + 0.168e3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - 
> x(k + 1) * sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi) * x(k + 1) ^ 5 * b ^ 
> 4 - 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 
> 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * sqrt(%pi) 
> * x(k + 1) ^ 6 * b ^ 4 - 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 
> 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) 
> * x(i + 1) ^ 7 * sqrt(%pi) * b ^ 4 - 0.140e3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(k + 1) ^ 4 * erf(x(i + 1) 
> * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * sqrt(%pi) * b ^ 3 - 0.112e3 * 
> b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) 
> + x(i) ^ 2)) * x(i + 1) ^ 5 * x(k + 1) + 0.112e3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 
> 1) * sqrt(b)) * x(i + 1) * sqrt(%pi) * x(k + 1) ^ 6 * b ^ 4 + 0.105e3 
> * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i) 
> * sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * b - 0.56e2 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 
> 1) * x(i) ^ 2 * x(k) ^ 3 * b ^ (0.7e1 / 0.2e1) - 0.84e2 * b ^ (0.5e1 / 
> 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) 
> * x(i) ^ 3 * x(k) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 
> + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 5 * x(k) - 
> 0.224e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k 
> + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(k) + 0.112e3 * b ^ (0.7e1 / 
> 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(k + 1) ^ 5 * x(k) - 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(k) ^ 5 * x(k + 1) - 
> 0.126e3 * b ^ (0.3e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * 
> x(k) + x(i + 1) ^ 2)) * x(k) * x(k + 1) - 0.112e3 * exp(b * (x(k) ^ 2 
> + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k 
> + 1) * sqrt(b)) * x(i) ^ 6 * x(i + 1) * sqrt(%pi) * b ^ 4 - 0.32e2 * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 
> 1) ^ 4 * x(k) ^ 2 * b ^ (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k) ^ 2 + 
> 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(k + 1) ^ 2 * b 
> ^ (0.7e1 / 0.2e1) + 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 3 * x(k + 1) ^ 3 * b ^ (0.7e1 / 
> 0.2e1) - 0.48e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 
> 1) ^ 2)) * x(k) * x(i) ^ 3 * b ^ (0.5e1 / 0.2e1) + 0.84e2 * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(k + 1) ^ 3 * 
> x(i) * b ^ (0.5e1 / 0.2e1) + 0.48e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) 
> * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 3 * x(i) * b ^ (0.5e1 / 
> 0.2e1) + 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) ^ 7 * 
> sqrt(%pi) * b ^ 4 - 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * 
> x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 4 * x(i) * x(k + 1) * b ^ (0.7e1 / 
> 0.2e1) + 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 
> 1) ^ 2)) * x(i + 1) * x(i) * x(k + 1) ^ 4 * b ^ (0.7e1 / 0.2e1) - 
> 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) 
> * x(i) * x(i + 1) ^ 2 * x(k + 1) ^ 3 * b ^ (0.7e1 / 0.2e1) - 0.112e3 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i 
> + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(i + 1) * x(k + 1) 
> ^ 6 * b ^ 4 + 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 
> * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 2 * x(k + 1) ^ 3 * x(k) - 
> 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k 
> + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 3 * x(k + 1) * x(k) - 
> 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * 
> x(k + 1) ^ 6 * x(k) - 0.140e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) ^ 4 * sqrt(%pi) * x(k + 1) + 0.56e2 * b ^ (0.7e1 / 
> 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) 
> * x(i + 1) ^ 2 * x(k) ^ 3 * x(k + 1) + 0.56e2 * b ^ (0.5e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) * 
> x(k) ^ 2 * x(k + 1) - 0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 2 * 
> x(k + 1) - 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 
> 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 
> 1) ^ 6 * sqrt(%pi) * x(k) - 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) 
> * x(k + 1) + x(i + 1) ^ 2)) * x(k + 1) ^ 2 * x(i + 1) * x(i) * b ^ 
> (0.5e1 / 0.2e1) + 0.112e3 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k 
> + 1) + x(i) ^ 2)) * x(i) * x(k + 1) ^ 5 * b ^ (0.7e1 / 0.2e1) + 
> 0.112e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * sqrt(%pi) * x(k 
> + 1) ^ 6 * x(k) + 0.56e2 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 
> + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) * x(k) ^ 4 * x(k + 
> 1) + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + 
> x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * 
> sqrt(%pi) * x(k) ^ 5 * x(k + 1) + 0.112e3 * b ^ (0.7e1 / 0.2e1) * 
> exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 
> 1) * x(i) * x(k) ^ 3 * x(k + 1) - 0.210e3 * x(k + 1) * x(k) * b ^ 2 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * x(i) * 
> sqrt(%pi) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) - 0.168e3 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i 
> + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi) * x(k) 
> ^ 5 * b ^ 4 + 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + 
> x(i + 1) ^ 2)) * x(i) ^ 3 * x(k) ^ 3 * b ^ (0.7e1 / 0.2e1) - 0.56e2 * 
> b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + 
> x(i + 1) ^ 2)) * x(i) * x(k + 1) ^ 2 * x(k) - 0.280e3 * b ^ 4 * exp(b 
> * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * 
> sqrt(b) - x(k) * sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi) * x(k) ^ 4 * 
> x(k + 1) - 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i) ^ 4 * x(i + 1) * x(k + 1) 
> - 0.112e3 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 
> 2)) * x(i) * x(k) ^ 5 * b ^ (0.7e1 / 0.2e1) - 0.112e3 * exp(b * (x(k) 
> ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 5 * 
> b ^ (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k 
> + 1) + x(i + 1) ^ 2)) * x(i) * x(k + 1) ^ 5 * b ^ (0.7e1 / 0.2e1) - 
> 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) 
> * x(i + 1) ^ 2 * x(k) ^ 4 * b ^ (0.7e1 / 0.2e1) + 0.56e2 * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i + 1) * x(i) 
> ^ 2 * x(k + 1) ^ 3 * b ^ (0.7e1 / 0.2e1) + 0.80e2 * exp(b * (x(k + 1) 
> ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 6 * b ^ (0.7e1 
> / 0.2e1) + 0.56e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * x(k + 1) + x(i 
> + 1) ^ 2)) * x(i + 1) * x(i) ^ 4 * x(k + 1) * b ^ (0.7e1 / 0.2e1) + 
> 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i) * 
> sqrt(%pi) * x(k + 1) ^ 3 * x(k) - 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 
> 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * sqrt(%pi) * x(k) ^ 7 * b ^ 4 + 0.168e3 * b ^ (0.5e1 / 
> 0.2e1) * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) 
> * x(i + 1) * x(i) * x(k) * x(k + 1) - 0.168e3 * b ^ (0.5e1 / 0.2e1) * 
> exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 
> 1) * x(i) * x(k + 1) * x(k) + 0.168e3 * b ^ (0.7e1 / 0.2e1) * exp(b * 
> (x(k + 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i) * x(k) ^ 4 
> * x(k + 1) - 0.56e2 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k + 1) ^ 2 + 
> 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(k) * x(k + 1) 
> - 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 
> 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * sqrt(%pi) * x(i) * x(k) ^ 
> 6 * b ^ 4 - 0.196e3 * b ^ (0.5e1 / 0.2e1) * exp(b * (x(k) ^ 2 + 0.2e1 
> * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(i) * x(k) + 
> 0.140e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 
> 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 4 
> * sqrt(%pi) * x(k) + 0.168e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) ^ 5 * x(i) * sqrt(%pi) * x(k) + 0.168e3 * b ^ 4 * 
> exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * x(i) * sqrt(%pi) * x(k) ^ 5 * 
> x(k + 1) - 0.140e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 
> 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 1) * sqrt(b)) * 
> sqrt(%pi) * x(i) ^ 4 * x(k) + 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * sqrt(b)) * 
> sqrt(%pi) * x(k) ^ 7 * b ^ 4 + 0.80e2 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) ^ 7 * sqrt(%pi) * b ^ 4 - 0.32e2 * exp(b * (x(k) ^ 
> 2 + 0.2e1 * x(i) * x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 2 * x(k + 1) ^ 4 
> * b ^ (0.7e1 / 0.2e1) - 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i) * 
> x(k + 1) + x(i + 1) ^ 2)) * x(i) ^ 3 * x(k + 1) ^ 3 * b ^ (0.7e1 / 
> 0.2e1) + 0.32e2 * exp(b * (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + 
> x(i) ^ 2)) * x(i + 1) ^ 4 * x(k + 1) ^ 2 * b ^ (0.7e1 / 0.2e1) + 
> 0.32e2 * exp(b * (x(k + 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) 
> * x(i) ^ 2 * x(k) ^ 4 * b ^ (0.7e1 / 0.2e1) + 0.56e2 * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i + 1) * x(k) + x(i) ^ 2)) * x(i + 1) ^ 2 * x(i) * 
> x(k) ^ 3 * b ^ (0.7e1 / 0.2e1) + 0.112e3 * exp(b * (x(k) ^ 2 + x(i) ^ 
> 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i) ^ 6 * x(i + 1) * sqrt(%pi) * b ^ 4 - 0.56e2 * exp(b * 
> (x(k) ^ 2 + 0.2e1 * x(i + 1) * x(k + 1) + x(i) ^ 2)) * x(i + 1) * x(i) 
> * x(k + 1) ^ 4 * b ^ (0.7e1 / 0.2e1) + 0.112e3 * exp(b * (x(k) ^ 2 + 
> x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i) * sqrt(b) - x(k + 
> 1) * sqrt(b)) * sqrt(%pi) * x(i) * x(k + 1) ^ 6 * b ^ 4 + 0.112e3 * b 
> ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) * 
> erf(x(i + 1) * sqrt(b) - x(k + 1) * sqrt(b)) * x(i + 1) ^ 6 * 
> sqrt(%pi) * x(k + 1) + 0.112e3 * b ^ (0.7e1 / 0.2e1) * exp(b * (x(k + 
> 1) ^ 2 + 0.2e1 * x(i) * x(k) + x(i + 1) ^ 2)) * x(i + 1) * x(i) ^ 2 * 
> x(k) ^ 2 * x(k + 1) + 0.280e3 * b ^ 4 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + 
> x(k + 1) ^ 2 + x(i + 1) ^ 2)) * erf(x(i + 1) * sqrt(b) - x(k) * 
> sqrt(b)) * x(i + 1) * x(i) * sqrt(%pi) * x(k) ^ 4 * x(k + 1) - 0.140e3 
> * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 + x(i + 1) ^ 2)) 
> * erf(x(i + 1) * sqrt(b) - x(k) * sqrt(b)) * x(i + 1) ^ 4 * sqrt(%pi) 
> * x(k) - 0.280e3 * b ^ 3 * exp(b * (x(k) ^ 2 + x(i) ^ 2 + x(k + 1) ^ 2 
> + x(i + 1) ^ 2)) * x(i) ^ 3 * x(i + 1) * sqrt(%pi) * erf(x(i) * 
> sqrt(b) - x(k) * sqrt(b)) * x(k + 1)) * b ^ (-0.9e1 / 0.2e1) / (x(i + 
> 1) ^ 2 * x(k + 1) ^ 2 - 0.2e1 * x(i + 1) ^ 2 * x(k + 1) * x(k) + x(i + 
> 1) ^ 2 * x(k) ^ 2 - 0.2e1 * x(i + 1) * x(k + 1) ^ 2 * x(i) + 0.4e1 * 
> x(i + 1) * x(i) * x(k + 1) * x(k) - 0.2e1 * x(i + 1) * x(i) * x(k) ^ 2 
> + x(i) ^ 2 * x(k + 1) ^ 2 - 0.2e1 * x(i) ^ 2 * x(k + 1) * x(k) + x(i) 
> ^ 2 * x(k) ^ 2) / 0.6720e4;
>
> 2011/10/3 Mike Page <Mike at page-one.waitrose.com 
> <mailto:Mike at page-one.waitrose.com>>
>
>     Can you post some code that shows the problem?
>     Sounds like maybe you are creating a string instead of a numeric
>     matrix.
>     Regards,
>     Mike.
>
>         -----Original Message-----
>         *From:* severine.pl <http://severine.pl>
>         [mailto:severine.pl at gmail.com <mailto:severine.pl at gmail.com>]
>         *Sent:* 03 October 2011 14:10
>         *To:* users at lists.scilab.org <mailto:users at lists.scilab.org>
>         *Subject:* [scilab-Users] too large string
>
>         Hi!
>
>         I woulf like to find an answer to my problem.
>
>         I'm doing very big calculus in scilab, and calculating very
>         big matrix.
>         And when i'm trying to executing the programm, Scilab says me:
>
>         "Too large string"
>
>         What must I do?
>
>         S?verine Paul
>
>         ------------------------------------------------------------------------
>         View this message in context: too large string
>         <http://mailinglists.scilab.org/too-large-string-tp3389713p3389713.html>
>         Sent from the Scilab users - Mailing Lists Archives mailing
>         list archive
>         <http://mailinglists.scilab.org/Scilab-users-Mailing-Lists-Archives-f2602246.html>
>         at Nabble.com.
>
>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111003/ebed2c5c/attachment.htm>

From grivet at cnrs-orleans.fr  Mon Oct  3 17:12:27 2011
From: grivet at cnrs-orleans.fr (grivet)
Date: Mon, 03 Oct 2011 17:12:27 +0200
Subject: vectorization
In-Reply-To: <4E89CC69.6090404@limsi.fr>
References: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com> <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com> <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com> <4E89CC69.6090404@limsi.fr>
Message-ID: <4E89D0DB.8060405@cnrs-orleans.fr>

Hello,
I wish to solve a system of linear differential equations of first order
     x' = Rx
with R a symmetric matrix of coefficients. The formal solution is simple:
     x = S*exp(Kt)*inv(S)*x(0)
where S is the matrix that diagonalizes R:
     K = inv(S)*R*S
With Scilab, I would do, for instance,  t = 0:0.01:10, but then, what is 
the best way to
compute exp(Kt)  and the above matrix product ?
Up to now, I have worked with  2*2 matrices R and K, so that I compute 
exp[K(1,1)*t(i)], exp[K(2,2)*t(i) and x(t(i)) within
a loop, but that doesnot seem very efficient.
Thanks in advance
JP Grivet




From vogt at centre-cired.fr  Mon Oct  3 17:57:59 2011
From: vogt at centre-cired.fr (Adrien Vogt-Schilb)
Date: Mon, 03 Oct 2011 17:57:59 +0200
Subject: [scilab-Users] vectorization
In-Reply-To: <4E89D0DB.8060405@cnrs-orleans.fr>
References: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com> <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com> <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com> <4E89CC69.6090404@limsi.fr> <4E89D0DB.8060405@cnrs-orleans.fr>
Message-ID: <4E89DB87.2060406@centre-cired.fr>

Hi

Could you show us the actual loop?


On 03/10/2011 17:12, grivet wrote:
> Hello,
> I wish to solve a system of linear differential equations of first order
>     x' = Rx
> with R a symmetric matrix of coefficients. The formal solution is simple:
>     x = S*exp(Kt)*inv(S)*x(0)
> where S is the matrix that diagonalizes R:
>     K = inv(S)*R*S
> With Scilab, I would do, for instance,  t = 0:0.01:10, but then, what 
> is the best way to
> compute exp(Kt)  and the above matrix product ?
> Up to now, I have worked with  2*2 matrices R and K, so that I compute 
> exp[K(1,1)*t(i)], exp[K(2,2)*t(i) and x(t(i)) within
> a loop, but that doesnot seem very efficient.
> Thanks in advance
> JP Grivet
>


-- 
Adrien Vogt-Schilb (Cired)
Tel: (+33) 1 43 94 *73 77*
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111003/e5bfa22f/attachment.htm>

From Serge.Steer at inria.fr  Mon Oct  3 18:08:35 2011
From: Serge.Steer at inria.fr (Serge Steer)
Date: Mon, 03 Oct 2011 18:08:35 +0200
Subject: [scilab-Users] vectorization
In-Reply-To: <4E89D0DB.8060405@cnrs-orleans.fr>
References: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com> <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com> <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com> <4E89CC69.6090404@limsi.fr> <4E89D0DB.8060405@cnrs-orleans.fr>
Message-ID: <4E89DE03.2010608@inria.fr>

Le 03/10/2011 17:12, grivet a ?crit :
> Hello,
> I wish to solve a system of linear differential equations of first order
>     x' = Rx
> with R a symmetric matrix of coefficients. The formal solution is simple:
>     x = S*exp(Kt)*inv(S)*x(0)
> where S is the matrix that diagonalizes R:
>     K = inv(S)*R*S
> With Scilab, I would do, for instance,  t = 0:0.01:10, but then, what 
> is the best way to
> compute exp(Kt)  and the above matrix product ?
> Up to now, I have worked with  2*2 matrices R and K, so that I compute 
> exp[K(1,1)*t(i)], exp[K(2,2)*t(i) and x(t(i)) within
> a loop, but that doesnot seem very efficient.
> Thanks in advance
> JP Grivet
>
>
>
A first way that can be used if the discretization of t in not regular

R=rand(5,5);R=R+R';//creates a symmetric matrix
[S,K]=schur(R) //R=S*K*S';
K=diag(K);
E=exp(K*t)
x=zeros(size(x0,'*'), size(t,'*'))
for i=1:size(t,'*')
   x(:,i)=S*diag(E(:,i)*S'*x0
end
Here you can also use the ode solver to do the job


A second way for contant step size discretisation
dt=0.01;
E=expm(R*dt)
x=zeros(size(x0,'*'), size(t,'*'))
x(:,1)=x0;
for i=2:size(t,'*')
   x(:,i)=E*x(:,i-1)
end


Serge Steer
INRIA


From vogt at centre-cired.fr  Mon Oct  3 18:15:11 2011
From: vogt at centre-cired.fr (Adrien Vogt-Schilb)
Date: Mon, 03 Oct 2011 18:15:11 +0200
Subject: [scilab-Users] vectorization
In-Reply-To: <4E89DE03.2010608@inria.fr>
References: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com> <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com> <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com> <4E89CC69.6090404@limsi.fr> <4E89D0DB.8060405@cnrs-orleans.fr> <4E89DE03.2010608@inria.fr>
Message-ID: <4E89DF8F.5060000@centre-cired.fr>

On 03/10/2011 18:08, Serge Steer wrote:
>
> R=rand(5,5);R=R+R';//creates a symmetric matrix
> [S,K]=schur(R) //R=S*K*S';
> K=diag(K);
> E=exp(K*t)
> x=zeros(size(x0,'*'), size(t,'*'))
> for i=1:size(t,'*')
>   x(:,i)=S*diag(E(:,i)*S'*x0
> end
> Here you can also use the ode solver to do the job 

Serge,

do you know if x(:,i)=S*diag(E(:,i)*S'*x0  has to compute S' each time? 
or the parser is smart enough to compute S'*x0 without computing S' ?

if not, when t is very large, one should calculate S' once before the 
loop, don't you think?


-- 
Adrien Vogt-Schilb (Cired)
Tel: (+33) 1 43 94 *73 77*
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111003/1bf03a76/attachment.htm>

From serge.steer at inria.fr  Mon Oct  3 20:42:08 2011
From: serge.steer at inria.fr (Serge Steer)
Date: Mon, 3 Oct 2011 20:42:08 +0200 (CEST)
Subject: [scilab-Users] vectorization
In-Reply-To: <4E89DF8F.5060000@centre-cired.fr>
Message-ID: <668574984.463418.1317667328417.JavaMail.root@zmbs3.inria.fr>

Oups, You are right, it is better computing S'*x0 once. Serge ----- Mail original -----
> De: "Adrien Vogt-Schilb" <vogt at centre-cired.fr>
> ?: users at lists.scilab.org
> Envoy?: Lundi 3 Octobre 2011 18:15:11
> Objet: Re: [scilab-Users] vectorization
> On 03/10/2011 18:08, Serge Steer wrote:
> > R=rand(5,5);R=R+R';//creates a symmetric matrix
> > [S,K]=schur(R) //R=S*K*S';
> > K=diag(K);
> > E=exp(K*t)
> > x=zeros(size(x0,'*'), size(t,'*'))
> > for i=1:size(t,'*')
> > x(:,i)=S*diag(E(:,i)*S'*x0
> > end
> > Here you can also use the ode solver to do the job
> Serge,
> do you know if x(:,i)=S*diag(E(:,i)*S'*x0 has to compute S' each time?
> or the parser is smart enough to compute S'*x0 without computing S' ?
> if not, when t is very large, one should calculate S' once before the
> loop, don't you think?
> --
> Adrien Vogt-Schilb (Cired)
> Tel: (+33) 1 43 94 73 77
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111003/111029e6/attachment.htm>

From rouxph.22 at gmail.com  Mon Oct  3 21:25:23 2011
From: rouxph.22 at gmail.com (philippe)
Date: Mon, 03 Oct 2011 21:25:23 +0200
Subject: too large string
In-Reply-To: <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com>
References: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com> <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com> <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com>
Message-ID: <j6d274$lr0$1@dough.gmane.org>

hi,

Le 03/10/2011 15:53, S?verine Paul a ?crit :
> Hi again,
> 
> this is the answer of scilab:
> 
> Command is too long (more than 512 characters long): could not send it
> to Scilab


this error message is the same as in bug 9989 :

http://bugzilla.scilab.org/show_bug.cgi?id=9989

so i suppose that your command is in "file.sce" an you try to load it
into scilab from scinotes with :

"mouse selection"+"right clic"+ "evaluate selection"

thus you should try  loading "file.sce' into scilab from  scinotes with
one of the following commands :

CTRL+E
CTRL+SHIFT+E
CTRL+L

Philippe.




From sgougeon at free.fr  Tue Oct  4 00:14:23 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Tue, 04 Oct 2011 00:14:23 +0200
Subject: [scilab-Users] too large string
In-Reply-To: <4E89D067.2020605@scilab.org>
References: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com> <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com> <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com> <4E89D067.2020605@scilab.org>
Message-ID: <4E8A33BF.3010704@free.fr>

Hi Calixte,

Le 03/10/2011 17:10, Calixte Denizet a ?crit :
> Hi S?verine,
>
> The string you can pass to scilab has a limited size.
>
> A workaround:
> i) put your big line in a file: expression.txt
> ii) get your line with : l=mgetl('expression.txt');
> iii) J(i,k)=evstr(l);
Does evstr() really work in this case?? Hasn't it the same limitation, 
if l is a unique huge line?
i did not have a try....
help evstr states: "Each element of the matrix must define a valid 
Scilab expression"
If the maximal length of the command is a criterium for validity, 
evstr() may neither work
for too long inputs. To be confirm, and may be documented in the evstr() 
help page.

Best regards
Samuel

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111004/3ca864fb/attachment.htm>

From sgougeon at free.fr  Tue Oct  4 00:50:56 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Tue, 04 Oct 2011 00:50:56 +0200
Subject: [scilab-Users] too large string
In-Reply-To: <4E8A33BF.3010704@free.fr>
References: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com> <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com> <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com> <4E89D067.2020605@scilab.org> <4E8A33BF.3010704@free.fr>
Message-ID: <4E8A3C50.2030504@free.fr>

Le 04/10/2011 00:14, Samuel Gougeon a ?crit :
> Hi Calixte,
>
> Le 03/10/2011 17:10, Calixte Denizet a ?crit :
>> Hi S?verine,
>>
>> The string you can pass to scilab has a limited size.
>>
>> A workaround:
>> i) put your big line in a file: expression.txt
>> ii) get your line with : l=mgetl('expression.txt');
>> iii) J(i,k)=evstr(l);
> Does evstr() really work in this case?? Hasn't it the same limitation, 
> if l is a unique huge line?
> i did not have a try....
> help evstr states: "Each element of the matrix must define a valid 
> Scilab expression"
> If the maximal length of the command is a criterium for validity, 
> evstr() may neither work
> for too long inputs. To be confirm, and may be documented in the 
> evstr() help page.
With execstr(), it works! The statement L="iiiiiiiii a very 
2800-chars-long string ....iiiii"
stored into a file read with mgetl() and executed with execstr() is 
actually well done.
Interesting trick!

[By the way, the case from S?verine has an assignment and can be 
processed only with execstr().
Neither eval() nor evstr() can process assignments].

Samuel

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111004/bd424ba3/attachment.htm>

From sgougeon at free.fr  Tue Oct  4 00:56:46 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Tue, 04 Oct 2011 00:56:46 +0200
Subject: [scilab-Users] too large string
In-Reply-To: <4E8A3C50.2030504@free.fr>
References: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com> <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com> <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com> <4E89D067.2020605@scilab.org> <4E8A33BF.3010704@free.fr> <4E8A3C50.2030504@free.fr>
Message-ID: <4E8A3DAE.7090403@free.fr>

Le 04/10/2011 00:50, Samuel Gougeon a ?crit :
>> Le 03/10/2011 17:10, Calixte Denizet a ?crit :
>>> Hi S?verine,
>>>
>>> The string you can pass to scilab has a limited size.
>>>
>>> A workaround:
>>> i) put your big line in a file: expression.txt
>>> ii) get your line with : l=mgetl('expression.txt');
>>> iii) J(i,k)=evstr(l);

OK, you were proposing to set the LHS and assignment apart, and the only 
the RHS (not the whole big line) in the file.
Then evstr() will work.
SG

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111004/355340fe/attachment.htm>

From grivet at cnrs-orleans.fr  Tue Oct  4 14:19:51 2011
From: grivet at cnrs-orleans.fr (grivet)
Date: Tue, 04 Oct 2011 14:19:51 +0200
Subject: [scilab-Users] vectorization
In-Reply-To: <4E89DE03.2010608@inria.fr>
References: <CAHvBYcN5rV=xBNNotxP6HoC-Lfy-t9J4zEEENm+kqpKk+g5KCA@mail.gmail.com> <LKECIGCCKNOMMCKAGNOAOEBKDIAA.Mike@Page-One.Waitrose.com> <CAHvBYcN+sNjsOFOzQBLbfQ4z4WXx+AvZ0VV+gYb=e4exxjyPAw@mail.gmail.com> <4E89CC69.6090404@limsi.fr> <4E89D0DB.8060405@cnrs-orleans.fr> <4E89DE03.2010608@inria.fr>
Message-ID: <4E8AF9E7.3030704@cnrs-orleans.fr>


> A second way for contant step size discretisation
> dt=0.01;
> E=expm(R*dt)
> x=zeros(size(x0,'*'), size(t,'*'))
> x(:,1)=x0;
> for i=2:size(t,'*')
>   x(:,i)=E*x(:,i-1)
> end
Thank you; this is elegant and much more compact than my solution:
R = [-2,3;3,-9];
[K,S] = bdiag(R);
t = 0:0.01:3;
x0 = [1;-1];
for it = 1:size(t,"*")
    x = S*expm(K*t(it))*inv(S)*x0;
    x1(it) = x(1,1); x2(it) = x(2,1);
end





From sumit.adhikari at gmail.com  Tue Oct  4 15:47:44 2011
From: sumit.adhikari at gmail.com (Sumit Adhikari)
Date: Tue, 4 Oct 2011 15:47:44 +0200
Subject: Reg :: Area Between two curves
Message-ID: <CAKcnt0d+uJnc9kFBFpSSkd1=+cToyR2J1wQAJ1yWJGC3pa4G6Q@mail.gmail.com>

Hello All,

If I have two curves then how do I shade the area between two curves in
scilab.

I am plotting data files and using scilab plot function.

Regards,

-- 
Sumit Adhikari,
Institute of Computer Technology,
Faculty of Electrical Engineering,
Vienna University of Technology,
Gu?hausstra?e 27-29,1040 Vienna
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111004/3fa8e04c/attachment.htm>

From sgougeon at free.fr  Tue Oct  4 22:41:25 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Tue, 04 Oct 2011 22:41:25 +0200
Subject: [scilab-Users] Reg :: Area Between two curves
In-Reply-To: <CAKcnt0d+uJnc9kFBFpSSkd1=+cToyR2J1wQAJ1yWJGC3pa4G6Q@mail.gmail.com>
References: <CAKcnt0d+uJnc9kFBFpSSkd1=+cToyR2J1wQAJ1yWJGC3pa4G6Q@mail.gmail.com>
Message-ID: <4E8B6F75.9000601@free.fr>

Le 04/10/2011 15:47, Sumit Adhikari a ?crit :
> Hello All,
>
> If I have two curves then how do I shade the area between two curves 
> in scilab.
>
> I am plotting data files and using scilab plot function.
There are at least 4 ways for doing that. The best one depends on if 
your curves
share the same x or not, and/or if they are crossing each others or not...

After a plot, you may use  e = gce(); e=e.children(1);  and then
either e.polyline_style=5;  e.foreground=<index of the color you want>
or e.fill_mode="on"; e.background=<index of the color you want>
xfpoly(...) could also be used.
Anyway, you will likely have to complete your data by adding a heading
and a trailing well-chosen point to each curve.

Have a try and optimize according to your data.

The area between both curves may also be considered as a polygone to be 
filled.

HTH
Samuel


From antoine.monmayrant at laas.fr  Wed Oct  5 08:54:00 2011
From: antoine.monmayrant at laas.fr (Antoine Monmayrant)
Date: Wed, 05 Oct 2011 08:54:00 +0200
Subject: [scilab-Users] Reg :: Area Between two curves
In-Reply-To: <4E8B6F75.9000601@free.fr>
References: <CAKcnt0d+uJnc9kFBFpSSkd1=+cToyR2J1wQAJ1yWJGC3pa4G6Q@mail.gmail.com> <4E8B6F75.9000601@free.fr>
Message-ID: <4E8BFF08.70109@laas.fr>

Le 04/10/2011 22:41, Samuel Gougeon a ?crit :
> Le 04/10/2011 15:47, Sumit Adhikari a ?crit :
>> Hello All,
>>
>> If I have two curves then how do I shade the area between two curves 
>> in scilab.
>>
>> I am plotting data files and using scilab plot function.
> There are at least 4 ways for doing that. The best one depends on if 
> your curves
> share the same x or not, and/or if they are crossing each others or 
> not...
>
> After a plot, you may use  e = gce(); e=e.children(1);  and then
> either e.polyline_style=5;  e.foreground=<index of the color you want>
> or e.fill_mode="on"; e.background=<index of the color you want>
> xfpoly(...) could also be used.
> Anyway, you will likely have to complete your data by adding a heading
> and a trailing well-chosen point to each curve.
>
> Have a try and optimize according to your data.
>
> The area between both curves may also be considered as a polygone to 
> be filled.
>
> HTH
> Samuel

For two curves y1 and y2 that share the same x axis, I have made this 
quick and dirty function:

BetweenCurves(x,y1,y2);

Here is an example:

x=[-10:10];y1=x+10;y2=x.*x;
BetweenCurves(x,y1,y2);


Here is the source code below:


//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Plot area between two curves
function [h,epoly,ey1,ey2]=BetweenCurves(x,y1,y2,varargin)
//
//      Plots two curves and fill the area in between
//
//      INPUTS:
//              x       vector (1,n) of horizontal coordinates
//              y1      vector (1,n) value of 1st curve y1(x)
//              y2      vector (1,n) value of 2nd curve y2(x)
//       -- optional inputs: pairs "keyword","value" --
//              "handle",h      handle to the graphic window to use
//              "axis",a      handle to the graphic axis to use
//              "foreground", colorid   id of the color to use for 
painting the area
//              "background", colorid   id of the color to use for 
curves stroke
//
//      OUTPUTS:
//              h       handle to the graphic window used
//              epoly   handle to the polygone that fill the area in between
//              ey1     handle to first curve
//              ey2     handle to second curve

//default values for optional argument
       hfig=-1;
       background=%nan;
       foreground=%nan;
// scan varargin for optional parameter pairs (they can appear in any order)
    for i=1:2:length(varargin)
       keyword=varargin(i);
       value=varargin(i+1);
       select keyword
          case "handle" then
             hfig=value;
             scf(hfig);
          case "axis" then
             axis=value;
             sca(axis);
             hfig=axis.parent;
          case "background" then
             background=value;
          case "foreground" then
             background=value;
       end
    end
// special treatment for handle (aka hack alert)
    if typeof(hfig) ~= "handle" then
       hfig=scf();
    end
    h=hfig;
    scf(hfig);
    xfpoly([x,x($:-1:1)],[y1,y2($:-1:1)]);
    epoly=gce();
    plot(x,y1);
    ey1=gce();
    plot(x,y2);
    ey2=gce();
// background setting
    if (~isnan(background)) then
       // optional background specified
       epoly.background=background;
    else
       // default background
       epoly.background=color("gray87");
    end
// foreground setting (as for background)
    if (~isnan(foreground)) then
       epoly.foreground=foreground;
       ey1.children.foreground=foreground;
       ey2.children.foreground=foreground;
    else
       epoly.foreground=color("gray65");
       ey1.children.foreground=color("gray65");
       ey2.children.foreground=color("gray65");
    end
endfunction
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

It's far from perfect but it does what I need.
Hope it helps,

Antoine


From sumit.adhikari at gmail.com  Wed Oct  5 11:45:00 2011
From: sumit.adhikari at gmail.com (Sumit Adhikari)
Date: Wed, 5 Oct 2011 11:45:00 +0200
Subject: [scilab-Users] Reg :: Area Between two curves
In-Reply-To: <4E8BFF08.70109@laas.fr>
References: <CAKcnt0d+uJnc9kFBFpSSkd1=+cToyR2J1wQAJ1yWJGC3pa4G6Q@mail.gmail.com>
	<4E8B6F75.9000601@free.fr>
	<4E8BFF08.70109@laas.fr>
Message-ID: <CAKcnt0eHTPr2NzsRuMmbCC+GJH_sPi9v6YJRFXV7miW6Vu=V4g@mail.gmail.com>

Dear Antoine and Samuel,

Thanks for the replies. I am using Antoine's function. It is working great!.
Thanks  Antoine, for everything :)
Regards,
Sumit

On Wed, Oct 5, 2011 at 8:54 AM, Antoine Monmayrant <
antoine.monmayrant at laas.fr> wrote:

> Le 04/10/2011 22:41, Samuel Gougeon a ?crit :
>
>  Le 04/10/2011 15:47, Sumit Adhikari a ?crit :
>>
>>> Hello All,
>>>
>>> If I have two curves then how do I shade the area between two curves in
>>> scilab.
>>>
>>> I am plotting data files and using scilab plot function.
>>>
>> There are at least 4 ways for doing that. The best one depends on if your
>> curves
>> share the same x or not, and/or if they are crossing each others or not...
>>
>> After a plot, you may use  e = gce(); e=e.children(1);  and then
>> either e.polyline_style=5;  e.foreground=<index of the color you want>
>> or e.fill_mode="on"; e.background=<index of the color you want>
>> xfpoly(...) could also be used.
>> Anyway, you will likely have to complete your data by adding a heading
>> and a trailing well-chosen point to each curve.
>>
>> Have a try and optimize according to your data.
>>
>> The area between both curves may also be considered as a polygone to be
>> filled.
>>
>> HTH
>> Samuel
>>
>
> For two curves y1 and y2 that share the same x axis, I have made this quick
> and dirty function:
>
> BetweenCurves(x,y1,y2);
>
> Here is an example:
>
> x=[-10:10];y1=x+10;y2=x.*x;
> BetweenCurves(x,y1,y2);
>
>
> Here is the source code below:
>
>
> //////////////////////////////**//////////////////////////////**
> //////////////////////////////**//////////////////////////////**//////
> // Plot area between two curves
> function [h,epoly,ey1,ey2]=**BetweenCurves(x,y1,y2,**varargin)
> //
> //      Plots two curves and fill the area in between
> //
> //      INPUTS:
> //              x       vector (1,n) of horizontal coordinates
> //              y1      vector (1,n) value of 1st curve y1(x)
> //              y2      vector (1,n) value of 2nd curve y2(x)
> //       -- optional inputs: pairs "keyword","value" --
> //              "handle",h      handle to the graphic window to use
> //              "axis",a      handle to the graphic axis to use
> //              "foreground", colorid   id of the color to use for painting
> the area
> //              "background", colorid   id of the color to use for curves
> stroke
> //
> //      OUTPUTS:
> //              h       handle to the graphic window used
> //              epoly   handle to the polygone that fill the area in
> between
> //              ey1     handle to first curve
> //              ey2     handle to second curve
>
> //default values for optional argument
>      hfig=-1;
>      background=%nan;
>      foreground=%nan;
> // scan varargin for optional parameter pairs (they can appear in any
> order)
>   for i=1:2:length(varargin)
>      keyword=varargin(i);
>      value=varargin(i+1);
>      select keyword
>         case "handle" then
>            hfig=value;
>            scf(hfig);
>         case "axis" then
>            axis=value;
>            sca(axis);
>            hfig=axis.parent;
>         case "background" then
>            background=value;
>         case "foreground" then
>            background=value;
>      end
>   end
> // special treatment for handle (aka hack alert)
>   if typeof(hfig) ~= "handle" then
>      hfig=scf();
>   end
>   h=hfig;
>   scf(hfig);
>   xfpoly([x,x($:-1:1)],[y1,y2($:**-1:1)]);
>   epoly=gce();
>   plot(x,y1);
>   ey1=gce();
>   plot(x,y2);
>   ey2=gce();
> // background setting
>   if (~isnan(background)) then
>      // optional background specified
>      epoly.background=background;
>   else
>      // default background
>      epoly.background=color("**gray87");
>   end
> // foreground setting (as for background)
>   if (~isnan(foreground)) then
>      epoly.foreground=foreground;
>      ey1.children.foreground=**foreground;
>      ey2.children.foreground=**foreground;
>   else
>      epoly.foreground=color("**gray65");
>      ey1.children.foreground=color(**"gray65");
>      ey2.children.foreground=color(**"gray65");
>   end
> endfunction
> //////////////////////////////**//////////////////////////////**
> //////////////////////////////**//////////////////////////////**//////
>
> It's far from perfect but it does what I need.
> Hope it helps,
>
> Antoine
>



-- 
Sumit Adhikari,
Institute of Computer Technology,
Faculty of Electrical Engineering,
Vienna University of Technology,
Gu?hausstra?e 27-29,1040 Vienna
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111005/e40def99/attachment.htm>

From jaundreventer at gmail.com  Wed Oct  5 14:27:34 2011
From: jaundreventer at gmail.com (Jaundre Venter)
Date: Wed, 5 Oct 2011 14:27:34 +0200
Subject: No reaction
Message-ID: <CAHM=geHK-jnj5Jq8boLEE9Gc_GjPnvtp12=Nh2MYT1oo9cC=4g@mail.gmail.com>

Hi all

Can someone please explain to me the following:

I am busy with a project of simulation the production of penicillin in a bio
reactor. Now i have 9 ODE's which i want to simulate.

now for some reason the last three graphs i am getting doesn't show any
response what so ever. i am using the following code.

dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx_6)))*(CO)*(HION)), //biomass
concentration X
dx(2)=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ)), //hydrogen ion
concentration H+
dx(3)=((((mupp)*(x(1)))-((K)*(x(3)))-((x(3))/(x(6)))*(dx_6))*(HION)),
//Penicilin concentration P
dx(4)=((-((mu)/(Yxs))*(x(1)))-(((mupp)/(Yps))*(x(1)))-((mx)*(x(1)))+((Fsf)/(x(6)))-((x(4)/(x(6)))*(dx_6))),
//Substrate concentration S
dx(5)=(-(((mu)/(Yxo))*(x(1)))-(((mupp)/(Ypo))*(x(1)))-(((mo))*(x(1)))+((kla)*(cll-(x(5))))-(((x(5))/(x(6)))*(dx_6))),
//dissolved oxygen
dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume V
dx(7)=(((rq1)*(dx_1)*(x(6)))+(rq2)*(x(1))*(x(6))), //Heat generation Qrxn
dx(8)=((((F)/(sf))*(Tf-(x(8))))+(1/((x(6))*(pcp)))*(QT)),  //  Temperature T
dx(9)=(((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
endfunction

now when i ask for plotting the graphs i am using the following.:

//  initial values
x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
t=0:0.005:400;
y=ode(x0, 0, t, f);

// the plots of each variable
da.title.text="BIOMASS CONCENTRATION"
da.x_label.text="Time, hours";
da.y_label.text="X,g/l ";
scf(1);clf; //Opens and clears figure 1
plot(t,y(1,:))

da.title.text="HYDROGEN ION H+ CONCENTRATION"
da.y_label.text="H+,mol/l ";
scf(2);clf; //Opens and clears figure 2
plot(t,y(2,:))

da.title.text="PENICILLIN CONCENTRATION"
da.y_label.text="P,g/l ";
scf(3);clf; //Opens and clears figure 3
plot(t,y(3,:))

da.title.text="SUBSTRATE CONCENTRATION"
da.y_label.text="S,g/l ";
scf(4);clf; //Opens and clears figure 4
plot(t,y(4,:))

da.title.text="DISSOLVED OXYGEN CONCENTRATION"
da.y_label.text="C_l,g/l ";
scf(5);clf; //Opens and clears figure 5
plot(t,y(5,:))

da.title.text="CULTURE VOLUME"
da.y_label.text="V,l";
scf(6);clf; //Opens and clears figure 6
plot(t,y(6,:))

da.title.text="HEAT OF REACTION"
da.y_label.text="Qrxn,cal";
scf(7);
clf; //Opens and clears figure 7
plot(t,y(7),:)

da.title.text="TEMPERATURE"
da.y_label.text="T,Kelvin";
scf(8);
clf; //Opens and clears figure 8
plot(t,y(8),:)

da.title.text="CO2 EVOLUTION"
da.y_label.text="CO2,mmol/l/";
scf(9);
clf; //Opens and clears figure 9
plot(t,y(9),:)

Am i doing something wrong? before the ODE's i have just programmed the
initial values and constants :

funcprot(0);
function dx = f(t,x)
K1=1.0e-10         //mol/l
K2=7.0e-05         //mol/l
Kx=0.15            // Contois saturation constant, g/l
Kox=2e-02          // oxygen limitation constant
mux=0.092          // maitenance coefficient on subsrate
p=3                //constant
Kp=0.0002          //   inhibition constant
Kop=2e-02      // oxygen limitation constant
K=0.04     //  Penicillin hydrolysis constant, per h
Yxs=0.45  //   yield constant,g biomass/g glucose = dimensionless
Yps=0.90  //   yield constant, g pinicillin/ g glucose = dimensionless
mx= 0.014  //   Maintenance coefficient on substrate, per h
Yxo=0.04  //   yield constant, g biomass/g oxygen = dimensionless
Ypo=0.20  //   yield constant, g penicillin/g oxygen= dimensionless
mo= 0.467  //   maintenance coefficient of oxygen, per h
mup=0.0005  // specific rate of penicilline production (per h)
sf=600 // Feed substrate concentration, g/l
kla=23     // function of agitation power input and oxugen flow rate,
dimensional
cll=1.16   //  dissolved oxygen concentration, g/l
Cab=3      // concentrations in both solutions
Fa=5     // acid flow rate, l/h  !!
Fb=5      // base flow rate, l/h !!
delta_t=0.01   //  time step in digital PID controller - arbitrary value!!!
z=10e-5     // constant
F=0.042       //  feed substrate flow rate l/h
T0=273         //  temperature at freezing, K
Tv=373       //  temperature at boiling
T=298  //  feed temp of substrate
h=(2.5e-4)     //  constant
Floss=(x(6)*(h)*(exp(5)*((T-T0)/(Tv-T0))))
Fab=Fa+Fb  // volume increase due to influx of acid Fa and base Fb
Fsf=((sf)*(F))
kg= 7e-3 //  Arrhenius constant for growth
kd=10e33  //  Arrhenius constant for cell death
Eg= 5100  //  Activation energy for growth, cal/mol
Ed= 50000  //  Activation energy for cell death, cal/mol
R= 1.987  //  gas constant, cal/mol k
T= 297  //  Temperature
RT= R*T
alpa= 70  //  constant in Kla
betha= 0.4  //  constant in Kla
Pw= 30  //  Agitation power input, W
fg= 8.6  //  Flow rate of oxygen
V=100  //  Volume
QE= ((kg*exp(-(Eg/RT)))-(kd*exp(-(Ed/RT))))
kla= alpa*((sqrt(fg)*(Pw/x(6)))^betha)
mu
=(((mux)/(1+((K1)/(x(2)))+((x(2))/(K2))))*((x(3))/(((Kx)*(x(1)))+(x(3))))*((x(5))/(((Kox)*(x(1)))+(x(5))))*(QE))
//  Specific growth rate
mupp =
((mup)*((x(4))/((Kp)+(x(4))+(x(4)^2)/(K1)))*((x(5)^p)/((Kop)*(x(1)))+(x(5)^p)))
// Specific penicillin production rate
B =(((1e-14/x(2)-x(2))*x(6)-Cab*(Fa+Fb)*delta_t)/(x(6)+(Fa+Fb)*delta_t))
QQ =((-B+sqrt(B^2+4e-14))/2-(x(2)))*(1/delta_t)
dx_6 = (F+Fab+Floss) //Culture Volume V
dx_1 = (((mu)*(x(1)))-((x(1))/(x(6)))*(dx_6)) //biomass concentration X
rq1 = 60  //  yield of heat generation, cal/g biomass
rq2 = 1.6783e-4  //  Constant, cal/g biomass h
Tf = 296  //  substrate feed temperature, Kelvin
a = 1000   //  heat transfer coefficient of cooling/heating liquid, cal/h
degree C
b = 0.60   //  constant
Fc=0.1   //  Cooling water flow rate, not sure about value, l/h
pcCpc = 1/2000   //  Density times heat capacity of cooling liquid, per l
degree C
pcp = 1/1500   //  density times heat capacity of medium
QT = ((x(7)-(((a)*(Fc^b+1))/((Fc)+((a)*(Fc^b))/2*pcCpc))))
a1=0.143  //  constant relating CO2 to growth, mmol CO2/g biomass
a2=4e-7  //  Constant relating CO2 to mainteneance energy, mmol CO2/g
biomass h
a3=1e-4 //  Constant relating CO2 to penicillin production, mmol CO2/l h
CO= (((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
HION=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ))

Thanks.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111005/448cb2d3/attachment.htm>

From vogt at centre-cired.fr  Wed Oct  5 14:43:50 2011
From: vogt at centre-cired.fr (Adrien Vogt-Schilb)
Date: Wed, 05 Oct 2011 14:43:50 +0200
Subject: [scilab-Users] No reaction
In-Reply-To: <CAHM=geHK-jnj5Jq8boLEE9Gc_GjPnvtp12=Nh2MYT1oo9cC=4g@mail.gmail.com>
References: <CAHM=geHK-jnj5Jq8boLEE9Gc_GjPnvtp12=Nh2MYT1oo9cC=4g@mail.gmail.com>
Message-ID: <4E8C5106.3080801@centre-cired.fr>

Hi

Try to isalote your problem
if i understood well, the following code

//  initial values
x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
t=0:0.005:400;
y=ode(x0, 0, t, f);

returns y such that sum(y(6:9,:)>x0) == 0 ?
if this is true, we do not need the plots to solve the problem
can you check that ?

I believe the f function is erroneous.
It seems that dx_1 should be equal to dx(1) at each time step, and that 
HION should be equal to x(2) at each time step, etc.

in other terms, some of your phisical variables seem to be represented 
by to variables (i am guessing HION=[H+] and x(2)=[H+] also) but scilab 
does not have any chance to know that.
if my guess is right, you have to rewrite the f function in a way that 
eliminates all references to HION, dx_1, dx_6 and so on

On 05/10/2011 14:27, Jaundre Venter wrote:
> Hi all
>
> Can someone please explain to me the following:
>
> I am busy with a project of simulation the production of penicillin in 
> a bio reactor. Now i have 9 ODE's which i want to simulate.
>
> now for some reason the last three graphs i am getting doesn't show 
> any response what so ever. i am using the following code.
>
> dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx_6)))*(CO)*(HION)), 
> //biomass concentration X
> dx(2)=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ)), //hydrogen ion 
> concentration H+
> dx(3)=((((mupp)*(x(1)))-((K)*(x(3)))-((x(3))/(x(6)))*(dx_6))*(HION)), 
> //Penicilin concentration P
> dx(4)=((-((mu)/(Yxs))*(x(1)))-(((mupp)/(Yps))*(x(1)))-((mx)*(x(1)))+((Fsf)/(x(6)))-((x(4)/(x(6)))*(dx_6))), 
> //Substrate concentration S
> dx(5)=(-(((mu)/(Yxo))*(x(1)))-(((mupp)/(Ypo))*(x(1)))-(((mo))*(x(1)))+((kla)*(cll-(x(5))))-(((x(5))/(x(6)))*(dx_6))), 
> //dissolved oxygen
> dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume V
> dx(7)=(((rq1)*(dx_1)*(x(6)))+(rq2)*(x(1))*(x(6))), //Heat generation Qrxn
> dx(8)=((((F)/(sf))*(Tf-(x(8))))+(1/((x(6))*(pcp)))*(QT)),  //  
> Temperature T
> dx(9)=(((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
> endfunction
>
> now when i ask for plotting the graphs i am using the following.:
>
> //  initial values
> x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
> t=0:0.005:400;
> y=ode(x0, 0, t, f);
>
> // the plots of each variable
> da.title.text="BIOMASS CONCENTRATION"
> da.x_label.text="Time, hours";
> da.y_label.text="X,g/l ";
> scf(1);clf; //Opens and clears figure 1
> plot(t,y(1,:))
>
> da.title.text="HYDROGEN ION H+ CONCENTRATION"
> da.y_label.text="H+,mol/l ";
> scf(2);clf; //Opens and clears figure 2
> plot(t,y(2,:))
>
> da.title.text="PENICILLIN CONCENTRATION"
> da.y_label.text="P,g/l ";
> scf(3);clf; //Opens and clears figure 3
> plot(t,y(3,:))
>
> da.title.text="SUBSTRATE CONCENTRATION"
> da.y_label.text="S,g/l ";
> scf(4);clf; //Opens and clears figure 4
> plot(t,y(4,:))
>
> da.title.text="DISSOLVED OXYGEN CONCENTRATION"
> da.y_label.text="C_l,g/l ";
> scf(5);clf; //Opens and clears figure 5
> plot(t,y(5,:))
>
> da.title.text="CULTURE VOLUME"
> da.y_label.text="V,l";
> scf(6);clf; //Opens and clears figure 6
> plot(t,y(6,:))
>
> da.title.text="HEAT OF REACTION"
> da.y_label.text="Qrxn,cal";
> scf(7);
> clf; //Opens and clears figure 7
> plot(t,y(7),:)
>
> da.title.text="TEMPERATURE"
> da.y_label.text="T,Kelvin";
> scf(8);
> clf; //Opens and clears figure 8
> plot(t,y(8),:)
>
> da.title.text="CO2 EVOLUTION"
> da.y_label.text="CO2,mmol/l/";
> scf(9);
> clf; //Opens and clears figure 9
> plot(t,y(9),:)
>
> Am i doing something wrong? before the ODE's i have just programmed 
> the initial values and constants :
>
> funcprot(0);
> function dx = f(t,x)
> K1=1.0e-10         //mol/l
> K2=7.0e-05         //mol/l
> Kx=0.15            // Contois saturation constant, g/l
> Kox=2e-02          // oxygen limitation constant
> mux=0.092          // maitenance coefficient on subsrate
> p=3                //constant
> Kp=0.0002          //   inhibition constant
> Kop=2e-02      // oxygen limitation constant
> K=0.04     //  Penicillin hydrolysis constant, per h
> Yxs=0.45  //   yield constant,g biomass/g glucose = dimensionless
> Yps=0.90  //   yield constant, g pinicillin/ g glucose = dimensionless
> mx= 0.014  //   Maintenance coefficient on substrate, per h
> Yxo=0.04  //   yield constant, g biomass/g oxygen = dimensionless
> Ypo=0.20  //   yield constant, g penicillin/g oxygen= dimensionless
> mo= 0.467  //   maintenance coefficient of oxygen, per h
> mup=0.0005  // specific rate of penicilline production (per h)
> sf=600 // Feed substrate concentration, g/l
> kla=23     // function of agitation power input and oxugen flow rate, 
> dimensional
> cll=1.16   //  dissolved oxygen concentration, g/l
> Cab=3      // concentrations in both solutions
> Fa=5     // acid flow rate, l/h  !!
> Fb=5      // base flow rate, l/h !!
> delta_t=0.01   //  time step in digital PID controller - arbitrary 
> value!!!
> z=10e-5     // constant
> F=0.042       //  feed substrate flow rate l/h
> T0=273         //  temperature at freezing, K
> Tv=373       //  temperature at boiling
> T=298  //  feed temp of substrate
> h=(2.5e-4)     //  constant
> Floss=(x(6)*(h)*(exp(5)*((T-T0)/(Tv-T0))))
> Fab=Fa+Fb  // volume increase due to influx of acid Fa and base Fb
> Fsf=((sf)*(F))
> kg= 7e-3 //  Arrhenius constant for growth
> kd=10e33  //  Arrhenius constant for cell death
> Eg= 5100  //  Activation energy for growth, cal/mol
> Ed= 50000  //  Activation energy for cell death, cal/mol
> R= 1.987  //  gas constant, cal/mol k
> T= 297  //  Temperature
> RT= R*T
> alpa= 70  //  constant in Kla
> betha= 0.4  //  constant in Kla
> Pw= 30  //  Agitation power input, W
> fg= 8.6  //  Flow rate of oxygen
> V=100  //  Volume
> QE= ((kg*exp(-(Eg/RT)))-(kd*exp(-(Ed/RT))))
> kla= alpa*((sqrt(fg)*(Pw/x(6)))^betha)
> mu 
> =(((mux)/(1+((K1)/(x(2)))+((x(2))/(K2))))*((x(3))/(((Kx)*(x(1)))+(x(3))))*((x(5))/(((Kox)*(x(1)))+(x(5))))*(QE))  
> //  Specific growth rate
> mupp = 
> ((mup)*((x(4))/((Kp)+(x(4))+(x(4)^2)/(K1)))*((x(5)^p)/((Kop)*(x(1)))+(x(5)^p)))  
> // Specific penicillin production rate
> B =(((1e-14/x(2)-x(2))*x(6)-Cab*(Fa+Fb)*delta_t)/(x(6)+(Fa+Fb)*delta_t))
> QQ =((-B+sqrt(B^2+4e-14))/2-(x(2)))*(1/delta_t)
> dx_6 = (F+Fab+Floss) //Culture Volume V
> dx_1 = (((mu)*(x(1)))-((x(1))/(x(6)))*(dx_6)) //biomass concentration X
> rq1 = 60  //  yield of heat generation, cal/g biomass
> rq2 = 1.6783e-4  //  Constant, cal/g biomass h
> Tf = 296  //  substrate feed temperature, Kelvin
> a = 1000   //  heat transfer coefficient of cooling/heating liquid, 
> cal/h degree C
> b = 0.60   //  constant
> Fc=0.1   //  Cooling water flow rate, not sure about value, l/h
> pcCpc = 1/2000   //  Density times heat capacity of cooling liquid, 
> per l degree C
> pcp = 1/1500   //  density times heat capacity of medium
> QT = ((x(7)-(((a)*(Fc^b+1))/((Fc)+((a)*(Fc^b))/2*pcCpc))))
> a1=0.143  //  constant relating CO2 to growth, mmol CO2/g biomass
> a2=4e-7  //  Constant relating CO2 to mainteneance energy, mmol CO2/g 
> biomass h
> a3=1e-4 //  Constant relating CO2 to penicillin production, mmol CO2/l h
> CO= (((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
> HION=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ))
>
> Thanks.


-- 
Adrien Vogt-Schilb (Cired)
Tel: (+33) 1 43 94 *73 77*
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111005/356be67a/attachment.htm>

From jaundreventer at gmail.com  Wed Oct  5 15:00:55 2011
From: jaundreventer at gmail.com (Jaundre Venter)
Date: Wed, 5 Oct 2011 15:00:55 +0200
Subject: [scilab-Users] No reaction
In-Reply-To: <4E8C5106.3080801@centre-cired.fr>
References: <CAHM=geHK-jnj5Jq8boLEE9Gc_GjPnvtp12=Nh2MYT1oo9cC=4g@mail.gmail.com>
	<4E8C5106.3080801@centre-cired.fr>
Message-ID: <CAHM=geFLkSH5uFoChsWCJP9tuSjfSmYYyEU+XuftuB6KHHg86Q@mail.gmail.com>

Hi Adrien

i am new to SCILAB! I just want to say that.

Yes dx_1 is equal to dx1 but the only reason why i have programmed it like
that is becasue the ODE's looks as follows - (see word file attached that
can explain the ODE"s better. with regards to the HION and CO it actually
refers to [H+] and CO2 as you said. the only reason why n multiplied HION
and CO wit hsome ODE's is because some does have a influence on some ODE's.

This is the first time i am working with SCILAB thus i am struggling to
understand how SCILAB wants the code so that all 9 ODE's are shown and so
that the ODE's that is having a effect on other does happen. I though if you
refer to dx(1) for example in a other ODE it means that SCILAb will know the
dx(1) has a influence on the other ODE.

The main goal of my assesment is to deliver similar results obtained from
MATLAB on SCILAB. all i got was how the grpahs should look like and the
ODE's.

On Wed, Oct 5, 2011 at 2:43 PM, Adrien Vogt-Schilb <vogt at centre-cired.fr>wrote:

>  Hi
>
> Try to isalote your problem
> if i understood well, the following code
>
>
> //  initial values
> x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
> t=0:0.005:400;
> y=ode(x0, 0, t, f);
>
> returns y such that sum(y(6:9,:)>x0) == 0 ?
> if this is true, we do not need the plots to solve the problem
> can you check that ?
>
> I believe the f function is erroneous.
> It seems that dx_1 should be equal to dx(1) at each time step, and that
> HION should be equal to x(2) at each time step, etc.
>
> in other terms, some of your phisical variables seem to be represented by
> to variables (i am guessing HION=[H+] and x(2)=[H+] also) but scilab does
> not have any chance to know that.
> if my guess is right, you have to rewrite the f function in a way that
> eliminates all references to HION, dx_1, dx_6 and so on
>
>
> On 05/10/2011 14:27, Jaundre Venter wrote:
>
> Hi all
>
> Can someone please explain to me the following:
>
> I am busy with a project of simulation the production of penicillin in a
> bio reactor. Now i have 9 ODE's which i want to simulate.
>
> now for some reason the last three graphs i am getting doesn't show any
> response what so ever. i am using the following code.
>
> dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx_6)))*(CO)*(HION)), //biomass
> concentration X
> dx(2)=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ)), //hydrogen ion
> concentration H+
> dx(3)=((((mupp)*(x(1)))-((K)*(x(3)))-((x(3))/(x(6)))*(dx_6))*(HION)),
> //Penicilin concentration P
> dx(4)=((-((mu)/(Yxs))*(x(1)))-(((mupp)/(Yps))*(x(1)))-((mx)*(x(1)))+((Fsf)/(x(6)))-((x(4)/(x(6)))*(dx_6))),
> //Substrate concentration S
> dx(5)=(-(((mu)/(Yxo))*(x(1)))-(((mupp)/(Ypo))*(x(1)))-(((mo))*(x(1)))+((kla)*(cll-(x(5))))-(((x(5))/(x(6)))*(dx_6))),
> //dissolved oxygen
> dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume V
> dx(7)=(((rq1)*(dx_1)*(x(6)))+(rq2)*(x(1))*(x(6))), //Heat generation Qrxn
> dx(8)=((((F)/(sf))*(Tf-(x(8))))+(1/((x(6))*(pcp)))*(QT)),  //  Temperature
> T
> dx(9)=(((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
> endfunction
>
> now when i ask for plotting the graphs i am using the following.:
>
> //  initial values
> x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
> t=0:0.005:400;
> y=ode(x0, 0, t, f);
>
> // the plots of each variable
> da.title.text="BIOMASS CONCENTRATION"
> da.x_label.text="Time, hours";
> da.y_label.text="X,g/l ";
> scf(1);clf; //Opens and clears figure 1
> plot(t,y(1,:))
>
> da.title.text="HYDROGEN ION H+ CONCENTRATION"
> da.y_label.text="H+,mol/l ";
> scf(2);clf; //Opens and clears figure 2
> plot(t,y(2,:))
>
> da.title.text="PENICILLIN CONCENTRATION"
> da.y_label.text="P,g/l ";
> scf(3);clf; //Opens and clears figure 3
> plot(t,y(3,:))
>
> da.title.text="SUBSTRATE CONCENTRATION"
> da.y_label.text="S,g/l ";
> scf(4);clf; //Opens and clears figure 4
> plot(t,y(4,:))
>
> da.title.text="DISSOLVED OXYGEN CONCENTRATION"
> da.y_label.text="C_l,g/l ";
> scf(5);clf; //Opens and clears figure 5
> plot(t,y(5,:))
>
> da.title.text="CULTURE VOLUME"
> da.y_label.text="V,l";
> scf(6);clf; //Opens and clears figure 6
> plot(t,y(6,:))
>
> da.title.text="HEAT OF REACTION"
> da.y_label.text="Qrxn,cal";
> scf(7);
> clf; //Opens and clears figure 7
> plot(t,y(7),:)
>
> da.title.text="TEMPERATURE"
> da.y_label.text="T,Kelvin";
> scf(8);
> clf; //Opens and clears figure 8
> plot(t,y(8),:)
>
> da.title.text="CO2 EVOLUTION"
> da.y_label.text="CO2,mmol/l/";
> scf(9);
> clf; //Opens and clears figure 9
> plot(t,y(9),:)
>
> Am i doing something wrong? before the ODE's i have just programmed the
> initial values and constants :
>
> funcprot(0);
> function dx = f(t,x)
> K1=1.0e-10         //mol/l
> K2=7.0e-05         //mol/l
> Kx=0.15            // Contois saturation constant, g/l
> Kox=2e-02          // oxygen limitation constant
> mux=0.092          // maitenance coefficient on subsrate
> p=3                //constant
> Kp=0.0002          //   inhibition constant
> Kop=2e-02      // oxygen limitation constant
> K=0.04     //  Penicillin hydrolysis constant, per h
> Yxs=0.45  //   yield constant,g biomass/g glucose = dimensionless
> Yps=0.90  //   yield constant, g pinicillin/ g glucose = dimensionless
> mx= 0.014  //   Maintenance coefficient on substrate, per h
> Yxo=0.04  //   yield constant, g biomass/g oxygen = dimensionless
> Ypo=0.20  //   yield constant, g penicillin/g oxygen= dimensionless
> mo= 0.467  //   maintenance coefficient of oxygen, per h
> mup=0.0005  // specific rate of penicilline production (per h)
> sf=600 // Feed substrate concentration, g/l
> kla=23     // function of agitation power input and oxugen flow rate,
> dimensional
> cll=1.16   //  dissolved oxygen concentration, g/l
> Cab=3      // concentrations in both solutions
> Fa=5     // acid flow rate, l/h  !!
> Fb=5      // base flow rate, l/h !!
> delta_t=0.01   //  time step in digital PID controller - arbitrary value!!!
> z=10e-5     // constant
> F=0.042       //  feed substrate flow rate l/h
> T0=273         //  temperature at freezing, K
> Tv=373       //  temperature at boiling
> T=298  //  feed temp of substrate
> h=(2.5e-4)     //  constant
> Floss=(x(6)*(h)*(exp(5)*((T-T0)/(Tv-T0))))
> Fab=Fa+Fb  // volume increase due to influx of acid Fa and base Fb
> Fsf=((sf)*(F))
> kg= 7e-3 //  Arrhenius constant for growth
> kd=10e33  //  Arrhenius constant for cell death
> Eg= 5100  //  Activation energy for growth, cal/mol
> Ed= 50000  //  Activation energy for cell death, cal/mol
> R= 1.987  //  gas constant, cal/mol k
> T= 297  //  Temperature
> RT= R*T
> alpa= 70  //  constant in Kla
> betha= 0.4  //  constant in Kla
> Pw= 30  //  Agitation power input, W
> fg= 8.6  //  Flow rate of oxygen
> V=100  //  Volume
> QE= ((kg*exp(-(Eg/RT)))-(kd*exp(-(Ed/RT))))
> kla= alpa*((sqrt(fg)*(Pw/x(6)))^betha)
> mu
> =(((mux)/(1+((K1)/(x(2)))+((x(2))/(K2))))*((x(3))/(((Kx)*(x(1)))+(x(3))))*((x(5))/(((Kox)*(x(1)))+(x(5))))*(QE))
> //  Specific growth rate
> mupp =
> ((mup)*((x(4))/((Kp)+(x(4))+(x(4)^2)/(K1)))*((x(5)^p)/((Kop)*(x(1)))+(x(5)^p)))
> // Specific penicillin production rate
> B =(((1e-14/x(2)-x(2))*x(6)-Cab*(Fa+Fb)*delta_t)/(x(6)+(Fa+Fb)*delta_t))
> QQ =((-B+sqrt(B^2+4e-14))/2-(x(2)))*(1/delta_t)
> dx_6 = (F+Fab+Floss) //Culture Volume V
> dx_1 = (((mu)*(x(1)))-((x(1))/(x(6)))*(dx_6)) //biomass concentration X
> rq1 = 60  //  yield of heat generation, cal/g biomass
> rq2 = 1.6783e-4  //  Constant, cal/g biomass h
> Tf = 296  //  substrate feed temperature, Kelvin
> a = 1000   //  heat transfer coefficient of cooling/heating liquid, cal/h
> degree C
> b = 0.60   //  constant
> Fc=0.1   //  Cooling water flow rate, not sure about value, l/h
> pcCpc = 1/2000   //  Density times heat capacity of cooling liquid, per l
> degree C
> pcp = 1/1500   //  density times heat capacity of medium
> QT = ((x(7)-(((a)*(Fc^b+1))/((Fc)+((a)*(Fc^b))/2*pcCpc))))
> a1=0.143  //  constant relating CO2 to growth, mmol CO2/g biomass
> a2=4e-7  //  Constant relating CO2 to mainteneance energy, mmol CO2/g
> biomass h
> a3=1e-4 //  Constant relating CO2 to penicillin production, mmol CO2/l h
> CO= (((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
> HION=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ))
>
> Thanks.
>
>
>
> --
> Adrien Vogt-Schilb (Cired)
> Tel: (+33) 1 43 94 *73 77*
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111005/8dd55cc4/attachment.htm>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 9  unknown variables.docx
Type: application/vnd.openxmlformats-officedocument.wordprocessingml.document
Size: 112603 bytes
Desc: not available
URL: <https://lists.scilab.org/pipermail/users/attachments/20111005/8dd55cc4/attachment.docx>

From sylvestre.ledru at scilab.org  Wed Oct  5 17:23:20 2011
From: sylvestre.ledru at scilab.org (Sylvestre Ledru)
Date: Wed, 05 Oct 2011 17:23:20 +0200
Subject: Update of the search engine of the help website
Message-ID: <1317828200.14683.22.camel@korcula.inria.fr>

Hello,

Just a quick email to let you that we update the search engine used by
the Scilab online help:
http://help.scilab.org/

The previous system used was slow (4 hours to generate the search
index... against 4 minutes now) and buggy.

Now, several issues have been fixed:
* words with underscore, _, are now accepted as keyword [1].
* The search engine is now available for the Japanese version [2].
* Wildcards searches are now also possible [3].
* Better quality and presentation of the results.


We also implemented a trick for the lazy users (I am the first one)
like with the bugtracker which is:
http://bugzilla.scilab.org/8888
will redirect to the right URL.

For the Scilab documentation, 
http://help.scilab.org/function_name will redirect to the right page in
the documentation. For example:
http://help.scilab.org/comet3d
will redirect to 
http://help.scilab.org/docs/5.3.3/en_US/comet3d.html

For those who are interested in the technical details, we drop Zend
Lucene (subliminal message: *don't use it*) and started to use Xapian
[5].

Regards,
Sylvestre

[1] http://help.scilab.org/docs/5.3.3/en_US/search/add_demo

[2] http://help.scilab.org/docs/5.3.3/ja_JP/search/isdir

[3] http://help.scilab.org/docs/5.3.3/en_US/search/plot*

[4] http://help.scilab.org/docs/5.3.3/ja_JP/search/fminsearch

[5] http://xapian.org/




From vogt at centre-cired.fr  Wed Oct  5 17:38:18 2011
From: vogt at centre-cired.fr (Adrien Vogt-Schilb)
Date: Wed, 05 Oct 2011 17:38:18 +0200
Subject: [scilab-Users] No reaction
In-Reply-To: <CAHM=geFLkSH5uFoChsWCJP9tuSjfSmYYyEU+XuftuB6KHHg86Q@mail.gmail.com>
References: <CAHM=geHK-jnj5Jq8boLEE9Gc_GjPnvtp12=Nh2MYT1oo9cC=4g@mail.gmail.com> <4E8C5106.3080801@centre-cired.fr> <CAHM=geFLkSH5uFoChsWCJP9tuSjfSmYYyEU+XuftuB6KHHg86Q@mail.gmail.com>
Message-ID: <4E8C79EA.9040909@centre-cired.fr>

Hi

When you use ode, it's ok, if say, dx(1) depends on dx(4).
but you still have say that to scilab properly, something like:

function dx = f(t,x)
dx(6)=((F+Fab+Floss)*(x(2))),  // culture Volume V
dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx(6))))*(CO)*(x(2)))), 
//biomass concentration X
and so one

note that because i had to know dx(6) to compute dx(1) i just computed 
dx(6) before dx(1): no problem. and note that i used x(2). The idea of 
the ode is to compute dx from x!

make sure you understand that using dx_6 instead of dx(6), your ODE 
solver is not updating dx_6 at each time step, it is using the initial 
and only dx_6 forever. That's why your last varaibles do not move, 
somehow their speeds are never updated.
for instance, dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume V is 
constance in time (i guess)


On 05/10/2011 15:00, Jaundre Venter wrote:
> Hi Adrien
>
> i am new to SCILAB! I just want to say that.
>
> Yes dx_1 is equal to dx1 but the only reason why i have programmed it 
> like that is becasue the ODE's looks as follows - (see word file 
> attached that can explain the ODE"s better. with regards to the HION 
> and CO it actually refers to [H+] and CO2 as you said. the only reason 
> why n multiplied HION and CO wit hsome ODE's is because some does have 
> a influence on some ODE's.
>
> This is the first time i am working with SCILAB thus i am struggling 
> to understand how SCILAB wants the code so that all 9 ODE's are shown 
> and so that the ODE's that is having a effect on other does happen. I 
> though if you refer to dx(1) for example in a other ODE it means that 
> SCILAb will know the dx(1) has a influence on the other ODE.
>
> The main goal of my assesment is to deliver similar results obtained 
> from MATLAB on SCILAB. all i got was how the grpahs should look like 
> and the ODE's.
>
> On Wed, Oct 5, 2011 at 2:43 PM, Adrien Vogt-Schilb 
> <vogt at centre-cired.fr <mailto:vogt at centre-cired.fr>> wrote:
>
>     Hi
>
>     Try to isalote your problem
>     if i understood well, the following code
>
>
>     //  initial values
>     x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
>     t=0:0.005:400;
>     y=ode(x0, 0, t, f);
>
>     returns y such that sum(y(6:9,:)>x0) == 0 ?
>     if this is true, we do not need the plots to solve the problem
>     can you check that ?
>
>     I believe the f function is erroneous.
>     It seems that dx_1 should be equal to dx(1) at each time step, and
>     that HION should be equal to x(2) at each time step, etc.
>
>     in other terms, some of your phisical variables seem to be
>     represented by to variables (i am guessing HION=[H+] and x(2)=[H+]
>     also) but scilab does not have any chance to know that.
>     if my guess is right, you have to rewrite the f function in a way
>     that eliminates all references to HION, dx_1, dx_6 and so on
>
>
>     On 05/10/2011 14:27, Jaundre Venter wrote:
>>     Hi all
>>
>>     Can someone please explain to me the following:
>>
>>     I am busy with a project of simulation the production of
>>     penicillin in a bio reactor. Now i have 9 ODE's which i want to
>>     simulate.
>>
>>     now for some reason the last three graphs i am getting doesn't
>>     show any response what so ever. i am using the following code.
>>
>>     dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx_6)))*(CO)*(HION)),
>>     //biomass concentration X
>>     dx(2)=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ)),
>>     //hydrogen ion concentration H+
>>     dx(3)=((((mupp)*(x(1)))-((K)*(x(3)))-((x(3))/(x(6)))*(dx_6))*(HION)),
>>     //Penicilin concentration P
>>     dx(4)=((-((mu)/(Yxs))*(x(1)))-(((mupp)/(Yps))*(x(1)))-((mx)*(x(1)))+((Fsf)/(x(6)))-((x(4)/(x(6)))*(dx_6))),
>>     //Substrate concentration S
>>     dx(5)=(-(((mu)/(Yxo))*(x(1)))-(((mupp)/(Ypo))*(x(1)))-(((mo))*(x(1)))+((kla)*(cll-(x(5))))-(((x(5))/(x(6)))*(dx_6))),
>>     //dissolved oxygen
>>     dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume V
>>     dx(7)=(((rq1)*(dx_1)*(x(6)))+(rq2)*(x(1))*(x(6))), //Heat
>>     generation Qrxn
>>     dx(8)=((((F)/(sf))*(Tf-(x(8))))+(1/((x(6))*(pcp)))*(QT)),  // 
>>     Temperature T
>>     dx(9)=(((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
>>     endfunction
>>
>>     now when i ask for plotting the graphs i am using the following.:
>>
>>     //  initial values
>>     x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
>>     t=0:0.005:400;
>>     y=ode(x0, 0, t, f);
>>
>>     // the plots of each variable
>>     da.title.text="BIOMASS CONCENTRATION"
>>     da.x_label.text="Time, hours";
>>     da.y_label.text="X,g/l ";
>>     scf(1);clf; //Opens and clears figure 1
>>     plot(t,y(1,:))
>>
>>     da.title.text="HYDROGEN ION H+ CONCENTRATION"
>>     da.y_label.text="H+,mol/l ";
>>     scf(2);clf; //Opens and clears figure 2
>>     plot(t,y(2,:))
>>
>>     da.title.text="PENICILLIN CONCENTRATION"
>>     da.y_label.text="P,g/l ";
>>     scf(3);clf; //Opens and clears figure 3
>>     plot(t,y(3,:))
>>
>>     da.title.text="SUBSTRATE CONCENTRATION"
>>     da.y_label.text="S,g/l ";
>>     scf(4);clf; //Opens and clears figure 4
>>     plot(t,y(4,:))
>>
>>     da.title.text="DISSOLVED OXYGEN CONCENTRATION"
>>     da.y_label.text="C_l,g/l ";
>>     scf(5);clf; //Opens and clears figure 5
>>     plot(t,y(5,:))
>>
>>     da.title.text="CULTURE VOLUME"
>>     da.y_label.text="V,l";
>>     scf(6);clf; //Opens and clears figure 6
>>     plot(t,y(6,:))
>>
>>     da.title.text="HEAT OF REACTION"
>>     da.y_label.text="Qrxn,cal";
>>     scf(7);
>>     clf; //Opens and clears figure 7
>>     plot(t,y(7),:)
>>
>>     da.title.text="TEMPERATURE"
>>     da.y_label.text="T,Kelvin";
>>     scf(8);
>>     clf; //Opens and clears figure 8
>>     plot(t,y(8),:)
>>
>>     da.title.text="CO2 EVOLUTION"
>>     da.y_label.text="CO2,mmol/l/";
>>     scf(9);
>>     clf; //Opens and clears figure 9
>>     plot(t,y(9),:)
>>
>>     Am i doing something wrong? before the ODE's i have just
>>     programmed the initial values and constants :
>>
>>     funcprot(0);
>>     function dx = f(t,x)
>>     K1=1.0e-10         //mol/l
>>     K2=7.0e-05         //mol/l
>>     Kx=0.15            // Contois saturation constant, g/l
>>     Kox=2e-02          // oxygen limitation constant
>>     mux=0.092          // maitenance coefficient on subsrate
>>     p=3                //constant
>>     Kp=0.0002          //   inhibition constant
>>     Kop=2e-02      // oxygen limitation constant
>>     K=0.04     //  Penicillin hydrolysis constant, per h
>>     Yxs=0.45  //   yield constant,g biomass/g glucose = dimensionless
>>     Yps=0.90  //   yield constant, g pinicillin/ g glucose =
>>     dimensionless
>>     mx= 0.014  //   Maintenance coefficient on substrate, per h
>>     Yxo=0.04  //   yield constant, g biomass/g oxygen = dimensionless
>>     Ypo=0.20  //   yield constant, g penicillin/g oxygen= dimensionless
>>     mo= 0.467  //   maintenance coefficient of oxygen, per h
>>     mup=0.0005  // specific rate of penicilline production (per h)
>>     sf=600 // Feed substrate concentration, g/l
>>     kla=23     // function of agitation power input and oxugen flow
>>     rate, dimensional
>>     cll=1.16   //  dissolved oxygen concentration, g/l
>>     Cab=3      // concentrations in both solutions
>>     Fa=5     // acid flow rate, l/h  !!
>>     Fb=5      // base flow rate, l/h !!
>>     delta_t=0.01   //  time step in digital PID controller -
>>     arbitrary value!!!
>>     z=10e-5     // constant
>>     F=0.042       //  feed substrate flow rate l/h
>>     T0=273         //  temperature at freezing, K
>>     Tv=373       //  temperature at boiling
>>     T=298  //  feed temp of substrate
>>     h=(2.5e-4)     //  constant
>>     Floss=(x(6)*(h)*(exp(5)*((T-T0)/(Tv-T0))))
>>     Fab=Fa+Fb  // volume increase due to influx of acid Fa and base Fb
>>     Fsf=((sf)*(F))
>>     kg= 7e-3 //  Arrhenius constant for growth
>>     kd=10e33  //  Arrhenius constant for cell death
>>     Eg= 5100  //  Activation energy for growth, cal/mol
>>     Ed= 50000  //  Activation energy for cell death, cal/mol
>>     R= 1.987  //  gas constant, cal/mol k
>>     T= 297  //  Temperature
>>     RT= R*T
>>     alpa= 70  //  constant in Kla
>>     betha= 0.4  //  constant in Kla
>>     Pw= 30  //  Agitation power input, W
>>     fg= 8.6  //  Flow rate of oxygen
>>     V=100  //  Volume
>>     QE= ((kg*exp(-(Eg/RT)))-(kd*exp(-(Ed/RT))))
>>     kla= alpa*((sqrt(fg)*(Pw/x(6)))^betha)
>>     mu
>>     =(((mux)/(1+((K1)/(x(2)))+((x(2))/(K2))))*((x(3))/(((Kx)*(x(1)))+(x(3))))*((x(5))/(((Kox)*(x(1)))+(x(5))))*(QE)) 
>>     //  Specific growth rate
>>     mupp =
>>     ((mup)*((x(4))/((Kp)+(x(4))+(x(4)^2)/(K1)))*((x(5)^p)/((Kop)*(x(1)))+(x(5)^p))) 
>>     // Specific penicillin production rate
>>     B
>>     =(((1e-14/x(2)-x(2))*x(6)-Cab*(Fa+Fb)*delta_t)/(x(6)+(Fa+Fb)*delta_t))
>>     QQ =((-B+sqrt(B^2+4e-14))/2-(x(2)))*(1/delta_t)
>>     dx_6 = (F+Fab+Floss) //Culture Volume V
>>     dx_1 = (((mu)*(x(1)))-((x(1))/(x(6)))*(dx_6)) //biomass
>>     concentration X
>>     rq1 = 60  //  yield of heat generation, cal/g biomass
>>     rq2 = 1.6783e-4  //  Constant, cal/g biomass h
>>     Tf = 296  //  substrate feed temperature, Kelvin
>>     a = 1000   //  heat transfer coefficient of cooling/heating
>>     liquid, cal/h degree C
>>     b = 0.60   //  constant
>>     Fc=0.1   //  Cooling water flow rate, not sure about value, l/h
>>     pcCpc = 1/2000   //  Density times heat capacity of cooling
>>     liquid, per l degree C
>>     pcp = 1/1500   //  density times heat capacity of medium
>>     QT = ((x(7)-(((a)*(Fc^b+1))/((Fc)+((a)*(Fc^b))/2*pcCpc))))
>>     a1=0.143  //  constant relating CO2 to growth, mmol CO2/g biomass
>>     a2=4e-7  //  Constant relating CO2 to mainteneance energy, mmol
>>     CO2/g biomass h
>>     a3=1e-4 //  Constant relating CO2 to penicillin production, mmol
>>     CO2/l h
>>     CO= (((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
>>     HION=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ))
>>
>>     Thanks.
>
>
>     -- 
>     Adrien Vogt-Schilb (Cired)
>     Tel: (+33) 1 43 94 *73 77*
>
>


-- 
Adrien Vogt-Schilb (Cired)
Tel: (+33) 1 43 94 *73 77*
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111005/f34bd16c/attachment.htm>

From jaundreventer at gmail.com  Wed Oct  5 22:24:08 2011
From: jaundreventer at gmail.com (Jaundre Venter)
Date: Wed, 5 Oct 2011 22:24:08 +0200
Subject: [scilab-Users] No reaction
In-Reply-To: <4E8C79EA.9040909@centre-cired.fr>
References: <CAHM=geHK-jnj5Jq8boLEE9Gc_GjPnvtp12=Nh2MYT1oo9cC=4g@mail.gmail.com>
	<4E8C5106.3080801@centre-cired.fr>
	<CAHM=geFLkSH5uFoChsWCJP9tuSjfSmYYyEU+XuftuB6KHHg86Q@mail.gmail.com>
	<4E8C79EA.9040909@centre-cired.fr>
Message-ID: <CAHM=geFkhNYu5aSzDScbnEweVnphiWqiBAzsBP0oywjRj7yGxg@mail.gmail.com>

Thank you very much Adrien.

always nice if someone can explain to you where your problems are and why.
Thanks

Was there any other problems you saw that i have to be aware of?

On Wed, Oct 5, 2011 at 5:38 PM, Adrien Vogt-Schilb <vogt at centre-cired.fr>wrote:

>  Hi
>
> When you use ode, it's ok, if say, dx(1) depends on dx(4).
> but you still have say that to scilab properly, something like:
>
> function dx = f(t,x)
> dx(6)=((F+Fab+Floss)*(x(2))),  // culture Volume V
> dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx(6))))*(CO)*(x(2)))), //biomass
> concentration X
> and so one
>
> note that because i had to know dx(6) to compute dx(1) i just computed
> dx(6) before dx(1): no problem. and note that i used x(2). The idea of the
> ode is to compute dx from x!
>
> make sure you understand that using dx_6 instead of dx(6), your ODE solver
> is not updating dx_6 at each time step, it is using the initial and only
> dx_6 forever. That's why your last varaibles do not move, somehow their
> speeds are never updated.
> for instance, dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume V is
> constance in time (i guess)
>
>
>
> On 05/10/2011 15:00, Jaundre Venter wrote:
>
> Hi Adrien
>
> i am new to SCILAB! I just want to say that.
>
> Yes dx_1 is equal to dx1 but the only reason why i have programmed it like
> that is becasue the ODE's looks as follows - (see word file attached that
> can explain the ODE"s better. with regards to the HION and CO it actually
> refers to [H+] and CO2 as you said. the only reason why n multiplied HION
> and CO wit hsome ODE's is because some does have a influence on some ODE's.
>
> This is the first time i am working with SCILAB thus i am struggling to
> understand how SCILAB wants the code so that all 9 ODE's are shown and so
> that the ODE's that is having a effect on other does happen. I though if you
> refer to dx(1) for example in a other ODE it means that SCILAb will know the
> dx(1) has a influence on the other ODE.
>
> The main goal of my assesment is to deliver similar results obtained from
> MATLAB on SCILAB. all i got was how the grpahs should look like and the
> ODE's.
>
> On Wed, Oct 5, 2011 at 2:43 PM, Adrien Vogt-Schilb <vogt at centre-cired.fr>wrote:
>
>>  Hi
>>
>> Try to isalote your problem
>> if i understood well, the following code
>>
>>
>> //  initial values
>> x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
>> t=0:0.005:400;
>> y=ode(x0, 0, t, f);
>>
>>  returns y such that sum(y(6:9,:)>x0) == 0 ?
>> if this is true, we do not need the plots to solve the problem
>> can you check that ?
>>
>> I believe the f function is erroneous.
>> It seems that dx_1 should be equal to dx(1) at each time step, and that
>> HION should be equal to x(2) at each time step, etc.
>>
>> in other terms, some of your phisical variables seem to be represented by
>> to variables (i am guessing HION=[H+] and x(2)=[H+] also) but scilab does
>> not have any chance to know that.
>> if my guess is right, you have to rewrite the f function in a way that
>> eliminates all references to HION, dx_1, dx_6 and so on
>>
>>
>> On 05/10/2011 14:27, Jaundre Venter wrote:
>>
>> Hi all
>>
>> Can someone please explain to me the following:
>>
>> I am busy with a project of simulation the production of penicillin in a
>> bio reactor. Now i have 9 ODE's which i want to simulate.
>>
>> now for some reason the last three graphs i am getting doesn't show any
>> response what so ever. i am using the following code.
>>
>> dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx_6)))*(CO)*(HION)), //biomass
>> concentration X
>> dx(2)=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ)), //hydrogen ion
>> concentration H+
>> dx(3)=((((mupp)*(x(1)))-((K)*(x(3)))-((x(3))/(x(6)))*(dx_6))*(HION)),
>> //Penicilin concentration P
>> dx(4)=((-((mu)/(Yxs))*(x(1)))-(((mupp)/(Yps))*(x(1)))-((mx)*(x(1)))+((Fsf)/(x(6)))-((x(4)/(x(6)))*(dx_6))),
>> //Substrate concentration S
>> dx(5)=(-(((mu)/(Yxo))*(x(1)))-(((mupp)/(Ypo))*(x(1)))-(((mo))*(x(1)))+((kla)*(cll-(x(5))))-(((x(5))/(x(6)))*(dx_6))),
>> //dissolved oxygen
>> dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume V
>> dx(7)=(((rq1)*(dx_1)*(x(6)))+(rq2)*(x(1))*(x(6))), //Heat generation Qrxn
>> dx(8)=((((F)/(sf))*(Tf-(x(8))))+(1/((x(6))*(pcp)))*(QT)),  //  Temperature
>> T
>> dx(9)=(((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
>> endfunction
>>
>> now when i ask for plotting the graphs i am using the following.:
>>
>> //  initial values
>> x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
>> t=0:0.005:400;
>> y=ode(x0, 0, t, f);
>>
>> // the plots of each variable
>> da.title.text="BIOMASS CONCENTRATION"
>> da.x_label.text="Time, hours";
>> da.y_label.text="X,g/l ";
>> scf(1);clf; //Opens and clears figure 1
>> plot(t,y(1,:))
>>
>> da.title.text="HYDROGEN ION H+ CONCENTRATION"
>> da.y_label.text="H+,mol/l ";
>> scf(2);clf; //Opens and clears figure 2
>> plot(t,y(2,:))
>>
>> da.title.text="PENICILLIN CONCENTRATION"
>> da.y_label.text="P,g/l ";
>> scf(3);clf; //Opens and clears figure 3
>> plot(t,y(3,:))
>>
>> da.title.text="SUBSTRATE CONCENTRATION"
>> da.y_label.text="S,g/l ";
>> scf(4);clf; //Opens and clears figure 4
>> plot(t,y(4,:))
>>
>> da.title.text="DISSOLVED OXYGEN CONCENTRATION"
>> da.y_label.text="C_l,g/l ";
>> scf(5);clf; //Opens and clears figure 5
>> plot(t,y(5,:))
>>
>> da.title.text="CULTURE VOLUME"
>> da.y_label.text="V,l";
>> scf(6);clf; //Opens and clears figure 6
>> plot(t,y(6,:))
>>
>> da.title.text="HEAT OF REACTION"
>> da.y_label.text="Qrxn,cal";
>> scf(7);
>> clf; //Opens and clears figure 7
>> plot(t,y(7),:)
>>
>> da.title.text="TEMPERATURE"
>> da.y_label.text="T,Kelvin";
>> scf(8);
>> clf; //Opens and clears figure 8
>> plot(t,y(8),:)
>>
>> da.title.text="CO2 EVOLUTION"
>> da.y_label.text="CO2,mmol/l/";
>> scf(9);
>> clf; //Opens and clears figure 9
>> plot(t,y(9),:)
>>
>> Am i doing something wrong? before the ODE's i have just programmed the
>> initial values and constants :
>>
>> funcprot(0);
>> function dx = f(t,x)
>> K1=1.0e-10         //mol/l
>> K2=7.0e-05         //mol/l
>> Kx=0.15            // Contois saturation constant, g/l
>> Kox=2e-02          // oxygen limitation constant
>> mux=0.092          // maitenance coefficient on subsrate
>> p=3                //constant
>> Kp=0.0002          //   inhibition constant
>> Kop=2e-02      // oxygen limitation constant
>> K=0.04     //  Penicillin hydrolysis constant, per h
>> Yxs=0.45  //   yield constant,g biomass/g glucose = dimensionless
>> Yps=0.90  //   yield constant, g pinicillin/ g glucose = dimensionless
>> mx= 0.014  //   Maintenance coefficient on substrate, per h
>> Yxo=0.04  //   yield constant, g biomass/g oxygen = dimensionless
>> Ypo=0.20  //   yield constant, g penicillin/g oxygen= dimensionless
>> mo= 0.467  //   maintenance coefficient of oxygen, per h
>> mup=0.0005  // specific rate of penicilline production (per h)
>> sf=600 // Feed substrate concentration, g/l
>> kla=23     // function of agitation power input and oxugen flow rate,
>> dimensional
>> cll=1.16   //  dissolved oxygen concentration, g/l
>> Cab=3      // concentrations in both solutions
>> Fa=5     // acid flow rate, l/h  !!
>> Fb=5      // base flow rate, l/h !!
>> delta_t=0.01   //  time step in digital PID controller - arbitrary
>> value!!!
>> z=10e-5     // constant
>> F=0.042       //  feed substrate flow rate l/h
>> T0=273         //  temperature at freezing, K
>> Tv=373       //  temperature at boiling
>> T=298  //  feed temp of substrate
>> h=(2.5e-4)     //  constant
>> Floss=(x(6)*(h)*(exp(5)*((T-T0)/(Tv-T0))))
>> Fab=Fa+Fb  // volume increase due to influx of acid Fa and base Fb
>> Fsf=((sf)*(F))
>> kg= 7e-3 //  Arrhenius constant for growth
>> kd=10e33  //  Arrhenius constant for cell death
>> Eg= 5100  //  Activation energy for growth, cal/mol
>> Ed= 50000  //  Activation energy for cell death, cal/mol
>> R= 1.987  //  gas constant, cal/mol k
>> T= 297  //  Temperature
>> RT= R*T
>> alpa= 70  //  constant in Kla
>> betha= 0.4  //  constant in Kla
>> Pw= 30  //  Agitation power input, W
>> fg= 8.6  //  Flow rate of oxygen
>> V=100  //  Volume
>> QE= ((kg*exp(-(Eg/RT)))-(kd*exp(-(Ed/RT))))
>> kla= alpa*((sqrt(fg)*(Pw/x(6)))^betha)
>> mu
>> =(((mux)/(1+((K1)/(x(2)))+((x(2))/(K2))))*((x(3))/(((Kx)*(x(1)))+(x(3))))*((x(5))/(((Kox)*(x(1)))+(x(5))))*(QE))
>> //  Specific growth rate
>> mupp =
>> ((mup)*((x(4))/((Kp)+(x(4))+(x(4)^2)/(K1)))*((x(5)^p)/((Kop)*(x(1)))+(x(5)^p)))
>> // Specific penicillin production rate
>> B =(((1e-14/x(2)-x(2))*x(6)-Cab*(Fa+Fb)*delta_t)/(x(6)+(Fa+Fb)*delta_t))
>> QQ =((-B+sqrt(B^2+4e-14))/2-(x(2)))*(1/delta_t)
>> dx_6 = (F+Fab+Floss) //Culture Volume V
>> dx_1 = (((mu)*(x(1)))-((x(1))/(x(6)))*(dx_6)) //biomass concentration X
>> rq1 = 60  //  yield of heat generation, cal/g biomass
>> rq2 = 1.6783e-4  //  Constant, cal/g biomass h
>> Tf = 296  //  substrate feed temperature, Kelvin
>> a = 1000   //  heat transfer coefficient of cooling/heating liquid, cal/h
>> degree C
>> b = 0.60   //  constant
>> Fc=0.1   //  Cooling water flow rate, not sure about value, l/h
>> pcCpc = 1/2000   //  Density times heat capacity of cooling liquid, per l
>> degree C
>> pcp = 1/1500   //  density times heat capacity of medium
>> QT = ((x(7)-(((a)*(Fc^b+1))/((Fc)+((a)*(Fc^b))/2*pcCpc))))
>> a1=0.143  //  constant relating CO2 to growth, mmol CO2/g biomass
>> a2=4e-7  //  Constant relating CO2 to mainteneance energy, mmol CO2/g
>> biomass h
>> a3=1e-4 //  Constant relating CO2 to penicillin production, mmol CO2/l h
>> CO= (((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
>> HION=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ))
>>
>> Thanks.
>>
>>
>>
>>   --
>> Adrien Vogt-Schilb (Cired)
>> Tel: (+33) 1 43 94 *73 77*
>>
>
>
>
> --
> Adrien Vogt-Schilb (Cired)
> Tel: (+33) 1 43 94 *73 77*
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111005/f13dad5a/attachment.htm>

From ginters.buss at gmail.com  Thu Oct  6 09:41:31 2011
From: ginters.buss at gmail.com (=?UTF-8?Q?Ginters_Bu=C5=A1s?=)
Date: Thu, 6 Oct 2011 10:41:31 +0300
Subject: Scilab 5.3.3 extremely slow (on Win XP, Java 6 Update 27)
Message-ID: <CA+vGzUYDOOoqaSwwukcYibsC=RVL=B9f-yhHDxpqFi0a4uUMew@mail.gmail.com>

Dear All,

My Scilab 5.3.3. is extremely slow in 'evaluating commands with echo' mode,
on Win XP, Java 6 Update 27. I thought it was because of many apps I'm
running or because I've damaged Scilab, but I re-installed it completely,
and it is still impossible to use it, compared to the speed of R or other
older Scilab versions, say 5.3.2. What could be at fault?

 gin
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111006/24cb094f/attachment.htm>

From jaundreventer at gmail.com  Thu Oct  6 10:00:41 2011
From: jaundreventer at gmail.com (Jaundre Venter)
Date: Thu, 6 Oct 2011 10:00:41 +0200
Subject: [scilab-Users] No reaction
In-Reply-To: <CAHM=geFkhNYu5aSzDScbnEweVnphiWqiBAzsBP0oywjRj7yGxg@mail.gmail.com>
References: <CAHM=geHK-jnj5Jq8boLEE9Gc_GjPnvtp12=Nh2MYT1oo9cC=4g@mail.gmail.com>
	<4E8C5106.3080801@centre-cired.fr>
	<CAHM=geFLkSH5uFoChsWCJP9tuSjfSmYYyEU+XuftuB6KHHg86Q@mail.gmail.com>
	<4E8C79EA.9040909@centre-cired.fr>
	<CAHM=geFkhNYu5aSzDScbnEweVnphiWqiBAzsBP0oywjRj7yGxg@mail.gmail.com>
Message-ID: <CAHM=geHxG1ChazN_wjDtf1rRSaUEh5fCHEcMEa7xSrwx1EJ9bg@mail.gmail.com>

Hi

okay i have made the changes and the reaction curves are looking better but
for some reason i still get no reaction on the last three curves. It is just
showing a straight line. can it be that i have choosen to plot the wrong
type of graph? Maybe because of a time value or to much ODE"s?

On Wed, Oct 5, 2011 at 10:24 PM, Jaundre Venter <jaundreventer at gmail.com>wrote:

> Thank you very much Adrien.
>
> always nice if someone can explain to you where your problems are and why.
> Thanks
>
> Was there any other problems you saw that i have to be aware of?
>
>
> On Wed, Oct 5, 2011 at 5:38 PM, Adrien Vogt-Schilb <vogt at centre-cired.fr>wrote:
>
>>  Hi
>>
>> When you use ode, it's ok, if say, dx(1) depends on dx(4).
>> but you still have say that to scilab properly, something like:
>>
>> function dx = f(t,x)
>> dx(6)=((F+Fab+Floss)*(x(2))),  // culture Volume V
>> dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx(6))))*(CO)*(x(2)))), //biomass
>> concentration X
>> and so one
>>
>> note that because i had to know dx(6) to compute dx(1) i just computed
>> dx(6) before dx(1): no problem. and note that i used x(2). The idea of the
>> ode is to compute dx from x!
>>
>> make sure you understand that using dx_6 instead of dx(6), your ODE solver
>> is not updating dx_6 at each time step, it is using the initial and only
>> dx_6 forever. That's why your last varaibles do not move, somehow their
>> speeds are never updated.
>> for instance, dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume V is
>> constance in time (i guess)
>>
>>
>>
>> On 05/10/2011 15:00, Jaundre Venter wrote:
>>
>> Hi Adrien
>>
>> i am new to SCILAB! I just want to say that.
>>
>> Yes dx_1 is equal to dx1 but the only reason why i have programmed it like
>> that is becasue the ODE's looks as follows - (see word file attached that
>> can explain the ODE"s better. with regards to the HION and CO it actually
>> refers to [H+] and CO2 as you said. the only reason why n multiplied HION
>> and CO wit hsome ODE's is because some does have a influence on some ODE's.
>>
>> This is the first time i am working with SCILAB thus i am struggling to
>> understand how SCILAB wants the code so that all 9 ODE's are shown and so
>> that the ODE's that is having a effect on other does happen. I though if you
>> refer to dx(1) for example in a other ODE it means that SCILAb will know the
>> dx(1) has a influence on the other ODE.
>>
>> The main goal of my assesment is to deliver similar results obtained from
>> MATLAB on SCILAB. all i got was how the grpahs should look like and the
>> ODE's.
>>
>> On Wed, Oct 5, 2011 at 2:43 PM, Adrien Vogt-Schilb <vogt at centre-cired.fr>wrote:
>>
>>>  Hi
>>>
>>> Try to isalote your problem
>>> if i understood well, the following code
>>>
>>>
>>> //  initial values
>>> x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
>>> t=0:0.005:400;
>>> y=ode(x0, 0, t, f);
>>>
>>>  returns y such that sum(y(6:9,:)>x0) == 0 ?
>>> if this is true, we do not need the plots to solve the problem
>>> can you check that ?
>>>
>>> I believe the f function is erroneous.
>>> It seems that dx_1 should be equal to dx(1) at each time step, and that
>>> HION should be equal to x(2) at each time step, etc.
>>>
>>> in other terms, some of your phisical variables seem to be represented by
>>> to variables (i am guessing HION=[H+] and x(2)=[H+] also) but scilab does
>>> not have any chance to know that.
>>> if my guess is right, you have to rewrite the f function in a way that
>>> eliminates all references to HION, dx_1, dx_6 and so on
>>>
>>>
>>> On 05/10/2011 14:27, Jaundre Venter wrote:
>>>
>>> Hi all
>>>
>>> Can someone please explain to me the following:
>>>
>>> I am busy with a project of simulation the production of penicillin in a
>>> bio reactor. Now i have 9 ODE's which i want to simulate.
>>>
>>> now for some reason the last three graphs i am getting doesn't show any
>>> response what so ever. i am using the following code.
>>>
>>> dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx_6)))*(CO)*(HION)), //biomass
>>> concentration X
>>> dx(2)=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ)), //hydrogen ion
>>> concentration H+
>>> dx(3)=((((mupp)*(x(1)))-((K)*(x(3)))-((x(3))/(x(6)))*(dx_6))*(HION)),
>>> //Penicilin concentration P
>>> dx(4)=((-((mu)/(Yxs))*(x(1)))-(((mupp)/(Yps))*(x(1)))-((mx)*(x(1)))+((Fsf)/(x(6)))-((x(4)/(x(6)))*(dx_6))),
>>> //Substrate concentration S
>>> dx(5)=(-(((mu)/(Yxo))*(x(1)))-(((mupp)/(Ypo))*(x(1)))-(((mo))*(x(1)))+((kla)*(cll-(x(5))))-(((x(5))/(x(6)))*(dx_6))),
>>> //dissolved oxygen
>>> dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume V
>>> dx(7)=(((rq1)*(dx_1)*(x(6)))+(rq2)*(x(1))*(x(6))), //Heat generation Qrxn
>>> dx(8)=((((F)/(sf))*(Tf-(x(8))))+(1/((x(6))*(pcp)))*(QT)),  //
>>> Temperature T
>>> dx(9)=(((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
>>> endfunction
>>>
>>> now when i ask for plotting the graphs i am using the following.:
>>>
>>> //  initial values
>>> x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
>>> t=0:0.005:400;
>>> y=ode(x0, 0, t, f);
>>>
>>> // the plots of each variable
>>> da.title.text="BIOMASS CONCENTRATION"
>>> da.x_label.text="Time, hours";
>>> da.y_label.text="X,g/l ";
>>> scf(1);clf; //Opens and clears figure 1
>>> plot(t,y(1,:))
>>>
>>> da.title.text="HYDROGEN ION H+ CONCENTRATION"
>>> da.y_label.text="H+,mol/l ";
>>> scf(2);clf; //Opens and clears figure 2
>>> plot(t,y(2,:))
>>>
>>> da.title.text="PENICILLIN CONCENTRATION"
>>> da.y_label.text="P,g/l ";
>>> scf(3);clf; //Opens and clears figure 3
>>> plot(t,y(3,:))
>>>
>>> da.title.text="SUBSTRATE CONCENTRATION"
>>> da.y_label.text="S,g/l ";
>>> scf(4);clf; //Opens and clears figure 4
>>> plot(t,y(4,:))
>>>
>>> da.title.text="DISSOLVED OXYGEN CONCENTRATION"
>>> da.y_label.text="C_l,g/l ";
>>> scf(5);clf; //Opens and clears figure 5
>>> plot(t,y(5,:))
>>>
>>> da.title.text="CULTURE VOLUME"
>>> da.y_label.text="V,l";
>>> scf(6);clf; //Opens and clears figure 6
>>> plot(t,y(6,:))
>>>
>>> da.title.text="HEAT OF REACTION"
>>> da.y_label.text="Qrxn,cal";
>>> scf(7);
>>> clf; //Opens and clears figure 7
>>> plot(t,y(7),:)
>>>
>>> da.title.text="TEMPERATURE"
>>> da.y_label.text="T,Kelvin";
>>> scf(8);
>>> clf; //Opens and clears figure 8
>>> plot(t,y(8),:)
>>>
>>> da.title.text="CO2 EVOLUTION"
>>> da.y_label.text="CO2,mmol/l/";
>>> scf(9);
>>> clf; //Opens and clears figure 9
>>> plot(t,y(9),:)
>>>
>>> Am i doing something wrong? before the ODE's i have just programmed the
>>> initial values and constants :
>>>
>>> funcprot(0);
>>> function dx = f(t,x)
>>> K1=1.0e-10         //mol/l
>>> K2=7.0e-05         //mol/l
>>> Kx=0.15            // Contois saturation constant, g/l
>>> Kox=2e-02          // oxygen limitation constant
>>> mux=0.092          // maitenance coefficient on subsrate
>>> p=3                //constant
>>> Kp=0.0002          //   inhibition constant
>>> Kop=2e-02      // oxygen limitation constant
>>> K=0.04     //  Penicillin hydrolysis constant, per h
>>> Yxs=0.45  //   yield constant,g biomass/g glucose = dimensionless
>>> Yps=0.90  //   yield constant, g pinicillin/ g glucose = dimensionless
>>> mx= 0.014  //   Maintenance coefficient on substrate, per h
>>> Yxo=0.04  //   yield constant, g biomass/g oxygen = dimensionless
>>> Ypo=0.20  //   yield constant, g penicillin/g oxygen= dimensionless
>>> mo= 0.467  //   maintenance coefficient of oxygen, per h
>>> mup=0.0005  // specific rate of penicilline production (per h)
>>> sf=600 // Feed substrate concentration, g/l
>>> kla=23     // function of agitation power input and oxugen flow rate,
>>> dimensional
>>> cll=1.16   //  dissolved oxygen concentration, g/l
>>> Cab=3      // concentrations in both solutions
>>> Fa=5     // acid flow rate, l/h  !!
>>> Fb=5      // base flow rate, l/h !!
>>> delta_t=0.01   //  time step in digital PID controller - arbitrary
>>> value!!!
>>> z=10e-5     // constant
>>> F=0.042       //  feed substrate flow rate l/h
>>> T0=273         //  temperature at freezing, K
>>> Tv=373       //  temperature at boiling
>>> T=298  //  feed temp of substrate
>>> h=(2.5e-4)     //  constant
>>> Floss=(x(6)*(h)*(exp(5)*((T-T0)/(Tv-T0))))
>>> Fab=Fa+Fb  // volume increase due to influx of acid Fa and base Fb
>>> Fsf=((sf)*(F))
>>> kg= 7e-3 //  Arrhenius constant for growth
>>> kd=10e33  //  Arrhenius constant for cell death
>>> Eg= 5100  //  Activation energy for growth, cal/mol
>>> Ed= 50000  //  Activation energy for cell death, cal/mol
>>> R= 1.987  //  gas constant, cal/mol k
>>> T= 297  //  Temperature
>>> RT= R*T
>>> alpa= 70  //  constant in Kla
>>> betha= 0.4  //  constant in Kla
>>> Pw= 30  //  Agitation power input, W
>>> fg= 8.6  //  Flow rate of oxygen
>>> V=100  //  Volume
>>> QE= ((kg*exp(-(Eg/RT)))-(kd*exp(-(Ed/RT))))
>>> kla= alpa*((sqrt(fg)*(Pw/x(6)))^betha)
>>> mu
>>> =(((mux)/(1+((K1)/(x(2)))+((x(2))/(K2))))*((x(3))/(((Kx)*(x(1)))+(x(3))))*((x(5))/(((Kox)*(x(1)))+(x(5))))*(QE))
>>> //  Specific growth rate
>>> mupp =
>>> ((mup)*((x(4))/((Kp)+(x(4))+(x(4)^2)/(K1)))*((x(5)^p)/((Kop)*(x(1)))+(x(5)^p)))
>>> // Specific penicillin production rate
>>> B =(((1e-14/x(2)-x(2))*x(6)-Cab*(Fa+Fb)*delta_t)/(x(6)+(Fa+Fb)*delta_t))
>>> QQ =((-B+sqrt(B^2+4e-14))/2-(x(2)))*(1/delta_t)
>>> dx_6 = (F+Fab+Floss) //Culture Volume V
>>> dx_1 = (((mu)*(x(1)))-((x(1))/(x(6)))*(dx_6)) //biomass concentration X
>>> rq1 = 60  //  yield of heat generation, cal/g biomass
>>> rq2 = 1.6783e-4  //  Constant, cal/g biomass h
>>> Tf = 296  //  substrate feed temperature, Kelvin
>>> a = 1000   //  heat transfer coefficient of cooling/heating liquid, cal/h
>>> degree C
>>> b = 0.60   //  constant
>>> Fc=0.1   //  Cooling water flow rate, not sure about value, l/h
>>> pcCpc = 1/2000   //  Density times heat capacity of cooling liquid, per l
>>> degree C
>>> pcp = 1/1500   //  density times heat capacity of medium
>>> QT = ((x(7)-(((a)*(Fc^b+1))/((Fc)+((a)*(Fc^b))/2*pcCpc))))
>>> a1=0.143  //  constant relating CO2 to growth, mmol CO2/g biomass
>>> a2=4e-7  //  Constant relating CO2 to mainteneance energy, mmol CO2/g
>>> biomass h
>>> a3=1e-4 //  Constant relating CO2 to penicillin production, mmol CO2/l h
>>> CO= (((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
>>> HION=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ))
>>>
>>> Thanks.
>>>
>>>
>>>
>>>   --
>>> Adrien Vogt-Schilb (Cired)
>>> Tel: (+33) 1 43 94 *73 77*
>>>
>>
>>
>>
>> --
>> Adrien Vogt-Schilb (Cired)
>> Tel: (+33) 1 43 94 *73 77*
>>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111006/a39e550f/attachment.htm>

From vogt at centre-cired.fr  Thu Oct  6 14:07:52 2011
From: vogt at centre-cired.fr (Adrien Vogt-Schilb)
Date: Thu, 06 Oct 2011 14:07:52 +0200
Subject: [scilab-Users] No reaction
In-Reply-To: <CAHM=geHxG1ChazN_wjDtf1rRSaUEh5fCHEcMEa7xSrwx1EJ9bg@mail.gmail.com>
References: <CAHM=geHK-jnj5Jq8boLEE9Gc_GjPnvtp12=Nh2MYT1oo9cC=4g@mail.gmail.com> <4E8C5106.3080801@centre-cired.fr> <CAHM=geFLkSH5uFoChsWCJP9tuSjfSmYYyEU+XuftuB6KHHg86Q@mail.gmail.com> <4E8C79EA.9040909@centre-cired.fr> <CAHM=geFkhNYu5aSzDScbnEweVnphiWqiBAzsBP0oywjRj7yGxg@mail.gmail.com> <CAHM=geHxG1ChazN_wjDtf1rRSaUEh5fCHEcMEa7xSrwx1EJ9bg@mail.gmail.com>
Message-ID: <4E8D9A18.2030203@centre-cired.fr>

Hi

Maybe you should look at x (the output of ode) without ploting it. That 
way you'll make sure if the problem comes from the plot or not

Can you attach a file with the new code?

On 06/10/2011 10:00, Jaundre Venter wrote:
> Hi
>
> okay i have made the changes and the reaction curves are looking 
> better but for some reason i still get no reaction on the last three 
> curves. It is just showing a straight line. can it be that i have 
> choosen to plot the wrong type of graph? Maybe because of a time value 
> or to much ODE"s?
>
> On Wed, Oct 5, 2011 at 10:24 PM, Jaundre Venter 
> <jaundreventer at gmail.com <mailto:jaundreventer at gmail.com>> wrote:
>
>     Thank you very much Adrien.
>
>     always nice if someone can explain to you where your problems are
>     and why. Thanks
>
>     Was there any other problems you saw that i have to be aware of?
>
>
>     On Wed, Oct 5, 2011 at 5:38 PM, Adrien Vogt-Schilb
>     <vogt at centre-cired.fr <mailto:vogt at centre-cired.fr>> wrote:
>
>         Hi
>
>         When you use ode, it's ok, if say, dx(1) depends on dx(4).
>         but you still have say that to scilab properly, something like:
>
>         function dx = f(t,x)
>         dx(6)=((F+Fab+Floss)*(x(2))),  // culture Volume V
>         dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx(6))))*(CO)*(x(2)))), //biomass
>         concentration X
>         and so one
>
>         note that because i had to know dx(6) to compute dx(1) i just
>         computed dx(6) before dx(1): no problem. and note that i used
>         x(2). The idea of the ode is to compute dx from x!
>
>         make sure you understand that using dx_6 instead of dx(6),
>         your ODE solver is not updating dx_6 at each time step, it is
>         using the initial and only dx_6 forever. That's why your last
>         varaibles do not move, somehow their speeds are never updated.
>         for instance, dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume
>         V is constance in time (i guess)
>
>
>
>         On 05/10/2011 15:00, Jaundre Venter wrote:
>>         Hi Adrien
>>
>>         i am new to SCILAB! I just want to say that.
>>
>>         Yes dx_1 is equal to dx1 but the only reason why i have
>>         programmed it like that is becasue the ODE's looks as follows
>>         - (see word file attached that can explain the ODE"s better.
>>         with regards to the HION and CO it actually refers to [H+]
>>         and CO2 as you said. the only reason why n multiplied HION
>>         and CO wit hsome ODE's is because some does have a influence
>>         on some ODE's.
>>
>>         This is the first time i am working with SCILAB thus i am
>>         struggling to understand how SCILAB wants the code so that
>>         all 9 ODE's are shown and so that the ODE's that is having a
>>         effect on other does happen. I though if you refer to dx(1)
>>         for example in a other ODE it means that SCILAb will know the
>>         dx(1) has a influence on the other ODE.
>>
>>         The main goal of my assesment is to deliver similar results
>>         obtained from MATLAB on SCILAB. all i got was how the grpahs
>>         should look like and the ODE's.
>>
>>         On Wed, Oct 5, 2011 at 2:43 PM, Adrien Vogt-Schilb
>>         <vogt at centre-cired.fr <mailto:vogt at centre-cired.fr>> wrote:
>>
>>             Hi
>>
>>             Try to isalote your problem
>>             if i understood well, the following code
>>
>>
>>             //  initial values
>>             x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
>>             t=0:0.005:400;
>>             y=ode(x0, 0, t, f);
>>
>>             returns y such that sum(y(6:9,:)>x0) == 0 ?
>>             if this is true, we do not need the plots to solve the
>>             problem
>>             can you check that ?
>>
>>             I believe the f function is erroneous.
>>             It seems that dx_1 should be equal to dx(1) at each time
>>             step, and that HION should be equal to x(2) at each time
>>             step, etc.
>>
>>             in other terms, some of your phisical variables seem to
>>             be represented by to variables (i am guessing HION=[H+]
>>             and x(2)=[H+] also) but scilab does not have any chance
>>             to know that.
>>             if my guess is right, you have to rewrite the f function
>>             in a way that eliminates all references to HION, dx_1,
>>             dx_6 and so on
>>
>>
>>             On 05/10/2011 14:27, Jaundre Venter wrote:
>>>             Hi all
>>>
>>>             Can someone please explain to me the following:
>>>
>>>             I am busy with a project of simulation the production of
>>>             penicillin in a bio reactor. Now i have 9 ODE's which i
>>>             want to simulate.
>>>
>>>             now for some reason the last three graphs i am getting
>>>             doesn't show any response what so ever. i am using the
>>>             following code.
>>>
>>>             dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx_6)))*(CO)*(HION)),
>>>             //biomass concentration X
>>>             dx(2)=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ)),
>>>             //hydrogen ion concentration H+
>>>             dx(3)=((((mupp)*(x(1)))-((K)*(x(3)))-((x(3))/(x(6)))*(dx_6))*(HION)),
>>>             //Penicilin concentration P
>>>             dx(4)=((-((mu)/(Yxs))*(x(1)))-(((mupp)/(Yps))*(x(1)))-((mx)*(x(1)))+((Fsf)/(x(6)))-((x(4)/(x(6)))*(dx_6))),
>>>             //Substrate concentration S
>>>             dx(5)=(-(((mu)/(Yxo))*(x(1)))-(((mupp)/(Ypo))*(x(1)))-(((mo))*(x(1)))+((kla)*(cll-(x(5))))-(((x(5))/(x(6)))*(dx_6))),
>>>             //dissolved oxygen
>>>             dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume V
>>>             dx(7)=(((rq1)*(dx_1)*(x(6)))+(rq2)*(x(1))*(x(6))),
>>>             //Heat generation Qrxn
>>>             dx(8)=((((F)/(sf))*(Tf-(x(8))))+(1/((x(6))*(pcp)))*(QT)), 
>>>             //  Temperature T
>>>             dx(9)=(((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2
>>>             evolution, CO2
>>>             endfunction
>>>
>>>             now when i ask for plotting the graphs i am using the
>>>             following.:
>>>
>>>             //  initial values
>>>             x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
>>>             t=0:0.005:400;
>>>             y=ode(x0, 0, t, f);
>>>
>>>             // the plots of each variable
>>>             da.title.text="BIOMASS CONCENTRATION"
>>>             da.x_label.text="Time, hours";
>>>             da.y_label.text="X,g/l ";
>>>             scf(1);clf; //Opens and clears figure 1
>>>             plot(t,y(1,:))
>>>
>>>             da.title.text="HYDROGEN ION H+ CONCENTRATION"
>>>             da.y_label.text="H+,mol/l ";
>>>             scf(2);clf; //Opens and clears figure 2
>>>             plot(t,y(2,:))
>>>
>>>             da.title.text="PENICILLIN CONCENTRATION"
>>>             da.y_label.text="P,g/l ";
>>>             scf(3);clf; //Opens and clears figure 3
>>>             plot(t,y(3,:))
>>>
>>>             da.title.text="SUBSTRATE CONCENTRATION"
>>>             da.y_label.text="S,g/l ";
>>>             scf(4);clf; //Opens and clears figure 4
>>>             plot(t,y(4,:))
>>>
>>>             da.title.text="DISSOLVED OXYGEN CONCENTRATION"
>>>             da.y_label.text="C_l,g/l ";
>>>             scf(5);clf; //Opens and clears figure 5
>>>             plot(t,y(5,:))
>>>
>>>             da.title.text="CULTURE VOLUME"
>>>             da.y_label.text="V,l";
>>>             scf(6);clf; //Opens and clears figure 6
>>>             plot(t,y(6,:))
>>>
>>>             da.title.text="HEAT OF REACTION"
>>>             da.y_label.text="Qrxn,cal";
>>>             scf(7);
>>>             clf; //Opens and clears figure 7
>>>             plot(t,y(7),:)
>>>
>>>             da.title.text="TEMPERATURE"
>>>             da.y_label.text="T,Kelvin";
>>>             scf(8);
>>>             clf; //Opens and clears figure 8
>>>             plot(t,y(8),:)
>>>
>>>             da.title.text="CO2 EVOLUTION"
>>>             da.y_label.text="CO2,mmol/l/";
>>>             scf(9);
>>>             clf; //Opens and clears figure 9
>>>             plot(t,y(9),:)
>>>
>>>             Am i doing something wrong? before the ODE's i have just
>>>             programmed the initial values and constants :
>>>
>>>             funcprot(0);
>>>             function dx = f(t,x)
>>>             K1=1.0e-10         //mol/l
>>>             K2=7.0e-05         //mol/l
>>>             Kx=0.15            // Contois saturation constant, g/l
>>>             Kox=2e-02          // oxygen limitation constant
>>>             mux=0.092          // maitenance coefficient on subsrate
>>>             p=3                //constant
>>>             Kp=0.0002          //   inhibition constant
>>>             Kop=2e-02      // oxygen limitation constant
>>>             K=0.04     //  Penicillin hydrolysis constant, per h
>>>             Yxs=0.45  //   yield constant,g biomass/g glucose =
>>>             dimensionless
>>>             Yps=0.90  //   yield constant, g pinicillin/ g glucose =
>>>             dimensionless
>>>             mx= 0.014  //   Maintenance coefficient on substrate, per h
>>>             Yxo=0.04  //   yield constant, g biomass/g oxygen =
>>>             dimensionless
>>>             Ypo=0.20  //   yield constant, g penicillin/g oxygen=
>>>             dimensionless
>>>             mo= 0.467  //   maintenance coefficient of oxygen, per h
>>>             mup=0.0005  // specific rate of penicilline production
>>>             (per h)
>>>             sf=600 // Feed substrate concentration, g/l
>>>             kla=23     // function of agitation power input and
>>>             oxugen flow rate, dimensional
>>>             cll=1.16   //  dissolved oxygen concentration, g/l
>>>             Cab=3      // concentrations in both solutions
>>>             Fa=5     // acid flow rate, l/h  !!
>>>             Fb=5      // base flow rate, l/h !!
>>>             delta_t=0.01   //  time step in digital PID controller -
>>>             arbitrary value!!!
>>>             z=10e-5     // constant
>>>             F=0.042       //  feed substrate flow rate l/h
>>>             T0=273         //  temperature at freezing, K
>>>             Tv=373       //  temperature at boiling
>>>             T=298  //  feed temp of substrate
>>>             h=(2.5e-4)     //  constant
>>>             Floss=(x(6)*(h)*(exp(5)*((T-T0)/(Tv-T0))))
>>>             Fab=Fa+Fb  // volume increase due to influx of acid Fa
>>>             and base Fb
>>>             Fsf=((sf)*(F))
>>>             kg= 7e-3 //  Arrhenius constant for growth
>>>             kd=10e33  //  Arrhenius constant for cell death
>>>             Eg= 5100  //  Activation energy for growth, cal/mol
>>>             Ed= 50000  //  Activation energy for cell death, cal/mol
>>>             R= 1.987  //  gas constant, cal/mol k
>>>             T= 297  //  Temperature
>>>             RT= R*T
>>>             alpa= 70  //  constant in Kla
>>>             betha= 0.4  //  constant in Kla
>>>             Pw= 30  //  Agitation power input, W
>>>             fg= 8.6  //  Flow rate of oxygen
>>>             V=100  //  Volume
>>>             QE= ((kg*exp(-(Eg/RT)))-(kd*exp(-(Ed/RT))))
>>>             kla= alpa*((sqrt(fg)*(Pw/x(6)))^betha)
>>>             mu
>>>             =(((mux)/(1+((K1)/(x(2)))+((x(2))/(K2))))*((x(3))/(((Kx)*(x(1)))+(x(3))))*((x(5))/(((Kox)*(x(1)))+(x(5))))*(QE)) 
>>>             //  Specific growth rate
>>>             mupp =
>>>             ((mup)*((x(4))/((Kp)+(x(4))+(x(4)^2)/(K1)))*((x(5)^p)/((Kop)*(x(1)))+(x(5)^p))) 
>>>             // Specific penicillin production rate
>>>             B
>>>             =(((1e-14/x(2)-x(2))*x(6)-Cab*(Fa+Fb)*delta_t)/(x(6)+(Fa+Fb)*delta_t))
>>>             QQ =((-B+sqrt(B^2+4e-14))/2-(x(2)))*(1/delta_t)
>>>             dx_6 = (F+Fab+Floss) //Culture Volume V
>>>             dx_1 = (((mu)*(x(1)))-((x(1))/(x(6)))*(dx_6)) //biomass
>>>             concentration X
>>>             rq1 = 60  //  yield of heat generation, cal/g biomass
>>>             rq2 = 1.6783e-4  //  Constant, cal/g biomass h
>>>             Tf = 296  //  substrate feed temperature, Kelvin
>>>             a = 1000   //  heat transfer coefficient of
>>>             cooling/heating liquid, cal/h degree C
>>>             b = 0.60   //  constant
>>>             Fc=0.1   //  Cooling water flow rate, not sure about
>>>             value, l/h
>>>             pcCpc = 1/2000   //  Density times heat capacity of
>>>             cooling liquid, per l degree C
>>>             pcp = 1/1500   //  density times heat capacity of medium
>>>             QT = ((x(7)-(((a)*(Fc^b+1))/((Fc)+((a)*(Fc^b))/2*pcCpc))))
>>>             a1=0.143  //  constant relating CO2 to growth, mmol
>>>             CO2/g biomass
>>>             a2=4e-7  //  Constant relating CO2 to mainteneance
>>>             energy, mmol CO2/g biomass h
>>>             a3=1e-4 //  Constant relating CO2 to penicillin
>>>             production, mmol CO2/l h
>>>             CO= (((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2
>>>             evolution, CO2
>>>             HION=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ))
>>>
>>>             Thanks.
>>
>>
>>             -- 
>>             Adrien Vogt-Schilb (Cired)
>>             Tel: (+33) 1 43 94 *73 77*
>>
>>
>
>
>         -- 
>         Adrien Vogt-Schilb (Cired)
>         Tel: (+33) 1 43 94 *73 77*
>
>
>


-- 
Adrien Vogt-Schilb (Cired)
Tel: (+33) 1 43 94 *73 77*
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111006/fcefde67/attachment.htm>

From haraldgalda at yahoo.com  Fri Oct  7 14:13:13 2011
From: haraldgalda at yahoo.com (Harald Galda, Dr. Eng. (J))
Date: Fri, 7 Oct 2011 05:13:13 -0700 (PDT)
Subject: Problems with Toolbox Compilation
Message-ID: <1317989593.2347.YahooMailNeo@web112613.mail.gq1.yahoo.com>

Dear Scilab users,

I uploaded a new version of IPD toolbox yesterday. The toolbox works on Windows for both 32 bit and 64 bit architectures, but there are the following problems:

1. The ATOMS GUI of Scilab does not offer the new version for download. When I tried to install the toolbox, an older version was installed.

2. I can not download the 32 bit package. Google Chrome does not download the 32 bit package at all whereas Internet Explorer downloads an empty ZIP file.

3. The 64 bit package has a build log file, but the 32 bit package has not.

The problems mentioned above have never occured in previous versions.

Another problem has been there since the very beginning: the C++ compiler on Linux does not compile my class templates. There is the following class hierarchy:

- CFilter<GrayValueType>

-- CMaskFilterTemplate<GrayValueType>
--- CLinearFilter<GrayValueType>
--- CMedian<GrayValueType>
--- CVariance<GrayValueType>

-- CMorphologicalFilterTemplate<GrayValueType>
--- CErosion<GrayValueType>
--- CDilation<GrayValueType>

When a sub class accesses protected members of a super class, there is the error message that the identifiers would not be declared in the current scope. I once added "CFilter<GrayValueType>::" before the respective identifiers and I submitted the modified sources. But then the toolbox can no longer be built on 32 bit Windows. Therefore, I disabled the modified sources and enabled the original sources again.?

CFilter<GrayValueType> contains a protected type definition. The compiler of Visual Studio has no problems with this, but the compiler on Linux does not like this. Moreover, CFilter<GrayValueType> contains a pure virtual function that is defined in all concrete sub classes. The compiler on Linux complains that a pure virtual function would be called whereas the compiler of Visual Studio does compile the function call.

What has gone wrong so far?

Kind regards
Harald Galda



From joerghiller at ymail.com  Sun Oct  9 19:47:11 2011
From: joerghiller at ymail.com (joschi)
Date: Sun, 9 Oct 2011 10:47:11 -0700 (PDT)
Subject: Matplot with colorbar and negative values
Message-ID: <1318182431737-3407767.post@n3.nabble.com>

Hi Group,

i try to do a plot for a matrix with contains negative values. If i try to
plot the matrix with Matplot i got with or black fields for the negative
values. Plz. try my example.

What i am doing wrong?

z=[-1 -7 5;2 4 7;8 6 9];
scf(); 
ncol=10;
xset("colormap",jetcolormap(ncol)); 
xtitle("Effect", "Variable", "Response");
colorbar(min(z),max(z),[1,ncol],fmt="%.2f");
Matplot(z);


Next prob is that if i wanna have more color than values e.g. ncol=32, the
values are not set right.
red is corresponding to the last value (here: 9) but thes are all color blue

z=[1 7 5;2 4 7;8 6 9];
scf(); 
ncol=32;
xset("colormap",jetcolormap(ncol)); 
xtitle("Effect", "Variable", "Response");
colorbar(min(z),max(z),[1,ncol],fmt="%.2f"); 
Matplot(z);

Last is how can i add more tics to the colorbar. By default i get 4 values
shown at the solorbar, but i wanna have, for my example from 1 to 9 an entry
at the colorbar 1 2 3 4 5 6 7 8 9.

Thanks in advance

--
View this message in context: http://mailinglists.scilab.org/Matplot-with-colorbar-and-negative-values-tp3407767p3407767.html
Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.


From Serge.Steer at inria.fr  Sun Oct  9 22:08:37 2011
From: Serge.Steer at inria.fr (Serge Steer)
Date: Sun, 09 Oct 2011 22:08:37 +0200
Subject: [scilab-Users] Matplot with colorbar and negative values
In-Reply-To: <1318182431737-3407767.post@n3.nabble.com>
References: <1318182431737-3407767.post@n3.nabble.com>
Message-ID: <4E91FF45.7020704@inria.fr>

The Matplot argument must be a matrix of color indices

so you should do
c=z-min(z);c=round((ncol-1)*c/max(c))+1
Matplot(c)

Serge Steer

Le 09/10/2011 19:47, joschi a ?crit :
> Hi Group,
>
> i try to do a plot for a matrix with contains negative values. If i try to
> plot the matrix with Matplot i got with or black fields for the negative
> values. Plz. try my example.
>
> What i am doing wrong?
>
> z=[-1 -7 5;2 4 7;8 6 9];
> scf();
> ncol=10;
> xset("colormap",jetcolormap(ncol));
> xtitle("Effect", "Variable", "Response");
> colorbar(min(z),max(z),[1,ncol],fmt="%.2f");
> Matplot(z);
>
>
> Next prob is that if i wanna have more color than values e.g. ncol=32, the
> values are not set right.
> red is corresponding to the last value (here: 9) but thes are all color blue
>
> z=[1 7 5;2 4 7;8 6 9];
> scf();
> ncol=32;
> xset("colormap",jetcolormap(ncol));
> xtitle("Effect", "Variable", "Response");
> colorbar(min(z),max(z),[1,ncol],fmt="%.2f");
> Matplot(z);
>
> Last is how can i add more tics to the colorbar. By default i get 4 values
> shown at the solorbar, but i wanna have, for my example from 1 to 9 an entry
> at the colorbar 1 2 3 4 5 6 7 8 9.
>
> Thanks in advance
>
> --
> View this message in context: http://mailinglists.scilab.org/Matplot-with-colorbar-and-negative-values-tp3407767p3407767.html
> Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.
>



From joerghiller at ymail.com  Mon Oct 10 11:27:20 2011
From: joerghiller at ymail.com (joschi)
Date: Mon, 10 Oct 2011 02:27:20 -0700 (PDT)
Subject: Matplot with colorbar and negative values
In-Reply-To: <4E91FF45.7020704@inria.fr>
References: <1318182431737-3407767.post@n3.nabble.com> <4E91FF45.7020704@inria.fr>
Message-ID: <1318238840987-3409012.post@n3.nabble.com>

Thanks for your post.
Now i have the following problem. I can not change my colobarvalues
(colorbar values from -5 to 5), because the values are not set to the colors
of the colorbar.
Try the example. You see that the colorscheme is diffent than they should be
(regarding the values).


z=[-1 7 5;2 4 -7;8 -6 12;5 9 3];
 
//Plot
scf(); //Create a new grahic window
ncol=10;
xset("colormap",jetcolormap(ncol)); // Choose colormap (see the help of
colormap)
xtitle("Effect", "Variable", "Response");
colorbar(-5,5,[1,ncol],fmt="%.2f"); // Draw a colorbar
c=z-min(z);
c=round((ncol-1)*c/max(c))+1;
Matplot(c);

--
View this message in context: http://mailinglists.scilab.org/Matplot-with-colorbar-and-negative-values-tp3407767p3409012.html
Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.


From patricia.dbooker at gmail.com  Mon Oct 10 11:55:45 2011
From: patricia.dbooker at gmail.com (Editions D-BookeR)
Date: Mon, 10 Oct 2011 09:55:45 +0000 (UTC)
Subject: [PROPOSAL] Looking for contributors to write a modular book on Scilab in French
Message-ID: <loom.20111010T114749-926@post.gmane.org>

Hello,

I'm looking for French-writing contributors and authors 
for writing a modular book on Scilab (in French).
All experiences may be interesting, since a part of the 
book will be dedicated to real examples of Scilab use.

The book will be published by Les ?ditions D-Booker, 
that I'm currently setting up.

For more information, please contact me off-list 
to contact at d-booker dot fr

- Patricia



From p.huesch at web.de  Mon Oct 10 14:44:11 2011
From: p.huesch at web.de (Hugo3)
Date: Mon, 10 Oct 2011 05:44:11 -0700 (PDT)
Subject: opening superblock
Message-ID: <1318250651216-3409367.post@n3.nabble.com>

Hi!
I have a problem with Xcos. I have created a superblock of some BasicBlocks,
which worked fine all the time, and suddenly I cannot access it anymore.
After doubleclicking on it the console reads:

 Exception in thread "AWT-EventQueue-0" java.lang.NullPointerException   
at
org.scilab.modules.xcos.block.SuperBlock.getBlocksConsecutiveUniqueValueCount(Unknown
Source)   
at org.scilab.modules.xcos.block.SuperBlock.updateBlocksColor(Unknown
Source)   
at org.scilab.modules.xcos.block.SuperBlock.updateAllBlocksColor(Unknown
Source)   
at org.scilab.modules.xcos.block.SuperBlock.openBlockSettings(Unknown
Source)   
at
org.scilab.modules.xcos.graph.swing.handler.GraphHandler.openBlock(Unknown
Source)   
at
org.scilab.modules.xcos.graph.swing.handler.GraphHandler.mouseClicked(Unknown
Source)   
at java.awt.AWTEventMulticaster.mouseClicked(Unknown Source)   
at java.awt.AWTEventMulticaster.mouseClicked(Unknown Source)   
at java.awt.AWTEventMulticaster.mouseClicked(Unknown Source)  
at java.awt.AWTEventMulticaster.mouseClicked(Unknown Source)   
at java.awt.AWTEventMulticaster.mouseClicked(Unknown Source)   
at java.awt.Component.processMouseEvent(Unknown Source)   
at javax.swing.JComponent.processMouseEvent(Unknown Source)   
at java.awt.Component.processEvent(Unknown Source)   
at java.awt.Container.processEvent(Unknown Source)   
at java.awt.Component.dispatchEventImpl(Unknown Source)   
at java.awt.Container.dispatchEventImpl(Unknown Source)   
at java.awt.Component.dispatchEvent(Unknown Source)   
at java.awt.LightweightDispatcher.retargetMouseEvent(Unknown Source)   
at java.awt.LightweightDispatcher.processMouseEvent(Unknown Source)   
at java.awt.LightweightDispatcher.dispatchEvent(Unknown Source)   
at java.awt.Container.dispatchEventImpl(Unknown Source)   
at java.awt.Window.dispatchEventImpl(Unknown Source)   
at java.awt.Component.dispatchEvent(Unknown Source)   
at java.awt.EventQueue.dispatchEvent(Unknown Source)   
at java.awt.EventDispatchThread.pumpOneEventForFilters(Unknown Source)   
at java.awt.EventDispatchThread.pumpEventsForFilter(Unknown Source)   
at java.awt.EventDispatchThread.pumpEventsForHierarchy(Unknown Source)   
at java.awt.EventDispatchThread.pumpEvents(Unknown Source)   
at java.awt.EventDispatchThread.pumpEvents(Unknown Source)   
at java.awt.EventDispatchThread.run(Unknown Source)

Last thing I remeber is that I was renaming some Out- and Input Ports. Then
I closed the superblock, saved, and was never again able to open it. Can
someone please give me a hint what might have happened?

--
View this message in context: http://mailinglists.scilab.org/opening-superblock-tp3409367p3409367.html
Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.


From pierre.juillard at gmail.com  Mon Oct 10 15:04:16 2011
From: pierre.juillard at gmail.com (Pierre JUILLARD)
Date: Mon, 10 Oct 2011 15:04:16 +0200
Subject: [scilab-Users] Visual Basic to Scilab converter?
Message-ID: <CAE=UaPa=k_5yEqRnBzpfZm_xh9x7PhA+HCpQLQ85ceB3gGwT3Q@mail.gmail.com>

Hi,

I would like to know if a visual basic to scilab converter exist?

If not, are they some simple ways to do it more easily than doing it fully
manually?

I thank you in advance for your advices.

Bests,

Pierre
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111010/9aef8e5b/attachment.htm>

From allan.cornet at scilab.org  Mon Oct 10 16:00:22 2011
From: allan.cornet at scilab.org (Allan CORNET)
Date: Mon, 10 Oct 2011 16:00:22 +0200
Subject: [scilab-Users] Visual Basic to Scilab converter?
In-Reply-To: <CAE=UaPa=k_5yEqRnBzpfZm_xh9x7PhA+HCpQLQ85ceB3gGwT3Q@mail.gmail.com>
References: <CAE=UaPa=k_5yEqRnBzpfZm_xh9x7PhA+HCpQLQ85ceB3gGwT3Q@mail.gmail.com>
Message-ID: <007d01cc8754$f3a6cfa0$daf46ee0$@scilab.org>

Hi,

 

Currently, there is no ? automatic ? tools to convert a visual basic code to
Scilab script

 

Convert a vb code to Scilab depend of the complexity of your code.

 

Please notice that you can call Scilab from Visual basic see examples in
SCI/modules/call_scilab/examples/call_scilab/NET/VB.NET or 

 
<http://gitweb.scilab.org/?p=scilab.git;a=tree;f=scilab/modules/call_scilab/
examples/call_scilab/NET/VB.NET;h=a12fb484fcacf6060cbc0478ce32605e8e7e415d;h
b=376b709574aa1e94b183066ea15db7b4ea260780>
http://gitweb.scilab.org/?p=scilab.git;a=tree;f=scilab/modules/call_scilab/e
xamples/call_scilab/NET/VB.NET;h=a12fb484fcacf6060cbc0478ce32605e8e7e415d;hb
=376b709574aa1e94b183066ea15db7b4ea260780

 

A good practice could to do an incremental migration. You call Scilab from
VB and migrate some part in Scilab script.

 

Best regards

 

Allan CORNET

 

 

De : Pierre JUILLARD [mailto:pierre.juillard at gmail.com] 
Envoy? : lundi 10 octobre 2011 15:04
? : users at lists.scilab.org
Objet : [scilab-Users] Visual Basic to Scilab converter?

 

Hi,

I would like to know if a visual basic to scilab converter exist?

If not, are they some simple ways to do it more easily than doing it fully
manually?

I thank you in advance for your advices.

Bests,

Pierre

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111010/4fdcce66/attachment.htm>

From gledsonmelotti at yahoo.com.br  Mon Oct 10 15:51:44 2011
From: gledsonmelotti at yahoo.com.br (Gledson Melotti)
Date: Mon, 10 Oct 2011 06:51:44 -0700 (PDT)
Subject: scilab symbolic
Message-ID: <1318254704.44837.YahooMailNeo@web120608.mail.ne1.yahoo.com>

Hi, I want to use scilab and am with a doubt. How Do I work with symbolic variables? In scilab 3 I used syms. Now in the version 5.3.0, how Should I use? Because in my scilab 5.3.0 not funcion.

At once I thank by the attention,

Gledson Melotti.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111010/039deaf2/attachment.htm>

From pierre.juillard at gmail.com  Mon Oct 10 16:13:13 2011
From: pierre.juillard at gmail.com (Pierre JUILLARD)
Date: Mon, 10 Oct 2011 16:13:13 +0200
Subject: [scilab-Users] Visual Basic to Scilab converter?
In-Reply-To: <007d01cc8754$f3a6cfa0$daf46ee0$@scilab.org>
References: <CAE=UaPa=k_5yEqRnBzpfZm_xh9x7PhA+HCpQLQ85ceB3gGwT3Q@mail.gmail.com>
	<007d01cc8754$f3a6cfa0$daf46ee0$@scilab.org>
Message-ID: <CAE=UaPYFHax5jwe_34+c1GpUeNPTabmw3UJ04LwerUWFc1=GfQ@mail.gmail.com>

Hi Allan,

Thanks for the tip.

Have a good evening.
Bests,

Pierre



2011/10/10 Allan CORNET <allan.cornet at scilab.org>

> Hi,****
>
> ** **
>
> Currently, there is no ? automatic ? tools to convert a visual basic code
> to Scilab script****
>
> ** **
>
> Convert a vb code to Scilab depend of the complexity of your code.****
>
> ** **
>
> Please notice that you can call Scilab from Visual basic see examples in
> SCI/modules/call_scilab/examples/call_scilab/NET/VB.NET or ****
>
>
> http://gitweb.scilab.org/?p=scilab.git;a=tree;f=scilab/modules/call_scilab/examples/call_scilab/NET/VB.NET;h=a12fb484fcacf6060cbc0478ce32605e8e7e415d;hb=376b709574aa1e94b183066ea15db7b4ea260780
> ****
>
> ** **
>
> A good practice could to do an incremental migration. You call Scilab from
> VB and migrate some part in Scilab script.****
>
> ** **
>
> Best regards****
>
> ** **
>
> Allan CORNET****
>
> ** **
>
> ** **
>
> *De :* Pierre JUILLARD [mailto:pierre.juillard at gmail.com]
> *Envoy? :* lundi 10 octobre 2011 15:04
> *? :* users at lists.scilab.org
> *Objet :* [scilab-Users] Visual Basic to Scilab converter?****
>
> ** **
>
> Hi,
>
> I would like to know if a visual basic to scilab converter exist?
>
> If not, are they some simple ways to do it more easily than doing it fully
> manually?
>
> I thank you in advance for your advices.
>
> Bests,
>
> Pierre****
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111010/a48669c2/attachment.htm>

From rouxph.22 at gmail.com  Mon Oct 10 22:08:38 2011
From: rouxph.22 at gmail.com (philippe)
Date: Mon, 10 Oct 2011 22:08:38 +0200
Subject: scilab symbolic
In-Reply-To: <1318254704.44837.YahooMailNeo@web120608.mail.ne1.yahoo.com>
References: <1318254704.44837.YahooMailNeo@web120608.mail.ne1.yahoo.com>
Message-ID: <j6vjc7$h7p$1@dough.gmane.org>

Hi,

Le 10/10/2011 15:51, Gledson Melotti a ?crit :
> Hi, I want to use scilab and am with a doubt. How Do I work with
> symbolic variables? In scilab 3 I used syms. Now in the version 5.3.0,
> how Should I use? Because in my scilab 5.3.0 not funcion.

see old discussion :

http://mailinglists.scilab.org/SciLab-Symbolic-tool-box-td3064757.html

for linux users see  Calixte DENIZET scimax/overload toolbox :

http://forge.scilab.org/index.php/p/scimax/

for windows users see JF MAGNI SYM/OVLD toolbox  :

https://www.equalis.com/forums/posts.asp?group=&topic=258177&DGPCrPg=1&hhSearchTerms=syms&#Post258666



Philippe.




From clement.david at scilab-enterprises.com  Wed Oct 12 08:44:56 2011
From: clement.david at scilab-enterprises.com (=?ISO-8859-1?Q?Cl=E9ment?= David)
Date: Wed, 12 Oct 2011 08:44:56 +0200
Subject: [scilab-Users] opening superblock
In-Reply-To: <1318250651216-3409367.post@n3.nabble.com>
References: <1318250651216-3409367.post@n3.nabble.com>
Message-ID: <1318401896.1874.0.camel@cezembre>

Hello,
        
Thanks for reporting this issue. Can you post a bug at
bugzilla.scilab.org with the buggy diagram and any applicable
information (especially your Scilab version) please ?
        
Cl?ment 
        

Le lundi 10 octobre 2011 ? 05:44 -0700, Hugo3 a ?crit :
> Hi!
> I have a problem with Xcos. I have created a superblock of some BasicBlocks,
> which worked fine all the time, and suddenly I cannot access it anymore.
> After doubleclicking on it the console reads:
> 
>  Exception in thread "AWT-EventQueue-0" java.lang.NullPointerException   
> at
> org.scilab.modules.xcos.block.SuperBlock.getBlocksConsecutiveUniqueValueCount(Unknown
> Source)   
> at org.scilab.modules.xcos.block.SuperBlock.updateBlocksColor(Unknown
> Source)   
> at org.scilab.modules.xcos.block.SuperBlock.updateAllBlocksColor(Unknown
> Source)   
> at org.scilab.modules.xcos.block.SuperBlock.openBlockSettings(Unknown
> Source)   
> at
> org.scilab.modules.xcos.graph.swing.handler.GraphHandler.openBlock(Unknown
> Source)   
> at
> org.scilab.modules.xcos.graph.swing.handler.GraphHandler.mouseClicked(Unknown
> Source)   
> at java.awt.AWTEventMulticaster.mouseClicked(Unknown Source)   
> at java.awt.AWTEventMulticaster.mouseClicked(Unknown Source)   
> at java.awt.AWTEventMulticaster.mouseClicked(Unknown Source)  
> at java.awt.AWTEventMulticaster.mouseClicked(Unknown Source)   
> at java.awt.AWTEventMulticaster.mouseClicked(Unknown Source)   
> at java.awt.Component.processMouseEvent(Unknown Source)   
> at javax.swing.JComponent.processMouseEvent(Unknown Source)   
> at java.awt.Component.processEvent(Unknown Source)   
> at java.awt.Container.processEvent(Unknown Source)   
> at java.awt.Component.dispatchEventImpl(Unknown Source)   
> at java.awt.Container.dispatchEventImpl(Unknown Source)   
> at java.awt.Component.dispatchEvent(Unknown Source)   
> at java.awt.LightweightDispatcher.retargetMouseEvent(Unknown Source)   
> at java.awt.LightweightDispatcher.processMouseEvent(Unknown Source)   
> at java.awt.LightweightDispatcher.dispatchEvent(Unknown Source)   
> at java.awt.Container.dispatchEventImpl(Unknown Source)   
> at java.awt.Window.dispatchEventImpl(Unknown Source)   
> at java.awt.Component.dispatchEvent(Unknown Source)   
> at java.awt.EventQueue.dispatchEvent(Unknown Source)   
> at java.awt.EventDispatchThread.pumpOneEventForFilters(Unknown Source)   
> at java.awt.EventDispatchThread.pumpEventsForFilter(Unknown Source)   
> at java.awt.EventDispatchThread.pumpEventsForHierarchy(Unknown Source)   
> at java.awt.EventDispatchThread.pumpEvents(Unknown Source)   
> at java.awt.EventDispatchThread.pumpEvents(Unknown Source)   
> at java.awt.EventDispatchThread.run(Unknown Source)
> 
> Last thing I remeber is that I was renaming some Out- and Input Ports. Then
> I closed the superblock, saved, and was never again able to open it. Can
> someone please give me a hint what might have happened?
> 
> --
> View this message in context: http://mailinglists.scilab.org/opening-superblock-tp3409367p3409367.html
> Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.

-- 
Cl?ment David <clement.david at scilab-enterprises.com>
Scilab Enterprises



From recmanqc at yahoo.com  Wed Oct 12 11:40:17 2011
From: recmanqc at yahoo.com (Renante Mangumpit)
Date: Wed, 12 Oct 2011 17:40:17 +0800 (SGT)
Subject: Scilab Inquiry
Message-ID: <1318412417.36924.YahooMailNeo@web76811.mail.sg1.yahoo.com>

Sir:

I would like to ask a couple of things about the Software:

1. Does it support GPU acceleration?
2. Does it support distributed networking? (running the same task in parallel computing to speed up the process.)

Your answer is highly appreciated.

Thank you very much,

Renante
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111012/9846487e/attachment.htm>

From obvio.capitao at gmail.com  Wed Oct 12 18:25:54 2011
From: obvio.capitao at gmail.com (Capitao Obvio)
Date: Wed, 12 Oct 2011 18:25:54 +0200
Subject: Matrix transformations
Message-ID: <CAFZz7Xq4O6XgnKGN3g+Ef41L55KieNtwQHSMzqkjVG_P6W7yOA@mail.gmail.com>

Hi!

I'm starting to work with Scilab, and I'm trying to figure out how to work
with matrices.

My goal is to find a way to convert any point from one system into another.

My (failed) approach so far was to estimate the necessary rotation,
translation and scale; but it didn't work quite well, because the second map
is slightly distorted (probably due perspective).

Being a bit more specific:

I have the following points:

A = [
[52.363965, 4.892435],
[52.384611, 4.898272],
 [52.379267, 4.881105],
 [52.369678, 4.911489],
]


They correspond to these points:

B = [
[0, 0],
 [2131, 1534],
[2131, 0],
[0, 1534],
]

Do you have any suggestions on how to calculate tje transform from A to B?

Thanks in advance,

Cap.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111012/8f83b59c/attachment.htm>

From sgougeon at free.fr  Wed Oct 12 20:07:24 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Wed, 12 Oct 2011 20:07:24 +0200
Subject: [scilab-Users] Matrix transformations
In-Reply-To: <CAFZz7Xq4O6XgnKGN3g+Ef41L55KieNtwQHSMzqkjVG_P6W7yOA@mail.gmail.com>
References: <CAFZz7Xq4O6XgnKGN3g+Ef41L55KieNtwQHSMzqkjVG_P6W7yOA@mail.gmail.com>
Message-ID: <4E95D75C.5090301@free.fr>

Hi,

If you assume that the transform is linear and can be described by
a matrix T such that  B = T*A, then you merely get T as
T = B / A
-->T = B/A
  T  =

     0.    0.           0.           0.
     0.    80113.778  - 80081.268    0.
     0.  - 11913.312    11955.211    0.
     0.    92027.09   - 92036.479    0.

then, checking that T*A gives B :
-->T*A
  ans  =
     0.           0.
     2131.        1534.
     2131.        1.455D-11
   - 9.313D-10    1534.

-->B
  B  =
     0.       0.
     2131.    1534.
     2131.    0.
     0.       1534.

// So, it's OK. T*A has some residues as big as ~10^-10 instead of 0, 
due to
// numerical approximations (finite number of digits in inputs and during
// the processing).

Then, if you wish to decompose T as a rotation o translation o scaling,
it is an additional piece of work.

HTH
Samuel

Le 12/10/2011 18:25, Capitao Obvio a ?crit :
> Hi!
>
> I'm starting to work with Scilab, and I'm trying to figure out how to 
> work with matrices.
>
> My goal is to find a way to convert any point from one system into 
> another.
>
> My (failed) approach so far was to estimate the necessary rotation, 
> translation and scale; but it didn't work quite well, because the 
> second map is slightly distorted (probably due perspective).
>
> Being a bit more specific:
>
> I have the following points:
>
> A = [
> [52.363965, 4.892435],
> [52.384611, 4.898272],
> [52.379267, 4.881105],
> [52.369678, 4.911489],
> ]
>
>
> They correspond to these points:
>
> B = [
> [0, 0],
> [2131, 1534],
> [2131, 0],
> [0, 1534],
> ]
>
> Do you have any suggestions on how to calculate tje transform from A to B?
>
> Thanks in advance,
>
> Cap.
>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111012/86ed8dd1/attachment.htm>

From rfabbri at gmail.com  Wed Oct 12 20:09:03 2011
From: rfabbri at gmail.com (Ricardo Fabbri)
Date: Wed, 12 Oct 2011 15:09:03 -0300
Subject: path
Message-ID: <CACjTMEx2Wrths-SFGFjpAMgTkwJHk1aspjqj2ROKbDuyyKEzAQ@mail.gmail.com>

Hello, all,

I have some simple questions, I knew their answer, but I wonder if
things in recent scilab versions:

- Is there anything like a search PATH setting? For instance, I would
like to execute myscript.sce, but without specifying its full path. I
would also like to load a function automatically if it is in the path,
more or less matlab style.

- Aliases: is there a way to define an alias to a function? for example,
    alias ("doc", help)

There is newfun/funptr combination to do this, but I wonder if
something simple like the above, for all types of functions, are
available.

Thanks,
Ricardo
--
Linux registered user #175401
www.lems.brown.edu/~rfabbri


From sgougeon at free.fr  Wed Oct 12 20:30:37 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Wed, 12 Oct 2011 20:30:37 +0200
Subject: [scilab-Users] path
In-Reply-To: <CACjTMEx2Wrths-SFGFjpAMgTkwJHk1aspjqj2ROKbDuyyKEzAQ@mail.gmail.com>
References: <CACjTMEx2Wrths-SFGFjpAMgTkwJHk1aspjqj2ROKbDuyyKEzAQ@mail.gmail.com>
Message-ID: <4E95DCCD.4020207@free.fr>

Hello Ricardo,

Le 12/10/2011 20:09, Ricardo Fabbri a ?crit :
> Hello, all,
>
> I have some simple questions, I knew their answer, but I wonder if
> things in recent scilab versions:
>
> - Is there anything like a search PATH setting? For instance, I would
> like to execute myscript.sce, but without specifying its full path. I
> would also like to load a function automatically if it is in the path,
> more or less matlab style.
>    
As far as i know, it is presently not possible. Surprisingly, no wish 
has yet been posted about such a feature!
Yours is welcome! :-) 
http://bugzilla.scilab.org/enter_bug.cgi?product=Scilab%20software

> - Aliases: is there a way to define an alias to a function? for example,
>      alias ("doc", help)
>    
doc = help
doc isnan // opens the doc for isnan()
// This works for primitive (like help) as well as for macros (as isnan: 
Try)
isNAN = isnan
isNAN(%pi)
isNAN(%nan)

HTH
Samuel


From serge.steer at inria.fr  Wed Oct 12 22:01:26 2011
From: serge.steer at inria.fr (Serge Steer)
Date: Wed, 12 Oct 2011 22:01:26 +0200 (CEST)
Subject: [scilab-Users] path
In-Reply-To: <CACjTMEx2Wrths-SFGFjpAMgTkwJHk1aspjqj2ROKbDuyyKEzAQ@mail.gmail.com>
Message-ID: <1415811698.624895.1318449686381.JavaMail.root@zmbs3.inria.fr>



----- Mail original -----
> De: "Ricardo Fabbri" <rfabbri at gmail.com>
> ?: users at lists.scilab.org
> Envoy?: Mercredi 12 Octobre 2011 20:09:03
> Objet: [scilab-Users] path
> Hello, all,
> 
> I have some simple questions, I knew their answer, but I wonder if
> things in recent scilab versions:
> 
> - Is there anything like a search PATH setting? For instance, I would
> like to execute myscript.sce, but without specifying its full path. I
> would also like to load a function automatically if it is in the path,
> more or less matlab style.
>

for this point there is a solution  based on an undocumented feature
if the %onprompt function is defined it is automatically called just after the main prompt is displayed.

Try 
function %onprompt(),mprintf("hello\n"),endfunction

Using this function it is possible to implement a Matlab like mechanism (I have developped it, but the code is corrently located on my computer at work which is down due to a disk problem.
If you need it  I can send it to you when my desktop problem will be fixed.
It is not very hard

Define a global variable PATHS that contains a string vector of paths
for each path, use lstfiles to get the sci files, using newest determines which requires to be reloaded, exec these one inside a try.

Using who("get") at the beginning and at the end of the process allows to know which are the refined functions. Finally a resume with the names of redefined functions as lhs and rhs finishes the job.

Note however this  works for functions and not for scripts.

Serge


Serge
> - Aliases: is there a way to define an alias to a function? for
> example,
> alias ("doc", help)
> 
> There is newfun/funptr combination to do this, but I wonder if
> something simple like the above, for all types of functions, are
> available.
> 
The Samuel's answer is perfect.
> Thanks,
> Ricardo
> --
> Linux registered user #175401
> www.lems.brown.edu/~rfabbri


From rfabbri at gmail.com  Wed Oct 12 22:12:26 2011
From: rfabbri at gmail.com (Ricardo Fabbri)
Date: Wed, 12 Oct 2011 17:12:26 -0300
Subject: [scilab-Users] path
In-Reply-To: <4E95DCCD.4020207@free.fr>
References: <CACjTMEx2Wrths-SFGFjpAMgTkwJHk1aspjqj2ROKbDuyyKEzAQ@mail.gmail.com>
 <4E95DCCD.4020207@free.fr>
Message-ID: <CACjTMEwXy0UZV_hiZ=vC6BmHgaW4CpjXUct6A+ZpquHB+EhM7w@mail.gmail.com>

@Samuel:

Thanks, that aliasing through assignment is awesome!

What would one do in cases where the original function is actually a
built in which returns something and doesn't need to be called with '(
)' :

pw=pwd


This does not make pw an alias to pwd. The only way I got this to work
was through the funptr/newfun combination I mentioned:
 newfun("pw",funptr("pwd"));


@Samuel + @Serge:

I opened a feature request in scilab regarding the PATH idea:
bug #10094

It would be cool to have Serge's implementation, although I'd like
non-functions as well as this is very handy for really quick
development of ideas.

Best,
Ricardo
--
Linux registered user #175401
www.lems.brown.edu/~rfabbri



On Wed, Oct 12, 2011 at 3:30 PM, Samuel Gougeon <sgougeon at free.fr> wrote:
> Hello Ricardo,
>
> Le 12/10/2011 20:09, Ricardo Fabbri a ?crit :
>>
>> Hello, all,
>>
>> I have some simple questions, I knew their answer, but I wonder if
>> things in recent scilab versions:
>>
>> - Is there anything like a search PATH setting? For instance, I would
>> like to execute myscript.sce, but without specifying its full path. I
>> would also like to load a function automatically if it is in the path,
>> more or less matlab style.
>>
>
> As far as i know, it is presently not possible. Surprisingly, no wish has
> yet been posted about such a feature!
> Yours is welcome! :-)
> http://bugzilla.scilab.org/enter_bug.cgi?product=Scilab%20software
>
>> - Aliases: is there a way to define an alias to a function? for example,
>> ? ? alias ("doc", help)
>>
>
> doc = help
> doc isnan // opens the doc for isnan()
> // This works for primitive (like help) as well as for macros (as isnan:
> Try)
> isNAN = isnan
> isNAN(%pi)
> isNAN(%nan)
>
> HTH
> Samuel
>


From sgougeon at free.fr  Wed Oct 12 23:32:04 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Wed, 12 Oct 2011 23:32:04 +0200
Subject: [scilab-Users] path
In-Reply-To: <CACjTMEwXy0UZV_hiZ=vC6BmHgaW4CpjXUct6A+ZpquHB+EhM7w@mail.gmail.com>
References: <CACjTMEx2Wrths-SFGFjpAMgTkwJHk1aspjqj2ROKbDuyyKEzAQ@mail.gmail.com> <4E95DCCD.4020207@free.fr> <CACjTMEwXy0UZV_hiZ=vC6BmHgaW4CpjXUct6A+ZpquHB+EhM7w@mail.gmail.com>
Message-ID: <4E960754.1060607@free.fr>

Le 12/10/2011 22:12, Ricardo Fabbri a ?crit :
> .../..
> What would one do in cases where the original function is actually a
> built in which returns something and doesn't need to be called with '(
> )' :
>
> pw=pwd
>
> This does not make pw an alias to pwd. The only way I got this to work
> was through the funptr/newfun combination I mentioned:
>   newfun("pw",funptr("pwd"));
>    
Yes, you are right, after having checked that the function is not a macro.
So the required stuf (test and newfun or assignment) could make an 
alias() macro ;)

> @Samuel + @Serge:
>
> I opened a feature request in scilab regarding the PATH idea:
> bug #10094
>
> It would be cool to have Serge's implementation, although I'd like
> non-functions as well as this is very handy for really quick
> development of ideas.
>    
Yes, i agree (twice).

After the very nice trick given by Serge, Googling and bugzilling 
%onprompt is
giving some pointers:
http://bugzilla.scilab.org/show_bug.cgi?id=2441
and http://bugzilla.scilab.org/show_bug.cgi?id=2253#c4   See comment #6 
on this thread,
where Serge attached an autoload package including a %onprompt release
and documented.

@ Serge:
Why not proposing autoload as an ATOMS or in FileExchange?
Isn't there any way to catch from %onpromt() the content of the 
instruction(s)
just entered, and possibly to clear it before being run after %onprompt
(whether the instruction is a single word aknowledged as the name of a 
script
reachable through a declared path)? Another trick for the evening? :-)

Samuel


From sgougeon at free.fr  Wed Oct 12 23:37:14 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Wed, 12 Oct 2011 23:37:14 +0200
Subject: [scilab-Users] path
In-Reply-To: <CACjTMEwXy0UZV_hiZ=vC6BmHgaW4CpjXUct6A+ZpquHB+EhM7w@mail.gmail.com>
References: <CACjTMEx2Wrths-SFGFjpAMgTkwJHk1aspjqj2ROKbDuyyKEzAQ@mail.gmail.com> <4E95DCCD.4020207@free.fr> <CACjTMEwXy0UZV_hiZ=vC6BmHgaW4CpjXUct6A+ZpquHB+EhM7w@mail.gmail.com>
Message-ID: <4E96088A.9090900@free.fr>

Le 12/10/2011 22:12, Ricardo Fabbri a ?crit :
> .../..
> What would one do in cases where the original function is actually a
> built in which returns something and doesn't need to be called with '(
> )' :
>
> pw=pwd
>
> This does not make pw an alias to pwd. The only way I got this to work
> was through the funptr/newfun combination I mentioned:
>   newfun("pw",funptr("pwd"));
>    
Yes, you are right, after having checked that the function is not a macro.
So the required stuf (test and newfun or assignment) could make an 
alias() macro ;)

> @Samuel + @Serge:
>
> I opened a feature request in scilab regarding the PATH idea:
> bug #10094
>
> It would be cool to have Serge's implementation, although I'd like
> non-functions as well as this is very handy for really quick
> development of ideas.
>    
Yes, i agree (twice). i have just understood why scripts cannot be executed.
@ Serge: Isn't there any way to catch from %onpromt the content of the 
instruction(s)
just entered, and to clear it from %onprompt before being run after 
%onprompt?

After the very nice trick given by Serge, Googling and bugzilling 
%onprompt is
giving some pointers:
http://bugzilla.scilab.org/show_bug.cgi?id=2441
and http://bugzilla.scilab.org/show_bug.cgi?id=2253#c4   See comment #6 
on this thread,
where Serge attached an autoload package including a %onprompt release.

Samuel


From rfabbri at gmail.com  Thu Oct 13 04:37:27 2011
From: rfabbri at gmail.com (Ricardo Fabbri)
Date: Wed, 12 Oct 2011 23:37:27 -0300
Subject: output to file
Message-ID: <CACjTMEyfGPand=N-TCn57+wgYwt56ea+pEZFg53vO2Hr_Ao4qA@mail.gmail.com>

Hi,

continuing my previous email about miscellaneous scilab utilities.

I wonder if newer scilab versions would allow to redirect the output
of any exec instruction to a file. I'd like to have the exact output
that is shown in the scilab terminal, but redirected to a file.
Perhaps even have a "tee" functionality to output both on the terminal
and on a file. Right now I'm having to exit scilab,
then run scilab -nw |tee output.txt


I'd appreciate your thoughts on this,
best,
Ricardo
--
Linux registered user #175401
www.lems.brown.edu/~rfabbri


From Serge.Steer at inria.fr  Thu Oct 13 10:25:11 2011
From: Serge.Steer at inria.fr (Serge Steer)
Date: Thu, 13 Oct 2011 10:25:11 +0200
Subject: [scilab-Users] path
In-Reply-To: <CACjTMEwXy0UZV_hiZ=vC6BmHgaW4CpjXUct6A+ZpquHB+EhM7w@mail.gmail.com>
References: <CACjTMEx2Wrths-SFGFjpAMgTkwJHk1aspjqj2ROKbDuyyKEzAQ@mail.gmail.com> <4E95DCCD.4020207@free.fr> <CACjTMEwXy0UZV_hiZ=vC6BmHgaW4CpjXUct6A+ZpquHB+EhM7w@mail.gmail.com>
Message-ID: <4E96A067.9010808@inria.fr>

Le 12/10/2011 22:12, Ricardo Fabbri a ?crit :
> @Samuel:
>
> Thanks, that aliasing through assignment is awesome!
>
> What would one do in cases where the original function is actually a
> built in which returns something and doesn't need to be called with '(
> )' :
It works for macro coded functions:
-->ls1=ls
-->ls1
> pw=pwd
>
this is a bug, note that haowever pw() works
> This does not make pw an alias to pwd. The only way I got this to work
> was through the funptr/newfun combination I mentioned:
>   newfun("pw",funptr("pwd"));
>
>
> @Samuel + @Serge:
>
> I opened a feature request in scilab regarding the PATH idea:
> bug #10094
>
> It would be cool to have Serge's implementation, although I'd like
> non-functions as well as this is very handy for really quick
> development of ideas.
it is possible to for scripts, transforming them into functions with no 
input nor output and then calling these function with exec

example:

Suppose you have a script foo.sce that contains some instructions (instr)
it is possible to create a function
function foo
instr
endfunction

the execution of the initial script can then be replaced by exec(foo). 
Warning calling just foo will also execute the script but into a 
temporary scope, which is destroyed at the end of the execution.


> Best,
> Ricardo
> --
> Linux registered user #175401
> www.lems.brown.edu/~rfabbri
>
>
>
> On Wed, Oct 12, 2011 at 3:30 PM, Samuel Gougeon<sgougeon at free.fr>  wrote:
>> Hello Ricardo,
>>
>> Le 12/10/2011 20:09, Ricardo Fabbri a ?crit :
>>> Hello, all,
>>>
>>> I have some simple questions, I knew their answer, but I wonder if
>>> things in recent scilab versions:
>>>
>>> - Is there anything like a search PATH setting? For instance, I would
>>> like to execute myscript.sce, but without specifying its full path. I
>>> would also like to load a function automatically if it is in the path,
>>> more or less matlab style.
>>>
>> As far as i know, it is presently not possible. Surprisingly, no wish has
>> yet been posted about such a feature!
>> Yours is welcome! :-)
>> http://bugzilla.scilab.org/enter_bug.cgi?product=Scilab%20software
>>
>>> - Aliases: is there a way to define an alias to a function? for example,
>>>      alias ("doc", help)
>>>
>> doc = help
>> doc isnan // opens the doc for isnan()
>> // This works for primitive (like help) as well as for macros (as isnan:
>> Try)
>> isNAN = isnan
>> isNAN(%pi)
>> isNAN(%nan)
>>
>> HTH
>> Samuel
>>



From Serge.Steer at inria.fr  Thu Oct 13 10:27:47 2011
From: Serge.Steer at inria.fr (Serge Steer)
Date: Thu, 13 Oct 2011 10:27:47 +0200
Subject: [scilab-Users] output to file
In-Reply-To: <CACjTMEyfGPand=N-TCn57+wgYwt56ea+pEZFg53vO2Hr_Ao4qA@mail.gmail.com>
References: <CACjTMEyfGPand=N-TCn57+wgYwt56ea+pEZFg53vO2Hr_Ao4qA@mail.gmail.com>
Message-ID: <4E96A103.3000807@inria.fr>

Le 13/10/2011 04:37, Ricardo Fabbri a ?crit :
> Hi,
>
> continuing my previous email about miscellaneous scilab utilities.
>
> I wonder if newer scilab versions would allow to redirect the output
> of any exec instruction to a file. I'd like to have the exact output
> that is shown in the scilab terminal, but redirected to a file.
> Perhaps even have a "tee" functionality to output both on the terminal
> and on a file. Right now I'm having to exit scilab,
> then run scilab -nw |tee output.txt
>
does diary respond to your wish?
> I'd appreciate your thoughts on this,
> best,
> Ricardo
> --
> Linux registered user #175401
> www.lems.brown.edu/~rfabbri
>



From vogt at centre-cired.fr  Thu Oct 13 12:50:49 2011
From: vogt at centre-cired.fr (Adrien Vogt-Schilb)
Date: Thu, 13 Oct 2011 12:50:49 +0200
Subject: [scilab-Users] output to file
In-Reply-To: <4E96A103.3000807@inria.fr>
References: <CACjTMEyfGPand=N-TCn57+wgYwt56ea+pEZFg53vO2Hr_Ao4qA@mail.gmail.com> <4E96A103.3000807@inria.fr>
Message-ID: <4E96C289.9070608@centre-cired.fr>

Ricardo, just to be sure:
"diary" is a scilab function. check "help diary"

On 13/10/2011 10:27, Serge Steer wrote:
> Le 13/10/2011 04:37, Ricardo Fabbri a ?crit :
>> Hi,
>>
>> continuing my previous email about miscellaneous scilab utilities.
>>
>> I wonder if newer scilab versions would allow to redirect the output
>> of any exec instruction to a file. I'd like to have the exact output
>> that is shown in the scilab terminal, but redirected to a file.
>> Perhaps even have a "tee" functionality to output both on the terminal
>> and on a file. Right now I'm having to exit scilab,
>> then run scilab -nw |tee output.txt
>>
> does diary respond to your wish?
>> I'd appreciate your thoughts on this,
>> best,
>> Ricardo
>> -- 
>> Linux registered user #175401
>> www.lems.brown.edu/~rfabbri
>>


-- 
Adrien Vogt-Schilb (Cired)
Tel: (+33) 1 43 94 *73 77*
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111013/ba217425/attachment.htm>

From vogt at centre-cired.fr  Thu Oct 13 12:57:51 2011
From: vogt at centre-cired.fr (Adrien Vogt-Schilb)
Date: Thu, 13 Oct 2011 12:57:51 +0200
Subject: [scilab-Users] path
In-Reply-To: <CACjTMEx2Wrths-SFGFjpAMgTkwJHk1aspjqj2ROKbDuyyKEzAQ@mail.gmail.com>
References: <CACjTMEx2Wrths-SFGFjpAMgTkwJHk1aspjqj2ROKbDuyyKEzAQ@mail.gmail.com>
Message-ID: <4E96C42F.7010201@centre-cired.fr>

On 12/10/2011 20:09, Ricardo Fabbri wrote:
> Hello, all,
>
> - Is there anything like a search PATH setting? For instance, I would
> like to execute myscript.sce, but without specifying its full path. I
> would also like to load a function automatically if it is in the path,
> more or less matlab style.
>

hi ridacrdo

did you check the following scilab functions?
cd : changes current path
getd : loads functions quite automatically

and also:
get_absolute_file_path:    get the file pah of a current opened file


myself, i frequently start my sce files with:

modeldir = get_absolute_file_path("myfile.sce")
getd(modeldir)  //or getd(modeldir+filesep()+"lib") when i have a lot of 
functions, i put them in a subfolder named "lib"
cd(modeldir)


hope this helps


-- 
Adrien Vogt-Schilb (Cired)
Tel: (+33) 1 43 94 *73 77*
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111013/6fbb2ea3/attachment.htm>

From frederic.jourdin at shom.fr  Thu Oct 13 13:30:25 2011
From: frederic.jourdin at shom.fr (Frederic Jourdin)
Date: Thu, 13 Oct 2011 13:30:25 +0200
Subject: [scilab-Users] Re: Matplot with colorbar and negative values
In-Reply-To: <1318238840987-3409012.post@n3.nabble.com>
References: <1318182431737-3407767.post@n3.nabble.com> <4E91FF45.7020704@inria.fr> <1318238840987-3409012.post@n3.nabble.com>
Message-ID: <4E96CBD1.4060705@shom.fr>

Hi,
perhaps you would see the following bug report :
http://bugzilla.scilab.org/show_bug.cgi?id=4808
Fred


joschi wrote:
> Thanks for your post.
> Now i have the following problem. I can not change my colobarvalues
> (colorbar values from -5 to 5), because the values are not set to the colors
> of the colorbar.
> Try the example. You see that the colorscheme is diffent than they should be
> (regarding the values).
>
>
> z=[-1 7 5;2 4 -7;8 -6 12;5 9 3];
>  
> //Plot
> scf(); //Create a new grahic window
> ncol=10;
> xset("colormap",jetcolormap(ncol)); // Choose colormap (see the help of
> colormap)
> xtitle("Effect", "Variable", "Response");
> colorbar(-5,5,[1,ncol],fmt="%.2f"); // Draw a colorbar
> c=z-min(z);
> c=round((ncol-1)*c/max(c))+1;
> Matplot(c);
>
> --
> View this message in context: http://mailinglists.scilab.org/Matplot-with-colorbar-and-negative-values-tp3407767p3409012.html
> Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.
>   



From anton.garcia at aimen.es  Thu Oct 13 18:22:19 2011
From: anton.garcia at aimen.es (=?iso-8859-1?Q?AIMEN_-_Ant=F3n_Garc=EDa_D=EDaz?=)
Date: Thu, 13 Oct 2011 18:22:19 +0200
Subject: imshow one-image limit
In-Reply-To: <4E96CBD1.4060705@shom.fr>
Message-ID: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAJe17B2nrm0S+YxVo8b9YgMKAAAAQAAAAXV6B9EMnJEObIR7xaLw97wEAAAAA@aimen.es>

Hello,

When I use the function imshow in a script, I'm only able to show one image
at each time. If I call again the function, it overwrites the previous
image.

Do you know any way to show several images obtained in a given processing
script, in order to analyse the results at each step at the end of the
script?.

Thanks in advance,

Anton



------------------------------------------------ 
Este mensaje ha sido analizado por el SERVIDOR DE CORREO DE AIMEN
en busca de virus y otros contenidos peligrosos,
y se considera que est?? limpio.




From joerghiller at ymail.com  Thu Oct 13 20:47:01 2011
From: joerghiller at ymail.com (joschi)
Date: Thu, 13 Oct 2011 11:47:01 -0700 (PDT)
Subject: Write complex matrix to a file
Message-ID: <1318531621033-3419439.post@n3.nabble.com>

Hi Group,

i have timedata in a fiel. So i input the timedata-file and do a fft. Now i
have complex data.
How do i write them again in a file. I do not found any command that do
that.

Thanks for your help.

--
View this message in context: http://mailinglists.scilab.org/Write-complex-matrix-to-a-file-tp3419439p3419439.html
Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.


From joerghiller at ymail.com  Thu Oct 13 20:43:24 2011
From: joerghiller at ymail.com (joschi)
Date: Thu, 13 Oct 2011 11:43:24 -0700 (PDT)
Subject: Matplot with colorbar and negative values
In-Reply-To: <4E96CBD1.4060705@shom.fr>
References: <1318182431737-3407767.post@n3.nabble.com> <4E91FF45.7020704@inria.fr> <1318238840987-3409012.post@n3.nabble.com> <4E96CBD1.4060705@shom.fr>
Message-ID: <1318531404798-3419425.post@n3.nabble.com>

Thanks alot to u guys.

--
View this message in context: http://mailinglists.scilab.org/Matplot-with-colorbar-and-negative-values-tp3407767p3419425.html
Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.


From vogt at centre-cired.fr  Thu Oct 13 22:26:16 2011
From: vogt at centre-cired.fr (Adrien Vogt-Schilb)
Date: Thu, 13 Oct 2011 22:26:16 +0200
Subject: [scilab-Users] Write complex matrix to a file
In-Reply-To: <1318531621033-3419439.post@n3.nabble.com>
References: <1318531621033-3419439.post@n3.nabble.com>
Message-ID: <4E974968.7000107@centre-cired.fr>

Hi

try write_csv

On 13/10/2011 20:47, joschi wrote:
> Hi Group,
>
> i have timedata in a fiel. So i input the timedata-file and do a fft. Now i
> have complex data.
> How do i write them again in a file. I do not found any command that do
> that.
>
> Thanks for your help.
>
> --
> View this message in context: http://mailinglists.scilab.org/Write-complex-matrix-to-a-file-tp3419439p3419439.html
> Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.


-- 
Adrien Vogt-Schilb (Cired)
Tel: (+33) 1 43 94 *73 77*
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111013/519bed08/attachment.htm>

From sgougeon at free.fr  Fri Oct 14 00:42:21 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Fri, 14 Oct 2011 00:42:21 +0200
Subject: [scilab-Users] Write complex matrix to a file
In-Reply-To: <1318531621033-3419439.post@n3.nabble.com>
References: <1318531621033-3419439.post@n3.nabble.com>
Message-ID: <4E97694D.5040209@free.fr>

Le 13/10/2011 20:47, joschi a ?crit :
> Hi Group,
>
> i have timedata in a fiel. So i input the timedata-file and do a fft. Now i
> have complex data.
> How do i write them again in a file. I do not found any command that do
> that.
>
> Thanks for your help.
>    
Here is an example:

y = rand(1,10);
f = fft(y)
mputl(string(f),"fft.txt");
F = eval(mgetl("fft.txt"))

Tuning the number of digits output by string() (for each real and imag 
part)
is done through format().

Samuel


From sgougeon at free.fr  Fri Oct 14 00:47:10 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Fri, 14 Oct 2011 00:47:10 +0200
Subject: [scilab-Users] imshow one-image limit
In-Reply-To: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAJe17B2nrm0S+YxVo8b9YgMKAAAAQAAAAXV6B9EMnJEObIR7xaLw97wEAAAAA@aimen.es>
References: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAJe17B2nrm0S+YxVo8b9YgMKAAAAQAAAAXV6B9EMnJEObIR7xaLw97wEAAAAA@aimen.es>
Message-ID: <4E976A6E.7010904@free.fr>

Le 13/10/2011 18:22, AIMEN - Ant?n Garc?a D?az a ?crit :
> Hello,
>
> When I use the function imshow in a script, I'm only able to show one image
> at each time. If I call again the function, it overwrites the previous
> image.
>
> Do you know any way to show several images obtained in a given processing
> script, in order to analyse the results at each step at the end of the
> script?.
>    
You may have a look here: 
http://atoms.scilab.org/toolboxes/IPD/8.0#comment1394
and there: http://forge.scilab.org/index.php/p/IPD/issues/354/

You may adapt the pointer macro for SIVP according to the same 
philosophy(ies).

Samuel


From sgougeon at free.fr  Fri Oct 14 01:33:37 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Fri, 14 Oct 2011 01:33:37 +0200
Subject: [scilab-Users] Matplot with colorbar and negative values
In-Reply-To: <1318182431737-3407767.post@n3.nabble.com>
References: <1318182431737-3407767.post@n3.nabble.com>
Message-ID: <4E977551.1060105@free.fr>

Le 09/10/2011 19:47, joschi a ?crit :
> .../...
> z=[-1 7 5;2 4 -7;8 -6 12;5 9 3];
>
> //Plot
> clf
> ncol=10;
> xset("colormap",jetcolormap(ncol)); // Choose colormap (see the help of colormap)
> xtitle("Effect", "Variable", "Response");
> colorbar(-5,5,[1,ncol],fmt="%.2f"); // Draw a colorbar
> c=z-min(z);
> c=round((ncol-1)*c/max(c))+1;
> Matplot(c);
>
> .../...
>
> Last is how can i add more tics to the colorbar. By default i get 4 values
> shown at the solorbar, but i wanna have, for my example from 1 to 9 an entry
> at the colorbar 1 2 3 4 5 6 7 8 9.
>    
You may try and adapt the following example:

f = gcf();
cb = f.children(1);
cb.y_ticks=tlist(["ticks" "locations" "labels"],-5:5,string(-5:5));

Samuel


From Serge.Steer at inria.fr  Fri Oct 14 09:51:50 2011
From: Serge.Steer at inria.fr (Serge Steer)
Date: Fri, 14 Oct 2011 09:51:50 +0200
Subject: [scilab-Users] Write complex matrix to a file
In-Reply-To: <1318531621033-3419439.post@n3.nabble.com>
References: <1318531621033-3419439.post@n3.nabble.com>
Message-ID: <4E97EA16.1050303@inria.fr>

Le 13/10/2011 20:47, joschi a ?crit :
> Hi Group,
>
> i have timedata in a fiel. So i input the timedata-file and do a fft. Now i
> have complex data.
> How do i write them again in a file. I do not found any command that do
> that.
>
It depends what you want to do with your file

If you want to read it later into Scilab you can simply use the save and 
load functions (with perform binary write and read, without loss of accuracy

If you want to read it with an other software you can use formatted 
write. for example if y is the result of your fft

//C like write
y=y(:) //make y a column vector
u=mopen("myfile","wb")
mfprintf(u,"%e %e\n",real(y), imag(y))
mclose(u)


//Fortran like write
write("myfile",[real(y), imag(y)],"(E16.9,1x,E16.9)")


Both will create a file containing the data formatted in two columns in 
each row the data are separated with a space

Serge Steer
INRIA
> Thanks for your help.
>
> --
> View this message in context: http://mailinglists.scilab.org/Write-complex-matrix-to-a-file-tp3419439p3419439.html
> Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.
>



From anton.garcia at aimen.es  Fri Oct 14 09:56:13 2011
From: anton.garcia at aimen.es (=?iso-8859-1?Q?AIMEN_-_Ant=F3n_Garc=EDa_D=EDaz?=)
Date: Fri, 14 Oct 2011 09:56:13 +0200
Subject: [scilab-Users] imshow one-image limit
In-Reply-To: <4E976A6E.7010904@free.fr>
Message-ID: <201110140800.p9E80DVU019231@mail.aimen.es>

Thanks for the idea.

-----Mensaje original-----
De: Samuel Gougeon [mailto:sgougeon at free.fr] 
Enviado el: viernes, 14 de octubre de 2011 0:47
Para: users at lists.scilab.org
Asunto: [?? Probable Spam] Re: [scilab-Users] imshow one-image limit

Le 13/10/2011 18:22, AIMEN - Ant?n Garc?a D?az a ?crit :
> Hello,
>
> When I use the function imshow in a script, I'm only able to show one
image
> at each time. If I call again the function, it overwrites the previous
> image.
>
> Do you know any way to show several images obtained in a given processing
> script, in order to analyse the results at each step at the end of the
> script?.
>    
You may have a look here: 
http://atoms.scilab.org/toolboxes/IPD/8.0#comment1394
and there: http://forge.scilab.org/index.php/p/IPD/issues/354/

You may adapt the pointer macro for SIVP according to the same 
philosophy(ies).

Samuel

------------------------------------------------ 
Este mensaje ha sido analizado por el SERVIDOR DE CORREO DE AIMEN
en busca de virus y otros contenidos peligrosos,
y se considera que est?? limpio.


------------------------------------------------ 
Este mensaje ha sido analizado por el SERVIDOR DE CORREO DE AIMEN
en busca de virus y otros contenidos peligrosos,
y se considera que est?? limpio.




From denis.crete at thalesgroup.com  Fri Oct 14 10:33:15 2011
From: denis.crete at thalesgroup.com (CRETE Denis)
Date: Fri, 14 Oct 2011 10:33:15 +0200
Subject: [scilab-Users] Matrix transformations
In-Reply-To: <4E95D75C.5090301@free.fr>
References: <CAFZz7Xq4O6XgnKGN3g+Ef41L55KieNtwQHSMzqkjVG_P6W7yOA@mail.gmail.com>
 <4E95D75C.5090301@free.fr>
Message-ID: <19088_1318581198_4E97F3CE_19088_340_1_908CBC9017354841B2F32BBEC70A05A101C36B6CA4C1@THSONEA01CMS01P.one.grp>

Hello,
I do not agree with the approach given below, as the transform acts on the plane (RxR) to another plane, i.e. it acts from R? to R?. Hence, the transform, if linear, would be described by a 2x2 matrix (and not 4x4).
It is very plausible that the initial difficulty (finding a linear transform such as rotation o translation o scaling) comes from a distortion of the "picture" on which a "path" should be mapped (these terms are generic). So, the transform is not linear; it can be represented by the system:
X=g_x(x,y)
Y=g_y(x,y)
where x and y are given in the ma trix A and X,Y in B.
The function g_x and g_y can be expanded to the second order (for the simplest description of non-linearity)
X=a_x+b_x*x+c_x*y+d_x*x?+e_x*x*y+f_x*y?
Y=a_y+b_y*x+c_y*y+d_y*x?+e_y*x*y+f_y*y?
The 12 coefficients a_x, a_y, b_x, b_y... f_x and f_y are determined with the points contained in A and B. However, the number of points must be increased to 6 in order to get 12 equations (giving [X_1;Y_1;X_2;Y_2...X_6 ;Y_6] as a product of a 12x12 matrix C and the vector [a_x; a_y;b_x;...f_y]) which can be inverted to get the vector [a_x, a_y,b_x,...f_y] as a product of the 12x12 matrix inv(C) and the vector [X_1;Y_1;X_2;Y_2...X_6;Y_6].

But with usual optical distortion, it is likely that the second order terms are zero (when the origin is chosen at the center of the image) and the 3rd order terms should be considered. One can try the following
X=a_x + b_x*x + c_x*y + d_x*x*y^2
Y=a_y + b_y*x + c_y*y + d_y*x^2*y
with proper choice of the origin (center of the image). Only the matrix C needs to be changed (each pair of row is [1,x_i,y_i,x_i*y_i^2; 1,x_i,y_i,x_i^2*y_i] for i=1...4) , otherwise the procedure is the same as for the 2nd order case presented above. I have already used this kind of transform to correct image distortion. In this case, careful selection of the points is necessary: I fear that choosing the 4 corners of the image is not appropriate. Choosing the center, one corner and 2 "middle-side" points  of the image might give better results.

HTH
Denis

De : Samuel Gougeon [mailto:sgougeon at free.fr]
Envoy? : mercredi 12 octobre 2011 20:07
? : users at lists.scilab.org
Objet : Re: [scilab-Users] Matrix transformations

Hi,

If you assume that the transform is linear and can be described by
a matrix T such that  B = T*A, then you merely get T as
T = B / A
-->T = B/A
 T  =

    0.    0.           0.           0.
    0.    80113.778  - 80081.268    0.
    0.  - 11913.312    11955.211    0.
    0.    92027.09   - 92036.479    0.

then, checking that T*A gives B :
-->T*A
 ans  =
    0.           0.
    2131.        1534.
    2131.        1.455D-11
  - 9.313D-10    1534.

-->B
 B  =
    0.       0.
    2131.    1534.
    2131.    0.
    0.       1534.

// So, it's OK. T*A has some residues as big as ~10^-10 instead of 0, due to
// numerical approximations (finite number of digits in inputs and during
// the processing).

Then, if you wish to decompose T as a rotation o translation o scaling,
it is an additional piece of work.

HTH
Samuel

Le 12/10/2011 18:25, Capitao Obvio a ?crit :
Hi!

I'm starting to work with Scilab, and I'm trying to figure out how to work with matrices.

My goal is to find a way to convert any point from one system into another.

My (failed) approach so far was to estimate the necessary rotation, translation and scale; but it didn't work quite well, because the second map is slightly distorted (probably due perspective).

Being a bit more specific:

I have the following points:

A = [
[52.363965, 4.892435],
[52.384611, 4.898272],
[52.379267, 4.881105],
[52.369678, 4.911489],
]


They correspond to these points:

B = [
[0, 0],
[2131, 1534],
[2131, 0],
[0, 1534],
]

Do you have any suggestions on how to calculate tje transform from A to B?

Thanks in advance,

Cap.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111014/609bf8d1/attachment.htm>

From mathieu.dubois at limsi.fr  Fri Oct 14 12:56:09 2011
From: mathieu.dubois at limsi.fr (Mathieu Dubois)
Date: Fri, 14 Oct 2011 12:56:09 +0200
Subject: [scilab-Users] Scilab Inquiry
In-Reply-To: <1318412417.36924.YahooMailNeo@web76811.mail.sg1.yahoo.com>
References: <1318412417.36924.YahooMailNeo@web76811.mail.sg1.yahoo.com>
Message-ID: <4E981549.2060008@limsi.fr>

Hello,

On 10/12/2011 11:40 AM, Renante Mangumpit wrote:
> Sir:
>
> I would like to ask a couple of things about the Software:
>
> 1. Does it support GPU acceleration?
I think there was a project for that. Did you try to google "scilab GPU"?
> 2. Does it support distributed networking? (running the same task in 
> parallel computing to speed up the process.)
There is a PVM module in scilab (see help("PVM")) and new version 
include the parallel_run function for multicore processors.
>
> Your answer is highly appreciated.
>
> Thank you very much,
>
> Renante
>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111014/b4bcdf04/attachment.htm>

From greg7374 at hotmail.fr  Sat Oct 15 23:42:51 2011
From: greg7374 at hotmail.fr (greg)
Date: Sat, 15 Oct 2011 14:42:51 -0700 (PDT)
Subject: Continue .. Problem: Gcc compiler / Scilab 5.3.1 version - 64
 bits / MinGW / Scilab demonstrations
In-Reply-To: <262554.87178.qm@web45504.mail.sp1.yahoo.com>
References: <262554.87178.qm@web45504.mail.sp1.yahoo.com>
Message-ID: <1318714971237-3424826.post@n3.nabble.com>

Hi,

I have the same problem on Windows seven 64 with the same softwares

All of above libraries failed when I used Scilab 5.3.3 64 bits, and
gcc-4.5.2-64.exe and MinGW 0.8-1.
And this problem persists after removed directory SCIHOME/mingwlib_x64

Any solutions ?

--
View this message in context: http://mailinglists.scilab.org/Continue-Problem-Gcc-compiler-Scilab-5-3-1-version-64-bits-MinGW-Scilab-demonstrations-tp2892607p3424826.html
Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.


From behnam-s at live.com  Sun Oct 16 14:19:04 2011
From: behnam-s at live.com (Behnam Safavi)
Date: Sun, 16 Oct 2011 15:49:04 +0330
Subject: Mac Bug
Message-ID: <CALnYU5OebpKmUGh1D_ET0Y-vJEzOZKyOwYOxNP4TbtxcbJMFgQ@mail.gmail.com>

Hello,
I'm using msc os x 10.6 . when I start the scilab, it closes
immediately and nothing happens.
What should I do ?
Thanks,
Behnam Safavi


From joerghiller at ymail.com  Mon Oct 17 11:42:57 2011
From: joerghiller at ymail.com (joschi)
Date: Mon, 17 Oct 2011 02:42:57 -0700 (PDT)
Subject: Write complex matrix to a file
In-Reply-To: <4E97EA16.1050303@inria.fr>
References: <1318531621033-3419439.post@n3.nabble.com> <4E97EA16.1050303@inria.fr>
Message-ID: <1318844577115-3427745.post@n3.nabble.com>

Thanks alot to you guys.

--
View this message in context: http://mailinglists.scilab.org/Write-complex-matrix-to-a-file-tp3419439p3427745.html
Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.


From rfabbri at gmail.com  Mon Oct 17 19:47:07 2011
From: rfabbri at gmail.com (Ricardo Fabbri)
Date: Mon, 17 Oct 2011 15:47:07 -0200
Subject: scilab on Ubuntu 11.10
Message-ID: <CACjTMEzT2U-LGoJO7CL=z27CTyCRMAujVKB179h1u20sg6mkbQ@mail.gmail.com>

Hi,

does anybody here have a working scilab in ubuntu 11.10? Plotting
anything hangs scilab for me:
plot(1:10,1:10).

I reported this as bug #10106
 http://bugzilla.scilab.org/show_bug.cgi?id=10106

But I just wonder if other people using Ubuntu Oneiric encoutered the
same problem.
Ricardo
--
Linux registered user #175401
www.lems.brown.edu/~rfabbri


From ac17 at free.fr  Mon Oct 17 20:15:35 2011
From: ac17 at free.fr (ac17)
Date: Mon, 17 Oct 2011 20:15:35 +0200
Subject: [scilab-Users] scilab on Ubuntu 11.10
In-Reply-To: <CACjTMEzT2U-LGoJO7CL=z27CTyCRMAujVKB179h1u20sg6mkbQ@mail.gmail.com>
References: <CACjTMEzT2U-LGoJO7CL=z27CTyCRMAujVKB179h1u20sg6mkbQ@mail.gmail.com>
Message-ID: <4E9C70C7.8080400@free.fr>

Hello,

I have the same issue since the upgrade in 11.10 version...


On 17/10/2011 19:47, Ricardo Fabbri wrote:
> Hi,
>
> does anybody here have a working scilab in ubuntu 11.10? Plotting
> anything hangs scilab for me:
> plot(1:10,1:10).
>
> I reported this as bug #10106
>   http://bugzilla.scilab.org/show_bug.cgi?id=10106
>
> But I just wonder if other people using Ubuntu Oneiric encoutered the
> same problem.
> Ricardo
> --
> Linux registered user #175401
> www.lems.brown.edu/~rfabbri



From sgougeon at free.fr  Mon Oct 17 20:24:23 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Mon, 17 Oct 2011 20:24:23 +0200
Subject: [scilab-Users] Matrix transformations
In-Reply-To: <CAFZz7Xq4O6XgnKGN3g+Ef41L55KieNtwQHSMzqkjVG_P6W7yOA@mail.gmail.com>
References: <CAFZz7Xq4O6XgnKGN3g+Ef41L55KieNtwQHSMzqkjVG_P6W7yOA@mail.gmail.com>
Message-ID: <4E9C72D7.7050205@free.fr>

Yes Denis, i agree that A\B is meaningless, since the 4x4 result can be 
applied
to a set of four and only four points and that it has no geometrical 
meaning.

To stick with geometry, a rotation o translation o scaling  transform in 
2D is linear and affine
and then can be described as P2 = A.P1 + B
where A is a 2x2 constant matrix , B is a 2x1 constant column,
P1 is the column of coordinates of a given point
P2 is the column of coordinates of the transformed point
If one wants to transform a whole set of m points,
P1 & P2 should be 2xm matrices (each column is a point in P1 and its 
transformed in P2).

Then, A have 4 coefficients and B have 2 ; so 6 coefficients have to be 
determined.
To do that, exactly 3 independant points (=6 coeffs) and their transform 
give 6
equations and are needed and sufficient.

Now, Capitao Obvio is giving 4 points. With all of these, the problem is 
overdetermined (8 equations).
This leads to a linear* fitting* problem, that may be processed using 
*reglin()*:

Renaming his A => P1  and his B => P2, the best 2x2 A matrix and 2x1 B 
column
such that P2 = A.P1 + B -- according to a least square criterium -- are 
given by
[ A, B ] = reglin(P1,P2);
That gives:
P1 = [
52.363965, 4.892435 ;
52.384611, 4.898272 ;
52.379267, 4.881105 ;
52.369678, 4.911489
]
P2 = [
0, 0 ;
2131, 1534 ;
2131, 0 ;
0, 1534
]

-->[A, B] = reglin(P1.',P2.')

B  =
   - 5747613.8
   - 3211459.3
  A  =
     112982.37  - 34458.388
     55002.261    67714.214

-->A*P1.' + B*ones(P1(:,1).')  // Checking:
  ans  =

     5.5829359    2137.0833    2124.8527  - 5.5189172
   - 35.430415    1495.3941    39.012139    1569.0241

-->P2.'    // To be compared to the previous fit
  ans  =
     0.    2131.    2131.    0.
     0.    1534.    0.       1534.

-->// For an exact fit, only 3 points must be processed, for example the 
3 first ones:
-->P1 = P1(1:3,:), P2 = P2(1:3,:)
  P1  =
     52.363965    4.892435
     52.384611    4.898272
     52.379267    4.881105
  P2  =
     0.       0.
     2131.    1534.
     2131.    0.

-->[A, B] = reglin(P1(1:3,:).',P2.')
  B  =
   - 5754011.4
   - 3170858.6
  A  =
     113176.65  - 35231.318
     53769.285    72619.382

-->A*P1.' + B*ones(P1(:,1).')  // Checking:
  ans  =
     9.313D-10    2131.    2131.
     4.657D-10    1534.    4.657D-10

-->P2.'
  ans  =
     0.    2131.    2131.
     0.    1534.    0.

This might help more than A\B ;)
Regards

Samuel


Le 14/10/2011 10:33, CRETE Denis a ?crit :
>
> Hello,
>
> I do not agree with the approach given below, as the transform acts on 
> the plane (RxR) to another plane, i.e. it acts from R? to R?. Hence, 
> the transform, if linear, would be described by a 2x2 matrix (and not 
> 4x4).
>
> It is very plausible that the initial difficulty (finding a linear 
> transform such as rotation o translation o scaling) comes from a 
> distortion of the "picture" on which a "path" should be mapped (these 
> terms are generic). So, the transform is not linear; it can be 
> represented by the system:
>
> X=g_x(x,y)
>
> Y=g_y(x,y)
>
> where x and y are given in the ma trix A and X,Y in B.
>
> The function g_x and g_y can be expanded to the second order (for the 
> simplest description of non-linearity)
>
> X=a_x+b_x*x+c_x*y+d_x*x?+e_x*x*y+f_x*y?
>
> Y=a_y+b_y*x+c_y*y+d_y*x?+e_y*x*y+f_y*y?
>
> The 12 coefficients a_x, a_y, b_x, b_y... f_x and f_y are determined 
> with the points contained in A and B. However, the number of points 
> must be increased to 6 in order to get 12 equations (giving 
> [X_1;Y_1;X_2;Y_2...X_6 ;Y_6] as a product of a 12x12 matrix C and the 
> vector [a_x; a_y;b_x;...f_y]) which can be inverted to get the vector 
> [a_x, a_y,b_x,...f_y] as a product of the 12x12 matrix inv(C) and the 
> vector [X_1;Y_1;X_2;Y_2...X_6;Y_6].
>
> But with usual optical distortion, it is likely that the second order 
> terms are zero (when the origin is chosen at the center of the image) 
> and the 3rd order terms should be considered. One can try the following
>
> X=a_x + b_x*x + c_x*y + d_x*x*y^2
>
> Y=a_y + b_y*x + c_y*y + d_y*x^2*y
>
> with proper choice of the origin (center of the image). Only the 
> matrix C needs to be changed (each pair of row is 
> [1,x_i,y_i,x_i*y_i^2; 1,x_i,y_i,x_i^2*y_i] for i=1...4) , otherwise 
> the procedure is the same as for the 2nd order case presented above. I 
> have already used this kind of transform to correct image distortion. 
> In this case, careful selection of the points is necessary: I fear 
> that choosing the 4 corners of the image is not appropriate. Choosing 
> the center, one corner and 2 "middle-side" points  of the image might 
> give better results.
>
> HTH
>
> Denis
>

Le 12/10/2011 18:25, Capitao Obvio a ?crit :
> Hi!
>
> I'm starting to work with Scilab, and I'm trying to figure out how to 
> work with matrices.
>
> My goal is to find a way to convert any point from one system into 
> another.
>
> My (failed) approach so far was to estimate the necessary rotation, 
> translation and scale; but it didn't work quite well, because the 
> second map is slightly distorted (probably due perspective).
>
> Being a bit more specific:
>
> I have the following points:
>
> A = [
> [52.363965, 4.892435],
> [52.384611, 4.898272],
> [52.379267, 4.881105],
> [52.369678, 4.911489],
> ]
>
>
> They correspond to these points:
>
> B = [
> [0, 0],
> [2131, 1534],
> [2131, 0],
> [0, 1534],
> ]
>
> Do you have any suggestions on how to calculate tje transform from A to B?
>
> Thanks in advance,
>
> Cap.
>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111017/f757067c/attachment.htm>

From rfabbri at gmail.com  Mon Oct 17 21:15:11 2011
From: rfabbri at gmail.com (Ricardo Fabbri)
Date: Mon, 17 Oct 2011 17:15:11 -0200
Subject: [scilab-Users] scilab on Ubuntu 11.10
In-Reply-To: <4E9C70C7.8080400@free.fr>
References: <CACjTMEzT2U-LGoJO7CL=z27CTyCRMAujVKB179h1u20sg6mkbQ@mail.gmail.com>
 <4E9C70C7.8080400@free.fr>
Message-ID: <CACjTMEz1kR1Vgi7rgL5i8aYPjZGaRNG-sDx+nx==f2zW9g_H0g@mail.gmail.com>

Please vote this bug by clicking on "this bug also affects me" on the
top-left corner:


https://bugs.launchpad.net/ubuntu/+source/scilab/+bug/876195

Ricardo
--
Linux registered user #175401
www.lems.brown.edu/~rfabbri



On Mon, Oct 17, 2011 at 4:15 PM, ac17 <ac17 at free.fr> wrote:
> Hello,
>
> I have the same issue since the upgrade in 11.10 version...
>
>
> On 17/10/2011 19:47, Ricardo Fabbri wrote:
>>
>> Hi,
>>
>> does anybody here have a working scilab in ubuntu 11.10? Plotting
>> anything hangs scilab for me:
>> plot(1:10,1:10).
>>
>> I reported this as bug #10106
>> ?http://bugzilla.scilab.org/show_bug.cgi?id=10106
>>
>> But I just wonder if other people using Ubuntu Oneiric encoutered the
>> same problem.
>> Ricardo
>> --
>> Linux registered user #175401
>> www.lems.brown.edu/~rfabbri
>
>


From rfabbri at gmail.com  Tue Oct 18 01:39:13 2011
From: rfabbri at gmail.com (Ricardo Fabbri)
Date: Mon, 17 Oct 2011 21:39:13 -0200
Subject: [scilab-Users] scilab on Ubuntu 11.10
In-Reply-To: <CACjTMEz1kR1Vgi7rgL5i8aYPjZGaRNG-sDx+nx==f2zW9g_H0g@mail.gmail.com>
References: <CACjTMEzT2U-LGoJO7CL=z27CTyCRMAujVKB179h1u20sg6mkbQ@mail.gmail.com>
 <4E9C70C7.8080400@free.fr> <CACjTMEz1kR1Vgi7rgL5i8aYPjZGaRNG-sDx+nx==f2zW9g_H0g@mail.gmail.com>
Message-ID: <CACjTMExCxW9PU_9cVhnV4JH8VzihMqzsS861iZ9BKwCb0BLwzQ@mail.gmail.com>

There is a hint of a fix in the forum, related to libgl1-mesa -
everyone with this problem seems to have an cheap intel graphics card

http://www.equalis.com/forums/posts.asp?topic=321201&


Ricardo
--
Linux registered user #175401
www.lems.brown.edu/~rfabbri



On Mon, Oct 17, 2011 at 5:15 PM, Ricardo Fabbri <rfabbri at gmail.com> wrote:
> Please vote this bug by clicking on "this bug also affects me" on the
> top-left corner:
>
>
> https://bugs.launchpad.net/ubuntu/+source/scilab/+bug/876195
>
> Ricardo
> --
> Linux registered user #175401
> www.lems.brown.edu/~rfabbri
>
>
>
> On Mon, Oct 17, 2011 at 4:15 PM, ac17 <ac17 at free.fr> wrote:
>> Hello,
>>
>> I have the same issue since the upgrade in 11.10 version...
>>
>>
>> On 17/10/2011 19:47, Ricardo Fabbri wrote:
>>>
>>> Hi,
>>>
>>> does anybody here have a working scilab in ubuntu 11.10? Plotting
>>> anything hangs scilab for me:
>>> plot(1:10,1:10).
>>>
>>> I reported this as bug #10106
>>> ?http://bugzilla.scilab.org/show_bug.cgi?id=10106
>>>
>>> But I just wonder if other people using Ubuntu Oneiric encoutered the
>>> same problem.
>>> Ricardo
>>> --
>>> Linux registered user #175401
>>> www.lems.brown.edu/~rfabbri
>>
>>
>


From sylvestre.ledru at scilab.org  Mon Oct 17 22:10:30 2011
From: sylvestre.ledru at scilab.org (Sylvestre Ledru)
Date: Mon, 17 Oct 2011 22:10:30 +0200
Subject: [scilab-Users] scilab on Ubuntu 11.10
In-Reply-To: <CACjTMEz1kR1Vgi7rgL5i8aYPjZGaRNG-sDx+nx==f2zW9g_H0g@mail.gmail.com>
References: 	<CACjTMEzT2U-LGoJO7CL=z27CTyCRMAujVKB179h1u20sg6mkbQ@mail.gmail.com>
	 <4E9C70C7.8080400@free.fr>
	 <CACjTMEz1kR1Vgi7rgL5i8aYPjZGaRNG-sDx+nx==f2zW9g_H0g@mail.gmail.com>
Message-ID: <1318882230.25683.49.camel@pomegues.inria.fr>

FYI, we (the Scilab consortium) are maintaining the Debian/Ubuntu
packages. So, reporting a bug against launchpad or in the Scilab bug
tracker is basically the same thing.

About the 10106 bug itself, I would like to keep the discussion in the
bug report itself. Thanks.

Sylvestre

PS: Launchpad votes are usually not very useful.


 
Le lundi 17 octobre 2011 ? 17:15 -0200, Ricardo Fabbri a ?crit :
> Please vote this bug by clicking on "this bug also affects me" on the
> top-left corner:
> 
> 
> https://bugs.launchpad.net/ubuntu/+source/scilab/+bug/876195
> 
> Ricardo
> --
> Linux registered user #175401
> www.lems.brown.edu/~rfabbri
> 
> 
> 
> On Mon, Oct 17, 2011 at 4:15 PM, ac17 <ac17 at free.fr> wrote:
> > Hello,
> >
> > I have the same issue since the upgrade in 11.10 version...
> >
> >
> > On 17/10/2011 19:47, Ricardo Fabbri wrote:
> >>
> >> Hi,
> >>
> >> does anybody here have a working scilab in ubuntu 11.10? Plotting
> >> anything hangs scilab for me:
> >> plot(1:10,1:10).
> >>
> >> I reported this as bug #10106
> >>  http://bugzilla.scilab.org/show_bug.cgi?id=10106
> >>
> >> But I just wonder if other people using Ubuntu Oneiric encoutered the
> >> same problem.
> >> Ricardo
> >> --
> >> Linux registered user #175401
> >> www.lems.brown.edu/~rfabbri
> >
> >




From rfabbri at gmail.com  Tue Oct 18 12:59:21 2011
From: rfabbri at gmail.com (Ricardo Fabbri)
Date: Tue, 18 Oct 2011 08:59:21 -0200
Subject: scilab on Ubuntu 11.10
In-Reply-To: <1318882230.25683.49.camel@pomegues.inria.fr>
References: <CACjTMEzT2U-LGoJO7CL=z27CTyCRMAujVKB179h1u20sg6mkbQ@mail.gmail.com>
	<4E9C70C7.8080400@free.fr>
	<CACjTMEz1kR1Vgi7rgL5i8aYPjZGaRNG-sDx+nx==f2zW9g_H0g@mail.gmail.com>
	<1318882230.25683.49.camel@pomegues.inria.fr>
Message-ID: <CACjTMEyttU5ifCRi8yPnDECzKCVo3SUizYyqVah+RD_6-+-ysg@mail.gmail.com>

Good to know, thanks.

I was also trying to get the greatest number of users informed, not just the
maintainers.
Each place allows for a type of discussion.

Anyways, I agree, from now on let's try to stay on the bug report.

On Monday, October 17, 2011, Sylvestre Ledru <sylvestre.ledru at scilab.org>
wrote:
> FYI, we (the Scilab consortium) are maintaining the Debian/Ubuntu
> packages. So, reporting a bug against launchpad or in the Scilab bug
> tracker is basically the same thing.
>
> About the 10106 bug itself, I would like to keep the discussion in the
> bug report itself. Thanks.
>
> Sylvestre
>
> PS: Launchpad votes are usually not very useful.
>
>
>
> Le lundi 17 octobre 2011 ? 17:15 -0200, Ricardo Fabbri a ?crit :
>> Please vote this bug by clicking on "this bug also affects me" on the
>> top-left corner:
>>
>>
>> https://bugs.launchpad.net/ubuntu/+source/scilab/+bug/876195
>>
>> Ricardo
>> --
>> Linux registered user #175401
>> www.lems.brown.edu/~rfabbri
>>
>>
>>
>> On Mon, Oct 17, 2011 at 4:15 PM, ac17 <ac17 at free.fr> wrote:
>> > Hello,
>> >
>> > I have the same issue since the upgrade in 11.10 version...
>> >
>> >
>> > On 17/10/2011 19:47, Ricardo Fabbri wrote:
>> >>
>> >> Hi,
>> >>
>> >> does anybody here have a working scilab in ubuntu 11.10? Plotting
>> >> anything hangs scilab for me:
>> >> plot(1:10,1:10).
>> >>
>> >> I reported this as bug #10106
>> >>  http://bugzilla.scilab.org/show_bug.cgi?id=10106
>> >>
>> >> But I just wonder if other people using Ubuntu Oneiric encoutered the
>> >> same problem.
>> >> Ricardo
>> >> --
>> >> Linux registered user #175401
>> >> www.lems.brown.edu/~rfabbri
>> >
>> >
>
>
>

-- 

Ricardo
--
Linux registered user #175401
www.lems.brown.edu/~rfabbri
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111018/8645d939/attachment.htm>

From grivet at cnrs-orleans.fr  Tue Oct 18 17:21:24 2011
From: grivet at cnrs-orleans.fr (grivet)
Date: Tue, 18 Oct 2011 17:21:24 +0200
Subject: 2D fft
In-Reply-To: <4E9C72D7.7050205@free.fr>
References: <CAFZz7Xq4O6XgnKGN3g+Ef41L55KieNtwQHSMzqkjVG_P6W7yOA@mail.gmail.com> <4E9C72D7.7050205@free.fr>
Message-ID: <4E9D9974.8070403@cnrs-orleans.fr>

Hello,

I have run into a problem using fft for nxn matrices. Here is a simple 
example:

x = linspace(0,10,512);
y = exp(-x/2).*cos(5*%pi*x);
m = y.*.y';
n = fft(m);
nr = real(n)

When I plot any line or column of n, I get a nice damped sinusoid; in 
other words, fft returned the original data.
The same happens if I do n = fft2(m).
Some bugs were reported for Scilab 5.1 and 5.2, but not for 5.3.2, which 
I use under WinXP.

Thanks for any suggestion or workaround,
JP Grivet



From sgougeon at free.fr  Tue Oct 18 20:01:09 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Tue, 18 Oct 2011 20:01:09 +0200
Subject: [scilab-Users] 2D fft
In-Reply-To: <4E9D9974.8070403@cnrs-orleans.fr>
References: <CAFZz7Xq4O6XgnKGN3g+Ef41L55KieNtwQHSMzqkjVG_P6W7yOA@mail.gmail.com> <4E9C72D7.7050205@free.fr> <4E9D9974.8070403@cnrs-orleans.fr>
Message-ID: <4E9DBEE4.9070402@free.fr>

Hello,

fft bugs http://bugzilla.scilab.org/show_bug.cgi?id=7895
http://bugzilla.scilab.org/show_bug.cgi?id=9266
have been fixed on 2011-05-26 but for Scilab 5.4, as
for 95% of fixes and improvements made since the release of 5.3.2
mid-may.
So, everyone have either to wait for the 5.4 official release, or to use
the workaround given in the bugzilla threads, or to install a nightly built
release.

Regards
Samuel

PS: For a proper threading of messages, it would be nice to open a new
thread rather than renaming the topic of a rely. Thanks.


Le 18/10/2011 17:21, grivet a ?crit :
> Hello,
>
> I have run into a problem using fft for nxn matrices. Here is a simple 
> example:
>
> x = linspace(0,10,512);
> y = exp(-x/2).*cos(5*%pi*x);
> m = y.*.y';
> n = fft(m);
> nr = real(n)
>
> When I plot any line or column of n, I get a nice damped sinusoid; in 
> other words, fft returned the original data.
> The same happens if I do n = fft2(m).
> Some bugs were reported for Scilab 5.1 and 5.2, but not for 5.3.2, 
> which I use under WinXP.
>
> Thanks for any suggestion or workaround,
> JP Grivet
>
>


From flora-joseph at sc.edu  Thu Oct 20 03:31:30 2011
From: flora-joseph at sc.edu (jvf)
Date: Wed, 19 Oct 2011 18:31:30 -0700 (PDT)
Subject: scilab and condor
Message-ID: <1319074290990-3436434.post@n3.nabble.com>

Hello,

Condor and Scilab are installed in our College computers (windows 7). I have
been trying to run *.sce files over condor. I have tried with the following
command:

C:\HPC\scilab-5.3.3\bin\scilex.exe -nb -nousersstartup -nw -nwni -nogui -f
%CD%\myfile.sce

Scilab launches but does not exit, so condor does not return the results. If
I run the job on my local computer, I need to physically type in "quit" in
the dos window for scilab to exit. Putting in "exit" or "quit" in the last
line of my *.sce file does not terminate Scilab in the dos window.

I'd appreciate any help. Thanks.

Joe

--
View this message in context: http://mailinglists.scilab.org/scilab-and-condor-tp3436434p3436434.html
Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.


From allan.cornet at scilab.org  Thu Oct 20 08:55:27 2011
From: allan.cornet at scilab.org (Allan CORNET)
Date: Thu, 20 Oct 2011 08:55:27 +0200
Subject: [scilab-Users] scilab and condor
In-Reply-To: <1319074290990-3436434.post@n3.nabble.com>
References: <1319074290990-3436434.post@n3.nabble.com>
Message-ID: <005601cc8ef5$3fa32550$bee96ff0$@scilab.org>


Try:

C:\HPC\scilab-5.3.3\bin\scilex.exe -nb -nousersstartup -nwni  -e
"exec('%CD%\myfile.sce');quit"

Allan

-----Message d'origine-----
De?: jvf [mailto:flora-joseph at sc.edu] 
Envoy??: jeudi 20 octobre 2011 03:32
??: users at lists.scilab.org
Objet?: [scilab-Users] scilab and condor

Hello,

Condor and Scilab are installed in our College computers (windows 7). I have
been trying to run *.sce files over condor. I have tried with the following
command:

C:\HPC\scilab-5.3.3\bin\scilex.exe -nb -nousersstartup -nw -nwni -nogui -f
%CD%\myfile.sce

Scilab launches but does not exit, so condor does not return the results. If
I run the job on my local computer, I need to physically type in "quit" in
the dos window for scilab to exit. Putting in "exit" or "quit" in the last
line of my *.sce file does not terminate Scilab in the dos window.

I'd appreciate any help. Thanks.

Joe

--
View this message in context:
http://mailinglists.scilab.org/scilab-and-condor-tp3436434p3436434.html
Sent from the Scilab users - Mailing Lists Archives mailing list archive at
Nabble.com.



From sdr at durietz.se  Thu Oct 20 11:06:28 2011
From: sdr at durietz.se (Stefan Du Rietz)
Date: Thu, 20 Oct 2011 11:06:28 +0200
Subject: user_data
Message-ID: <4E9FE494.3030003@durietz.se>

In ScicosLab 4.4.1 (Win XP) I can set user_data in a graphics handle 
to list but not mlist, tlist, or struct. Is that right, and if so, why?

Regards
Stefan


From sylvestre.ledru at scilab.org  Thu Oct 20 11:08:34 2011
From: sylvestre.ledru at scilab.org (Sylvestre Ledru)
Date: Thu, 20 Oct 2011 11:08:34 +0200
Subject: [scilab-Users] user_data
In-Reply-To: <4E9FE494.3030003@durietz.se>
References: <4E9FE494.3030003@durietz.se>
Message-ID: <1319101714.17786.23.camel@pomegues.inria.fr>

Le jeudi 20 octobre 2011 ? 11:06 +0200, Stefan Du Rietz a ?crit :
> In ScicosLab 4.4.1 (Win XP) I can set user_data in a graphics handle 
> to list but not mlist, tlist, or struct. Is that right, and if so, why?
This is a Scilab mailing list. Not Scicoslab.
Please contact the scicoslab community.

Regards,
Sylvestre




From R.MARIGO at arpalombardia.it  Thu Oct 20 12:41:52 2011
From: R.MARIGO at arpalombardia.it (MARIGO RAFFAELLA)
Date: Thu, 20 Oct 2011 10:41:52 +0000
Subject: information request about histnorm function
Message-ID: <D627A569B23E0B4C870FB8311C89085A4511933E@ARPA-EXCHBE02.arpa.local>

Hi
I'm Raffaella from Italy, please may I have some information about histnorm and normplot functions:
I need to calculate the log-normal probability distribution so I wrote this command:

y=grand(1,200,'nor',5,0.37); //generate the normal data N(5,0.37)
x=exp(y);                  //generate the log-normal data by using exp
xmin=min(x),xmax=max(x)    //determine min and max values
xmean=mean(x)              //determine mean value
xclass=[25:25:500];
histnorm(x,xclass);    //histogram
normplot(x);               //normal probability plot

but the SCILAB answer is (I highlighted in red the problem):

-->y=grand(1,200,'nor',5,0.37); //generate the normal data N(5,0.37)
-->x=exp(y);                  //generate the log-normal data by using exp
-->xmin=min(x),xmax=max(x)    //determine min and max values
 xmin  =
     43.597751
 xmax  =
     490.5407
-->xmean=mean(x)              //determine mean value
 xmean  =
     152.80157
-->xclass=[25:25:500];
-->histnorm(x,xclass);    //histogram
histnorm(x,xclass);    //histogram

   !--error 4
There is an undefined variable: histnorm

at line       6 of exec file called by :
exec('C:\Documents and Settings\RMARIGO\Impostazioni locali\Temp\SCI_TMP_2844_\LOAD_INTO_SCILAB-4369136397675464473.sce', 1)
while executing a callback

Could you help me?
Thanks a lot

Raffaella Marigo
____________________________________________________

Raffaella Marigo
Direzione Generale - U.O. Sviluppo Modellistica Ambientale

ARPA Lombardia - v.le Restelli 3/1, 20124 MILANO
Tel. +39 02 69 666 298
Fax +39 02 69 666 259
e_mail: r.marigo at arpalombardia.it<mailto:r.marigo at arpalombardia.it>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111020/f05687eb/attachment.htm>

From vogt at centre-cired.fr  Thu Oct 20 14:10:57 2011
From: vogt at centre-cired.fr (Adrien Vogt-Schilb)
Date: Thu, 20 Oct 2011 14:10:57 +0200
Subject: [scilab-Users] information request about histnorm function
In-Reply-To: <D627A569B23E0B4C870FB8311C89085A4511933E@ARPA-EXCHBE02.arpa.local>
References: <D627A569B23E0B4C870FB8311C89085A4511933E@ARPA-EXCHBE02.arpa.local>
Message-ID: <4EA00FD1.8060005@centre-cired.fr>

hi

did you try to use histplot instead?

*histplot*(20,x)

(note that 20 is the numbers of classes in 25:25:500)

or

histplot(xclass,x)

On 20/10/2011 12:41, MARIGO RAFFAELLA wrote:
>
> Hi
>
> I'm Raffaella from Italy, please may I have some information about 
> *histnorm* and *normplot* functions:
>
> I need to calculate the log-normal probability distribution so I wrote 
> this command:
>
> y=grand(1,200,'nor',5,0.37); //generate the normal data N(5,0.37)
>
> x=exp(y);                  //generate the log-normal data by using exp
>
> xmin=min(x),xmax=max(x)    //determine min and max values
>
> xmean=mean(x)              //determine mean value
>
> xclass=[25:25:500];
>
> histnorm(x,xclass);    //histogram
>
> normplot(x);               //normal probability plot
>
> but the SCILAB answer is (I highlighted in red the problem):
>
> -->y=grand(1,200,'nor',5,0.37); //generate the normal data N(5,0.37)
>
> -->x=exp(y);                  //generate the log-normal data by using exp
>
> -->xmin=min(x),xmax=max(x)    //determine min and max values
>
>  xmin  =
>
>      43.597751
>
>  xmax  =
>
>      490.5407
>
> -->xmean=mean(x)              //determine mean value
>
>  xmean  =
>
>      152.80157
>
> -->xclass=[25:25:500];
>
> -->*histnorm*(x,xclass);    //histogram
>
> *histnorm*(x,xclass);    //histogram
>
> **
>
> *   !--error 4 *
>
> *There is an undefined variable: histnorm*
>
> **
>
> *at line       6 of exec file called by : *
>
> *exec('C:\Documents and Settings\RMARIGO\Impostazioni 
> locali\Temp\SCI_TMP_2844_\LOAD_INTO_SCILAB-4369136397675464473.sce', 1)*
>
> *while executing a callback*
>
> **
>
> Could you help me?
>
> Thanks a lot
>
> Raffaella Marigo
>
> ____________________________________________________
>
> **Raffaella Marigo**
>
> **/Direzione Generale - U.O. Sviluppo Modellistica Ambientale/**
>
> **ARPA Lombardia**/*//*/-////v.le Restelli 3/1, 20124 MILANO
>
> Tel. +39 02 69 666 298
>
> Fax +39 02 69 666 259
>
> e_mail: r.marigo at arpalombardia.it <mailto:r.marigo at arpalombardia.it>
>


-- 
Adrien Vogt-Schilb (Cired)
Tel: (+33) 1 43 94 *73 77*
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111020/9e124a8d/attachment.htm>

From rouxph.22 at gmail.com  Thu Oct 20 14:18:56 2011
From: rouxph.22 at gmail.com (philippe)
Date: Thu, 20 Oct 2011 14:18:56 +0200
Subject: information request about histnorm function
In-Reply-To: <D627A569B23E0B4C870FB8311C89085A4511933E@ARPA-EXCHBE02.arpa.local>
References: <D627A569B23E0B4C870FB8311C89085A4511933E@ARPA-EXCHBE02.arpa.local>
Message-ID: <j7p3gr$fsb$1@dough.gmane.org>

Hi,

Le 20/10/2011 12:41, MARIGO RAFFAELLA a ?crit :
> Hi
> 
> I?m Raffaella from Italy, please may I have some information about
> *histnorm* and *normplot* functions:
> [...]
> 
> histnorm(x,xclass);    //histogram

you should use histplot(xclass,x)

> 
> normplot(x);               //normal probability plot
> 


perhaps using stix toolbox :

http://forge.scilab.org/index.php/p/stixbox/

Philippe.



From Brian_Hult at cabot-corp.com  Thu Oct 20 14:41:55 2011
From: Brian_Hult at cabot-corp.com (Brian_Hult at cabot-corp.com)
Date: Thu, 20 Oct 2011 08:41:55 -0400
Subject: [scilab-Users] information request about histnorm function
Message-ID: <OF8525792F.0045C144-ON8525792F.0045C144-8525792F.0045C149@cabot-corp.com>

Return Receipt
                                                                           
   Your       [scilab-Users] information request about histnorm function   
   document:                                                               
                                                                           
   was        Brian Hult/Billerica/Cabot                                   
   received                                                                
   by:                                                                     
                                                                           
   at:        10/20/2011 08:41:54 AM                                       
                                                                           






From grivet at cnrs-orleans.fr  Thu Oct 20 15:50:47 2011
From: grivet at cnrs-orleans.fr (grivet)
Date: Thu, 20 Oct 2011 15:50:47 +0200
Subject: [scilab-Users] 2D fft
In-Reply-To: <4E9DBEE4.9070402@free.fr>
References: <CAFZz7Xq4O6XgnKGN3g+Ef41L55KieNtwQHSMzqkjVG_P6W7yOA@mail.gmail.com> <4E9C72D7.7050205@free.fr> <4E9D9974.8070403@cnrs-orleans.fr> <4E9DBEE4.9070402@free.fr>
Message-ID: <4EA02737.4090309@cnrs-orleans.fr>

Le 18/10/2011 20:01, Samuel Gougeon a ?crit :
> Hello,
>
> fft bugs http://bugzilla.scilab.org/show_bug.cgi?id=7895
> http://bugzilla.scilab.org/show_bug.cgi?id=9266
> have been fixed on 2011-05-26 but for Scilab 5.4, as
> for 95% of fixes and improvements made since the release of 5.3.2
> mid-may.
> So, everyone have either to wait for the 5.4 official release, or to use
> the workaround given in the bugzilla threads, or to install a nightly 
> built
> release.
Indeed, mfft(sig,-1,size(sig)) works like a charm.
A further question: I need to compute cosine transforms; is this 
possible within Scilab, or using fftw ? How ?
TIA
JP Grivet




From Serge.Steer at inria.fr  Thu Oct 20 16:04:04 2011
From: Serge.Steer at inria.fr (Serge Steer)
Date: Thu, 20 Oct 2011 16:04:04 +0200
Subject: [scilab-Users] user_data
In-Reply-To: <4E9FE494.3030003@durietz.se>
References: <4E9FE494.3030003@durietz.se>
Message-ID: <4EA02A54.1090300@inria.fr>

Le 20/10/2011 11:06, Stefan Du Rietz a ?crit :
> In ScicosLab 4.4.1 (Win XP) I can set user_data in a graphics handle 
> to list but not mlist, tlist, or struct. Is that right, and if so, why?
>
> Regards
> Stefan
>
In Scicoslab and in Scilab it is possible to assign any object type into 
a user_data fiels using the set function

set(handle,"user_data",tlist("t",1,2,3))


If one want to be able to assign the user_data field using the dot 
notation like handle.user_data=tlist("t",1,2,3) he has to define the 
corresponding overloading function %t_i_h  (as reported in the error 
message). This can be done easily by

%t_i_h=generic_i_h;


For struct  the overloading function can be defined by 
%st_i_h=generic_i_h; and for cells by %ce_i_h=generic_i_h; Note that 
these two overloading function are already defined in Scilab.

Serge Steer
INRIA



From sdr at durietz.se  Thu Oct 20 16:23:24 2011
From: sdr at durietz.se (Stefan Du Rietz)
Date: Thu, 20 Oct 2011 16:23:24 +0200
Subject: [scilab-Users] user_data
In-Reply-To: <4EA02A54.1090300@inria.fr>
References: <4E9FE494.3030003@durietz.se> <4EA02A54.1090300@inria.fr>
Message-ID: <4EA02EDC.3060503@durietz.se>

On 2011-10-20 16:04, Serge Steer wrote:
--------------------
> Le 20/10/2011 11:06, Stefan Du Rietz a ?crit :
>> In ScicosLab 4.4.1 (Win XP) I can set user_data in a graphics handle
>> to list but not mlist, tlist, or struct. Is that right, and if so, why?
>>
>> Regards
>> Stefan
>>
> In Scicoslab and in Scilab it is possible to assign any object type
> into a user_data fiels using the set function
>
> set(handle,"user_data",tlist("t",1,2,3))
>
>
> If one want to be able to assign the user_data field using the dot
> notation like handle.user_data=tlist("t",1,2,3) he has to define the
> corresponding overloading function %t_i_h (as reported in the error
> message). This can be done easily by
>
> %t_i_h=generic_i_h;
>
>
> For struct the overloading function can be defined by
> %st_i_h=generic_i_h; and for cells by %ce_i_h=generic_i_h; Note that
> these two overloading function are already defined in Scilab.
>
> Serge Steer
> INRIA
>
Many thanks!

/Stefan




From flora-joseph at sc.edu  Thu Oct 20 22:04:17 2011
From: flora-joseph at sc.edu (jvf)
Date: Thu, 20 Oct 2011 13:04:17 -0700 (PDT)
Subject: scilab and condor
In-Reply-To: <005601cc8ef5$3fa32550$bee96ff0$@scilab.org>
References: <1319074290990-3436434.post@n3.nabble.com> <005601cc8ef5$3fa32550$bee96ff0$@scilab.org>
Message-ID: <1319141057956-3438844.post@n3.nabble.com>

Thanks Allan. Adding a "-1" to your commands suppresses output and works
well.

C:\HPC\scilab-5.3.3\bin\scilex.exe -nb -nouserstartup -nwni  -e 
"exec('%CD%\myfile.sce',-1);quit" 

I have a new problem though. I thought Scilab was launching under condor but
it is not. The programs run fine locally on the target machines but fail
when submitted via condor. I could trace the error to a condor log file that
says:
     Error: Impossible to define SCIHOME environment variable.

When I type in SCIHOME in scilex, it gives
c:\docume~1\myname\applic~1\Scilab\Scilab-5.3.3. When I look in the condor
manual, they say that jobs submitted are under myname. I have administrative
level rights on the submitting and target machines. My colleagues and I
successfully run jobs that access other installed programs via condor. I'm
not sure if this is a condor or scilab or communication issue.

I'd appreaciate any help. Thanks.

Joe

--
View this message in context: http://mailinglists.scilab.org/scilab-and-condor-tp3436434p3438844.html
Sent from the Scilab users - Mailing Lists Archives mailing list archive at Nabble.com.


From iai at axelspace.com  Sun Oct 23 02:00:26 2011
From: iai at axelspace.com (Iai Masafumi ax)
Date: Sun, 23 Oct 2011 09:00:26 +0900
Subject: suggestion about evans
In-Reply-To: <1319141057956-3438844.post@n3.nabble.com>
References: <1319074290990-3436434.post@n3.nabble.com> <005601cc8ef5$3fa32550$bee96ff0$@scilab.org> <1319141057956-3438844.post@n3.nabble.com>
Message-ID: <4EA3591A.1060901@axelspace.com>

I suggest to review the code of "evans" function to see if setting 
"clip_state" off is useful to users.

What I wanted is to generate a figure like fig_clip_state_is_clipgrf.png 
as attached. However with the current "evans" function, I only got a 
figure like fig_clip_state_is_off.png, in which some lines are drawn 
outside the plot area. This is because "clip_state" is set off. Changing 
the value of "clip_state" of the current axes before or after calling 
"evans" function did not affect the result. I was successful when I 
commented out a line:
axes.clip_state = "off";
in evans.sci. This should be good unless other side effects occur.
So I think it needs re-consideration which value "clip_state" should be 
set to.

The code below should generate the same figures as attachments. My 
"evans_clip" function is identical to Scilab's evans function except 
that a line [axes.clip_state = "off"] is commented out.

Iai

////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////
function evans_clip(n,d,kmax)
// Seuil maxi et mini (relatifs) de discretisation en espace
// Copyright INRIA

   smax=0.002;smin=smax/3;
   nptmax=2000 //nbre maxi de pt de discretisation en k

   //Check calling sequence

   [lhs,rhs]=argn(0)

   if rhs <= 0 then   // demonstration
     n=real(poly([0.1-%i 0.1+%i,-10],"s"));
     d=real(poly([-1 -2 -%i %i],"s"));
     evans(n,d,80);
     return
   end

   select typeof(n)
   case "polynomial"  then
     if rhs==2 then kmax=0,end
   case "rational" then
     if rhs==2 then kmax=d,else kmax=0,end
     [n,d]=n(2:3)
   case "state-space" then
     if rhs==2 then kmax=d,else kmax=0,end
     n=ss2tf(n);
     [n,d]=n(2:3);n=clean(n);d=clean(d);
   else
     error(msprintf(_("%s: Wrong type for input argument #%d: A linear 
dynamical system or a polynomial expected.\n"),"evans",1));
   end
   if prod(size(n))<>1 then
     error(msprintf(_("%s: Wrong value for input argument #%d: Single 
input, single output system expected.\n"),"evans",1));
   end
   if degree(n)==0&degree(d)==0 then
     error(msprintf(_("%s: The given system has no poles and no 
zeros.\n"),"evans"));
   end

   if kmax<=0 then
     nm=min([degree(n),degree(d)])
     fact=norm(coeff(d),2)/norm(coeff(n),2)
     kmax=round(500*fact),
   end
   //
   //Compute the discretization for "k" and the associated roots
   nroots=roots(n);racines=roots(d);
   if nroots==[] then
     nrm=max([norm(racines,1),norm(roots(d+kmax*n),1)])
   else
     nrm=max([norm(racines,1),norm(nroots,1),norm(roots(d+kmax*n),1)])
   end
   md=degree(d)
   //
   ord=1:md;kk=0;nr=1;k=0;pas=0.99;fin="no";
   klim=gsort(krac2(rlist(n,d,"c")),"g","i")
   ilim=1
   while fin=="no" then
     k=k+pas
     r=roots(d+k*n);r=r(ord)
     dist=max(abs(racines(:,nr)-r))/nrm
     //
     point=%f

     if dist <smax then //pas correct
       if k-pas<klim(ilim)& k>klim(ilim) then,
         k=klim(ilim);
         r=roots(d+k*n);r=r(ord)
       end
       if k>klim(ilim) then ilim=min(ilim+1,size(klim,"*"));end
       point=%t
     else //Too big step or incorrect root order
       // look for a root order that minimize the distance
       ix=1:md
       ord1=[]
       for ky=1:md
         yy=r(ky)
         mn=10*dist*nrm
         for kx=1:md
           if ix(kx)>0 then
             if  abs(yy-racines(kx,nr)) < mn then
               mn=abs(yy-racines(kx,nr))
               kmn=kx
             end
           end
         end
         ix(kmn)=0
         ord1=[ord1 kmn]
       end
       r(ord1)=r
       dist=max(abs(racines(:,nr)-r))/nrm
       if dist <smax then
         point=%t,
         ord(ord1)=ord
       else
         k=k-pas,pas=pas/2.5
       end
     end
     if dist<smin then
       //KToo small step
       pas=2*pas;
     end
     if point then
       racines=[racines,r];kk=[kk,k];nr=nr+1
       if k>kmax then fin="kmax",end
       if nr>nptmax then fin="nptmax",end
     end
   end
   //draw the axis
   x1 =[nroots;matrix(racines,md*nr,1)];
   xmin=min(real(x1));xmax=max(real(x1))
   ymin=min(imag(x1));ymax=max(imag(x1))
   dx=abs(xmax-xmin)*0.05
   dy=abs(ymax-ymin)*0.05
   if dx<1d-10, dx=0.01,end
   if dy<1d-10, dy=0.01,end
   legs=[],lstyle=[];lhandle=[]
   rect=[xmin-dx;ymin-dy;xmax+dx;ymax+dy];
   f=gcf();
   immediate_drawing= f.immediate_drawing;
   f.immediate_drawing = "off";
   a=gca();
   if a.children==[]
     a.data_bounds=[rect(1) rect(2);rect(3) rect(4)];
     a.axes_visible="on";
     a.title.text=_("Evans root locus");
     a.x_label.text=_("Real axis");
     a.y_label.text=_("Imaginary axis");
   else //enlarge the boundaries
     a.data_bounds=[min(a.data_bounds(1,:),[rect(1) rect(2)]);
                    max(a.data_bounds(2,:),[rect(3) rect(4)])];
   end
   if nroots<>[] then
     xpoly(real(nroots),imag(nroots))
     e=gce();e.line_mode="off";e.mark_mode="on";
     e.mark_size_unit="point";e.mark_size=7;e.mark_style=5;
     legs=[legs; _("open loop zeroes")]
     lhandle=[lhandle; e];
   end
   if racines<>[] then
     xpoly(real(racines(:,1)),imag(racines(:,1)))
     e=gce();e.line_mode="off";e.mark_mode="on";
     e.mark_size_unit="point";e.mark_size=7;e.mark_style=2;
     legs=[legs;_("open loop poles")]
     lhandle=[lhandle; e];
   end

   dx=max(abs(xmax-xmin),abs(ymax-ymin));
   //plot the zeros locations


   //computes and draw the asymptotic lines
   m=degree(n);q=md-m
   if q>0 then
     la=0:q-1;
     so=(sum(racines(:,1))-sum(nroots))/q
     i1=real(so);i2=imag(so);
     if prod(size(la))<>1 then
       ang1=%pi/q*(ones(la)+2*la)
       x1=dx*cos(ang1),y1=dx*sin(ang1)
     else
       x1=0,y1=0,
     end
     if md==2,
       if coeff(d,md)<0 then
         x1=0*ones(2),y1=0*ones(2)
       end,
     end;
     if max(k)>0 then
       xpoly(i1,i2);
       e=gce();
       legs=[legs;_("asymptotic directions")]
       lhandle=[lhandle; e];
       axes = gca();
       axes.clip_state = "clipgrf";
       for i=1:q,xsegs([i1,x1(i)+i1],[i2,y1(i)+i2]),end,

       //axes.clip_state = "off"; // !! OMITTED !! //
     end
   end;


   [n1,n2]=size(racines);

   // assign the colors for each root locus
   cmap=f.color_map;cols=1:size(cmap,1);
   if a.background==-2 then
     cols(and(cmap==1,2))=[]; //remove white
   elseif a.background==-1 then
     cols(and(cmap==0,2))=[]; //remove black
   else
     cols(a.background)=[];
   end
   cols=cols(modulo(0:n1-1,size(cols,"*"))+1);

   //draw the root locus
   xpolys(real(racines)',imag(racines)',cols)

   //set info for datatips
   E=gce();

   for k=1:size(E.children,"*")
 
datatipInitStruct(E.children(k),"formatfunction","formatEvansTip","K",kk)
   end
   c=captions(lhandle,legs($:-1:1),"in_upper_right")
   c.background=a.background;

   f.immediate_drawing = immediate_drawing;

   if fin=="nptmax" then
     warning(msprintf(gettext("%s: Curve truncated to the first %d 
discretization points.\n"),"evans",nptmax))
   end
endfunction
function str=formatEvansTip(curve,pt,index)
//this function is called by the datatip mechanism to format the tip
//string for the evans root loci curves
   ud=datatipGetStruct(curve);
   if index<>[] then
     K=ud.K(index)
   else //interpolated
     [d,ptp,i,c]=orth_proj(curve.data,pt)
     K=ud.K(i)+(ud.K(i+1)-ud.K(i))*c
   end
   str=msprintf("r: %.4g %+.4g i\nK: %.4g", pt,K);
endfunction

figure(1);
clf;
subplot(2,2,1);
Gc=poly([-6+2*%i  -6-2*%i],"s","roots")/poly(0,"s","roots")
G=1/poly([-2 -5],"s","roots")
H=G*Gc
evans_clip(H,100)
a=gca();
a.data_bounds = [[-15; 10] [-8; 8]];


subplot(2,2,2);
Gc=poly([-3.5+2*%i  -3.5-2*%i],"s","roots")/poly(0,"s","roots")
G=1/poly([-2 -5],"s","roots")
H=G*Gc
evans_clip(H,100)
a=gca();
a.data_bounds = [[-15; 10] [-8; 8]];

subplot(2,2,3);
Gc=poly([-6+2*%i  -6-2*%i],"s","roots")/poly(0,"s","roots")
G=1/poly([-2 -5],"s","roots")
H=G*Gc
evans_clip(H,100)

a=gca();
a.data_bounds = [[-15; 10] [-8; 8]];

subplot(2,2,4);

xs2png(gcf(), "fig1");

figure(2);
clf;
subplot(2,2,1);
Gc=poly([-6+2*%i  -6-2*%i],"s","roots")/poly(0,"s","roots")
G=1/poly([-2 -5],"s","roots")
H=G*Gc
evans(H,100)
a=gca();
a.data_bounds = [[-15; 10] [-8; 8]];


subplot(2,2,2);
Gc=poly([-3.5+2*%i  -3.5-2*%i],"s","roots")/poly(0,"s","roots")
G=1/poly([-2 -5],"s","roots")
H=G*Gc
evans(H,100)
a=gca();
a.data_bounds = [[-15; 10] [-8; 8]];

subplot(2,2,3);
Gc=poly([-6+2*%i  -6-2*%i],"s","roots")/poly(0,"s","roots")
G=1/poly([-2 -5],"s","roots")
H=G*Gc
evans(H,100)

a=gca();
a.data_bounds = [[-15; 10] [-8; 8]];

subplot(2,2,4);

xs2png(gcf(), "fig2");

-------------- next part --------------
A non-text attachment was scrubbed...
Name: fig_clip_state_is_clipgrf.png
Type: image/png
Size: 13612 bytes
Desc: not available
URL: <https://lists.scilab.org/pipermail/users/attachments/20111023/974353f6/attachment.png>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: fig_clip_state_is_off.png
Type: image/png
Size: 13558 bytes
Desc: not available
URL: <https://lists.scilab.org/pipermail/users/attachments/20111023/974353f6/attachment-0001.png>

From grivet at cnrs-orleans.fr  Mon Oct 24 17:36:08 2011
From: grivet at cnrs-orleans.fr (grivet)
Date: Mon, 24 Oct 2011 17:36:08 +0200
Subject: plot3d
Message-ID: <4EA585E8.40900@cnrs-orleans.fr>

Hi,

When using plot3d to draw a surface z(x,y), is it possible to prevent 
the display of those facet edges
which are parallel to either the x or y axis ? In my case, this would 
lead to a clearer plot.

TIA
JP Grivet




From sgougeon at free.fr  Mon Oct 24 17:49:10 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Mon, 24 Oct 2011 17:49:10 +0200
Subject: [scilab-Users] plot3d
In-Reply-To: <4EA585E8.40900@cnrs-orleans.fr>
References: <4EA585E8.40900@cnrs-orleans.fr>
Message-ID: <4EA588F6.5040308@free.fr>

Hello,

Le 24/10/2011 17:36, grivet a ?crit :
> Hi,
>
> When using plot3d to draw a surface z(x,y), is it possible to prevent 
> the display of those facet edges
> which are parallel to either the x or y axis ? In my case, this would 
> lead to a clearer plot.
>
> TIA
> JP Grivet
The only way i know for doing this is using plot3d3(). But then only 
edges will be drawn :
Facets will be hollow (because actually undefined as is), and the 
yielded object will be a
set of polylines, almost impossible to address as a whole object.

Samuel


From sgougeon at free.fr  Mon Oct 24 17:53:18 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Mon, 24 Oct 2011 17:53:18 +0200
Subject: [scilab-Users] plot3d
In-Reply-To: <4EA585E8.40900@cnrs-orleans.fr>
References: <4EA585E8.40900@cnrs-orleans.fr>
Message-ID: <4EA589EE.2070006@free.fr>

Le 24/10/2011 17:36, grivet a ?crit :
> Hi,
>
> When using plot3d to draw a surface z(x,y), is it possible to prevent 
> the display of those facet edges
> which are parallel to either the x or y axis ? In my case, this would 
> lead to a clearer plot.
>
> TIA
> JP Grivet
You may comment and support the 1-year old post
http://bugzilla.scilab.org/show_bug.cgi?id=8207
;)


From sylvestre.ledru at scilab.org  Tue Oct 25 21:48:54 2011
From: sylvestre.ledru at scilab.org (Sylvestre Ledru)
Date: Tue, 25 Oct 2011 21:48:54 +0200
Subject: [scilab-Users] Re: scilab on Ubuntu 11.10
In-Reply-To: <CACjTMEyttU5ifCRi8yPnDECzKCVo3SUizYyqVah+RD_6-+-ysg@mail.gmail.com>
References: 	<CACjTMEzT2U-LGoJO7CL=z27CTyCRMAujVKB179h1u20sg6mkbQ@mail.gmail.com>
	 <4E9C70C7.8080400@free.fr>
	 <CACjTMEz1kR1Vgi7rgL5i8aYPjZGaRNG-sDx+nx==f2zW9g_H0g@mail.gmail.com>
	 <1318882230.25683.49.camel@pomegues.inria.fr>
	 <CACjTMEyttU5ifCRi8yPnDECzKCVo3SUizYyqVah+RD_6-+-ysg@mail.gmail.com>
Message-ID: <1319572134.19172.13.camel@pomegues.inria.fr>

Ricardo, could you, as requested on
https://bugs.launchpad.net/ubuntu/+source/mesa/+bug/877491
launch the command:
apport-collect 877491

Thanks,
S


Le mardi 18 octobre 2011 ? 08:59 -0200, Ricardo Fabbri a ?crit :
> Good to know, thanks.
> 
> I was also trying to get the greatest number of users informed, not
> just the maintainers.
> Each place allows for a type of discussion.
> 
> Anyways, I agree, from now on let's try to stay on the bug report.
> 
> On Monday, October 17, 2011, Sylvestre Ledru
> <sylvestre.ledru at scilab.org> wrote:
> > FYI, we (the Scilab consortium) are maintaining the Debian/Ubuntu
> > packages. So, reporting a bug against launchpad or in the Scilab bug
> > tracker is basically the same thing.
> >
> > About the 10106 bug itself, I would like to keep the discussion in
> the
> > bug report itself. Thanks.
> >
> > Sylvestre
> >
> > PS: Launchpad votes are usually not very useful.
> >
> >
> >
> > Le lundi 17 octobre 2011 ? 17:15 -0200, Ricardo Fabbri a ?crit :
> >> Please vote this bug by clicking on "this bug also affects me" on
> the
> >> top-left corner:
> >>
> >>
> >> https://bugs.launchpad.net/ubuntu/+source/scilab/+bug/876195
> >>
> >> Ricardo
> >> --
> >> Linux registered user #175401
> >> www.lems.brown.edu/~rfabbri
> >>
> >>
> >>
> >> On Mon, Oct 17, 2011 at 4:15 PM, ac17 <ac17 at free.fr> wrote:
> >> > Hello,
> >> >
> >> > I have the same issue since the upgrade in 11.10 version...
> >> >
> >> >
> >> > On 17/10/2011 19:47, Ricardo Fabbri wrote:
> >> >>
> >> >> Hi,
> >> >>
> >> >> does anybody here have a working scilab in ubuntu 11.10?
> Plotting
> >> >> anything hangs scilab for me:
> >> >> plot(1:10,1:10).
> >> >>
> >> >> I reported this as bug #10106
> >> >>  http://bugzilla.scilab.org/show_bug.cgi?id=10106
> >> >>
> >> >> But I just wonder if other people using Ubuntu Oneiric
> encoutered the
> >> >> same problem.
> >> >> Ricardo
> >> >> --
> >> >> Linux registered user #175401
> >> >> www.lems.brown.edu/~rfabbri
> >> >
> >> >
> >
> >
> >
> 
> -- 
> 
> Ricardo
> --
> Linux registered user #175401
> www.lems.brown.edu/~rfabbri




From sylvestre.ledru at scilab.org  Tue Oct 25 22:00:59 2011
From: sylvestre.ledru at scilab.org (Sylvestre Ledru)
Date: Tue, 25 Oct 2011 22:00:59 +0200
Subject: [scilab-Users] suggestion about evans
In-Reply-To: <4EA3591A.1060901@axelspace.com>
References: <1319074290990-3436434.post@n3.nabble.com>
	 <005601cc8ef5$3fa32550$bee96ff0$@scilab.org>
	 <1319141057956-3438844.post@n3.nabble.com> <4EA3591A.1060901@axelspace.com>
Message-ID: <1319572859.19172.19.camel@pomegues.inria.fr>

Hello,
Le dimanche 23 octobre 2011 ? 09:00 +0900, Iai Masafumi ax a ?crit :
> I suggest to review the code of "evans" function to see if setting 
> "clip_state" off is useful to users.
> 
> What I wanted is to generate a figure like fig_clip_state_is_clipgrf.png 
> as attached. However with the current "evans" function, I only got a 
> figure like fig_clip_state_is_off.png, in which some lines are drawn 
> outside the plot area. This is because "clip_state" is set off. Changing 
> the value of "clip_state" of the current axes before or after calling 
> "evans" function did not affect the result. I was successful when I 
> commented out a line:
> axes.clip_state = "off";
> in evans.sci. This should be good unless other side effects occur.
Thanks for this suggestion. It is appreciated!
I don't know if this would cause side effects or not. Could you open a
bug report with the relevant information on http://bugzilla.scilab.org ?
It will help to keep track of the request and the discussion on this
subject.

thanks
S
 




From smoser at apu.edu  Tue Oct 25 20:47:31 2011
From: smoser at apu.edu (Steve)
Date: Tue, 25 Oct 2011 18:47:31 +0000 (UTC)
Subject: scilab on Ubuntu 11.10
References: <CACjTMEzT2U-LGoJO7CL=z27CTyCRMAujVKB179h1u20sg6mkbQ@mail.gmail.com>
Message-ID: <loom.20111025T204558-738@post.gmane.org>

Ricardo Fabbri <rfabbri at ...> writes:

> 
> Hi,
> 
> does anybody here have a working scilab in ubuntu 11.10? Plotting
> anything hangs scilab for me:
> plot(1:10,1:10).
> 
> I reported this as bug #10106
>  http://bugzilla.scilab.org/show_bug.cgi?id=10106


Hi Ricardo,

I upgraded to 11.10 and am having the same issue. Thanks for reporting the bug.

Steve



From scottl at westone.com  Wed Oct 26 00:30:54 2011
From: scottl at westone.com (Scott Lake)
Date: Tue, 25 Oct 2011 16:30:54 -0600 (MDT)
Subject: Q:  What is the correct procedure to install a module like the
 sndfile Toolbox?
Message-ID: <1365646367.4631.1319581854374.JavaMail.root@mailbox.westone.com>

I am a brand new user. I have tried to find documentation about how to install external modules like the sndfile Toolbox, but I have not found the details on how to do this. I could not find it in the wiki nor the archive of the mailing list, so I'm sending out this message hoping that someone can answer. 


_______________________________________________ 

Scott Lake - Engineering Projects Manager 
Westone Laboratories, Inc. 
719-540-9333 Phone 
719-540-9183 Fax 
scottl at westone.com 
www.westone.com 

2235 Executive Circle 
Colorado Springs, CO 80906 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111025/db4e7d2f/attachment.htm>

From sgougeon at free.fr  Wed Oct 26 01:05:04 2011
From: sgougeon at free.fr (Samuel Gougeon)
Date: Wed, 26 Oct 2011 01:05:04 +0200
Subject: [scilab-Users] Q:  What is the correct procedure to install a
 module like the sndfile Toolbox?
In-Reply-To: <1365646367.4631.1319581854374.JavaMail.root@mailbox.westone.com>
References: <1365646367.4631.1319581854374.JavaMail.root@mailbox.westone.com>
Message-ID: <4EA740A0.9070602@free.fr>

Le 26/10/2011 00:30, Scott Lake a ?crit :
> I am a brand new user.  I have tried to find documentation about how 
> to install external modules like the sndfile Toolbox, but I have not 
> found the details on how to do this.  I could not find it in the wiki 
> nor the archive of the mailing list, so I'm sending out this message 
> hoping that someone can answer.
sndfile is distributed through the external module manager so-called ATOMS.
To launch it, just click on the icon like a box (a package) in Scilab.
Then sndfile is available in the /optimization/ category or in the /data 
acquisition/
category (please do not ask why. IMO, both are unrelevant for this module
that should be in the Data handling category):
http://atoms.scilab.org/toolboxes/sndfile_toolbox

Then, follow the ATOMS interface : It should be a click-and-start procedure.

Regards
Samuel

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111026/127038ae/attachment.htm>

From allan.cornet at scilab.org  Wed Oct 26 01:06:48 2011
From: allan.cornet at scilab.org (allan.cornet at scilab.org)
Date: Wed, 26 Oct 2011 01:06:48 +0200
Subject: [scilab-Users] Q:  What is the correct procedure to install a  module like the sndfile =?UTF-8?Q?Toolbox=3F?=
In-Reply-To: <1365646367.4631.1319581854374.JavaMail.root@mailbox.westone.com>
References: <1365646367.4631.1319581854374.JavaMail.root@mailbox.westone.com>
Message-ID: <658789f9099c8e33d6f1482299df5541@scilab.org>

Hi,

You have atomsGui() to select from a list module that you want to 
install

or from command line: atomsInstall('sndfile_toolbox')

http://help.scilab.org/docs/5.3.3/en_US/atomsInstall.html

and restart your scilab

Allan



On Tue, 25 Oct 2011 16:30:54 -0600 (MDT), Scott Lake wrote:
> I am a brand new user. I have tried to find documentation about how 
> to
> install external modules like the sndfile Toolbox, but I have not
> found the details on how to do this. I could not find it in the wiki
> nor the archive of the mailing list, so I'm sending out this message
> hoping that someone can answer.
>
> _______________________________________________
>
> Scott Lake - Engineering Projects Manager
> Westone Laboratories, Inc.
> 719-540-9333 Phone
> 719-540-9183 Fax
> scottl at westone.com
> www.westone.com
>
> 2235 Executive Circle
> Colorado Springs, CO 80906



From iai at axelspace.com  Wed Oct 26 03:22:16 2011
From: iai at axelspace.com (Iai Masafumi ax)
Date: Wed, 26 Oct 2011 10:22:16 +0900
Subject: [scilab-Users] suggestion about evans
In-Reply-To: <1319572859.19172.19.camel@pomegues.inria.fr>
References: <1319074290990-3436434.post@n3.nabble.com>  <005601cc8ef5$3fa32550$bee96ff0$@scilab.org>  <1319141057956-3438844.post@n3.nabble.com> <4EA3591A.1060901@axelspace.com> <1319572859.19172.19.camel@pomegues.inria.fr>
Message-ID: <4EA760C8.9080105@axelspace.com>

A bug report has been opened for this issue:
http://bugzilla.scilab.org/show_bug.cgi?id=10169

Thanks,
Iai

(2011/10/26 5:00), Sylvestre Ledru wrote:
> Hello,
> Le dimanche 23 octobre 2011 ? 09:00 +0900, Iai Masafumi ax a ?crit :
>> I suggest to review the code of "evans" function to see if setting
>> "clip_state" off is useful to users.
>>
>> What I wanted is to generate a figure like fig_clip_state_is_clipgrf.png
>> as attached. However with the current "evans" function, I only got a
>> figure like fig_clip_state_is_off.png, in which some lines are drawn
>> outside the plot area. This is because "clip_state" is set off. Changing
>> the value of "clip_state" of the current axes before or after calling
>> "evans" function did not affect the result. I was successful when I
>> commented out a line:
>> axes.clip_state = "off";
>> in evans.sci. This should be good unless other side effects occur.
> Thanks for this suggestion. It is appreciated!
> I don't know if this would cause side effects or not. Could you open a
> bug report with the relevant information on http://bugzilla.scilab.org ?
> It will help to keep track of the request and the discussion on this
> subject.
>
> thanks
> S
>
>
>


From vs at gtuewetzlar.de  Thu Oct 27 09:10:59 2011
From: vs at gtuewetzlar.de (=?ISO-8859-15?Q?=22Volker_Sch=E4fer_-_Ing=2E-B=FCro_Frank_?= =?ISO-8859-15?Q?Wambach=22?=)
Date: Thu, 27 Oct 2011 09:10:59 +0200
Subject: Help on translate to delphi
Message-ID: <4EA90403.8020509@gtuewetzlar.de>

Dear scilab users,

i tried to "translate" some functions to call scilab with delphi. Some 
easy functions an procedures are working, but now i got a problem with:

SciErr  createNamedMatrixOfDouble(void*_pvCtx,const  char*_pstName,int  _iRows,int  _iCols,const  double*_pdblReal)

how to translate tis function to use it in delphi?

Is there anyone who wrote a unit to call the scilab api dll's with delphi or lazarus or freepascal?

best regards

volker sch?fer





From samuel.enibe at unn.edu.ng  Thu Oct 27 17:21:12 2011
From: samuel.enibe at unn.edu.ng (Samuel Enibe)
Date: Thu, 27 Oct 2011 16:21:12 +0100
Subject: Linear Regression in Scilab
Message-ID: <CAJKcLoUoUydVvPBjR-KNAU2hqpXrQ0meqSBvh7=s7pbGhbOftw@mail.gmail.com>

Dear Sir,

Which function can one use in SCILAB for polynomial regression using LEAST
SQUARES.
In MATLAB, this is done with the POLYFIT

Samuel Enibe
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111027/5f489bbc/attachment.htm>

From calixte.denizet at scilab.org  Thu Oct 27 18:21:48 2011
From: calixte.denizet at scilab.org (Calixte Denizet)
Date: Thu, 27 Oct 2011 18:21:48 +0200
Subject: [scilab-Users] Linear Regression in Scilab
In-Reply-To: <CAJKcLoUoUydVvPBjR-KNAU2hqpXrQ0meqSBvh7=s7pbGhbOftw@mail.gmail.com>
References: <CAJKcLoUoUydVvPBjR-KNAU2hqpXrQ0meqSBvh7=s7pbGhbOftw@mail.gmail.com>
Message-ID: <4EA9851C.3060308@scilab.org>

Hi Samuel,

If x and y are the column vectors corresponding to the coordinates of 
your points, you can build the Vandermonde matrix on x and use lsq 
operator \:

n=length(x);
v=ones(n,deg+1) // deg is the degree of your polynomial
for i=2:deg+1
   v(:,i)=x.*v(:,i-1)
end
P=poly((v\y)', "x", "coeff");

You can now plot P: plot(0:0.1:10,horner(P,0:0.1:10)).

Best regards

Calixte

On 27/10/2011 17:21, Samuel Enibe wrote:
> Dear Sir,
>
> Which function can one use in SCILAB for polynomial regression using 
> LEAST SQUARES.
> In MATLAB, this is done with the POLYFIT
>
> Samuel Enibe
>



From perrichon.pierre at wanadoo.fr  Thu Oct 27 19:27:13 2011
From: perrichon.pierre at wanadoo.fr (Perrichon Pierre)
Date: Thu, 27 Oct 2011 19:27:13 +0200
Subject: [scilab-Users] Linear Regression in Scilab
In-Reply-To: <4EA9851C.3060308@scilab.org>
References: <CAJKcLoUoUydVvPBjR-KNAU2hqpXrQ0meqSBvh7=s7pbGhbOftw@mail.gmail.com> <4EA9851C.3060308@scilab.org>
Message-ID: <!&!AAAAAAAAAAAYAAAAAAAAAPpblR4M8R1AleeR9kr+Z2HCgAAAEAAAAPgcc7GN7DJNkVP4Ub6sHtgBAAAAAA==@wanadoo.fr>

Hello,
Is the attached file also solves the question?




-----Message d'origine-----
De?: Calixte Denizet [mailto:calixte.denizet at scilab.org] 
Envoy??: jeudi 27 octobre 2011 18:22
??: users at lists.scilab.org
Objet?: Re: [scilab-Users] Linear Regression in Scilab

Hi Samuel,

If x and y are the column vectors corresponding to the coordinates of 
your points, you can build the Vandermonde matrix on x and use lsq 
operator \:

n=length(x);
v=ones(n,deg+1) // deg is the degree of your polynomial
for i=2:deg+1
   v(:,i)=x.*v(:,i-1)
end
P=poly((v\y)', "x", "coeff");

You can now plot P: plot(0:0.1:10,horner(P,0:0.1:10)).

Best regards

Calixte

On 27/10/2011 17:21, Samuel Enibe wrote:
> Dear Sir,
>
> Which function can one use in SCILAB for polynomial regression using 
> LEAST SQUARES.
> In MATLAB, this is done with the POLYFIT
>
> Samuel Enibe
>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: RegressionLineaire.sce
Type: application/octet-stream
Size: 666 bytes
Desc: not available
URL: <https://lists.scilab.org/pipermail/users/attachments/20111027/75eadde8/attachment.obj>

From thiagoaax at gmail.com  Fri Oct 28 02:19:26 2011
From: thiagoaax at gmail.com (Thiago Costa)
Date: Thu, 27 Oct 2011 22:19:26 -0200
Subject: Xcos CONSTRAINT_c block
Message-ID: <CAG2b-MrN97G2mBYGFa+LLaRv66idfsJnykjX9s9E9VpbFAwH_g@mail.gmail.com>

Hello,

I'm trying to use Xcos to simulate a model that has an nonlinear
output equation. I usually use CONSTRAINT_c in Scicos to solve for a
input function f(x) = 0...

Is there anything like this in Xcos?

I've seen the constraint_f block inside Implicit palette in xcos but I
don't think they're the same function....

Thanks in advance.

-- 
Thiago C.
Graduate student

LCAP/DESQ - Department of Chemical Systems Engineering
School of Chemical Engineering
University of Campinas (UNICAMP)
Av. Albert Einstein, 500, CEP 13083-852
Campinas-SP, Brazil
-
Tel (LCAP): 55-19-35213969
E-mail: thiagocosta at feq.unicamp.br


From rfabbri at gmail.com  Fri Oct 28 15:12:58 2011
From: rfabbri at gmail.com (Ricardo Fabbri)
Date: Fri, 28 Oct 2011 11:12:58 -0200
Subject: [scilab-Users] Re: scilab on Ubuntu 11.10
In-Reply-To: <1319572134.19172.13.camel@pomegues.inria.fr>
References: <CACjTMEzT2U-LGoJO7CL=z27CTyCRMAujVKB179h1u20sg6mkbQ@mail.gmail.com>
 <4E9C70C7.8080400@free.fr> <CACjTMEz1kR1Vgi7rgL5i8aYPjZGaRNG-sDx+nx==f2zW9g_H0g@mail.gmail.com>
 <1318882230.25683.49.camel@pomegues.inria.fr> <CACjTMEyttU5ifCRi8yPnDECzKCVo3SUizYyqVah+RD_6-+-ysg@mail.gmail.com>
 <1319572134.19172.13.camel@pomegues.inria.fr>
Message-ID: <CACjTMEz=3Xmr4yNLd4N4A1Tk=EKNsfYKhWGwXXK_YhFk3su_EQ@mail.gmail.com>

Sylvestre, I did that command. It gave me trouble in the beginning but
it seemingly sent the debug info out.

Hope that helps,
Ricardo Fabbri
--
Linux registered user #175401
www.lems.brown.edu/~rfabbri
labmacambira.sf.net




On Tue, Oct 25, 2011 at 5:48 PM, Sylvestre Ledru
<sylvestre.ledru at scilab.org> wrote:
> Ricardo, could you, as requested on
> https://bugs.launchpad.net/ubuntu/+source/mesa/+bug/877491
> launch the command:
> apport-collect 877491
>
> Thanks,
> S
>
>
> Le mardi 18 octobre 2011 ? 08:59 -0200, Ricardo Fabbri a ?crit :
>> Good to know, thanks.
>>
>> I was also trying to get the greatest number of users informed, not
>> just the maintainers.
>> Each place allows for a type of discussion.
>>
>> Anyways, I agree, from now on let's try to stay on the bug report.
>>
>> On Monday, October 17, 2011, Sylvestre Ledru
>> <sylvestre.ledru at scilab.org> wrote:
>> > FYI, we (the Scilab consortium) are maintaining the Debian/Ubuntu
>> > packages. So, reporting a bug against launchpad or in the Scilab bug
>> > tracker is basically the same thing.
>> >
>> > About the 10106 bug itself, I would like to keep the discussion in
>> the
>> > bug report itself. Thanks.
>> >
>> > Sylvestre
>> >
>> > PS: Launchpad votes are usually not very useful.
>> >
>> >
>> >
>> > Le lundi 17 octobre 2011 ? 17:15 -0200, Ricardo Fabbri a ?crit :
>> >> Please vote this bug by clicking on "this bug also affects me" on
>> the
>> >> top-left corner:
>> >>
>> >>
>> >> https://bugs.launchpad.net/ubuntu/+source/scilab/+bug/876195
>> >>
>> >> Ricardo
>> >> --
>> >> Linux registered user #175401
>> >> www.lems.brown.edu/~rfabbri
>> >>
>> >>
>> >>
>> >> On Mon, Oct 17, 2011 at 4:15 PM, ac17 <ac17 at free.fr> wrote:
>> >> > Hello,
>> >> >
>> >> > I have the same issue since the upgrade in 11.10 version...
>> >> >
>> >> >
>> >> > On 17/10/2011 19:47, Ricardo Fabbri wrote:
>> >> >>
>> >> >> Hi,
>> >> >>
>> >> >> does anybody here have a working scilab in ubuntu 11.10?
>> Plotting
>> >> >> anything hangs scilab for me:
>> >> >> plot(1:10,1:10).
>> >> >>
>> >> >> I reported this as bug #10106
>> >> >> ?http://bugzilla.scilab.org/show_bug.cgi?id=10106
>> >> >>
>> >> >> But I just wonder if other people using Ubuntu Oneiric
>> encoutered the
>> >> >> same problem.
>> >> >> Ricardo
>> >> >> --
>> >> >> Linux registered user #175401
>> >> >> www.lems.brown.edu/~rfabbri
>> >> >
>> >> >
>> >
>> >
>> >
>>
>> --
>>
>> Ricardo
>> --
>> Linux registered user #175401
>> www.lems.brown.edu/~rfabbri
>
>
>


From samuel.enibe at unn.edu.ng  Fri Oct 28 16:20:34 2011
From: samuel.enibe at unn.edu.ng (samuel.enibe at unn.edu.ng)
Date: Fri, 28 Oct 2011 14:20:34 +0000
Subject: [scilab-Users] Linear Regression in Scilab
Message-ID: <4eaaba38.665ee30a.0e2f.1b66@mx.google.com>


Thank you so much for the solution.
God bless you
.
Samuel Enibe

Sent from my Nokia phone
-----Original Message-----
From: Perrichon Pierre
Sent:  27/10/2011 6.27.13 pm
Subject:  RE: [scilab-Users] Linear Regression in Scilab

Hello,
Is the attached file also solves the question?




-----Message d'origine-----
De?: Calixte Denizet [mailto:calixte.denizet at scilab.org] 
Envoy??: jeudi 27 octobre 2011 18:22
??: users at lists.scilab.org
Objet?: Re: [scilab-Users] Linear Regression in Scilab

Hi Samuel,

If x and y are the column vectors corresponding to the coordinates of 
your points, you can build the Vandermonde matrix on x and use lsq 
operator \:

n=length(x);
v=ones(n,deg+1) // deg is the degree of your polynomial
for i=2:deg+1
   v(:,i)=x.*v(:,i-1)
end
P=poly((v\y)', "x", "coeff");

You can now plot P: plot(0:0.1:10,horner(P,0:0.1:10)).

Best regards

Calixte

On 27/10/2011 17:21, Samuel Enibe wrote:
> Dear Sir,
>
> Which function can one use in SCILAB for polynomial regression using 
> LEAST SQUARES.
> In MATLAB, this is done with the POLYFIT
>
> Samuel Enibe
>



From jaundreventer at gmail.com  Mon Oct 31 21:10:27 2011
From: jaundreventer at gmail.com (Jaundre Venter)
Date: Mon, 31 Oct 2011 22:10:27 +0200
Subject: [scilab-Users] No reaction
In-Reply-To: <4E8D9A18.2030203@centre-cired.fr>
References: <CAHM=geHK-jnj5Jq8boLEE9Gc_GjPnvtp12=Nh2MYT1oo9cC=4g@mail.gmail.com>
	<4E8C5106.3080801@centre-cired.fr>
	<CAHM=geFLkSH5uFoChsWCJP9tuSjfSmYYyEU+XuftuB6KHHg86Q@mail.gmail.com>
	<4E8C79EA.9040909@centre-cired.fr>
	<CAHM=geFkhNYu5aSzDScbnEweVnphiWqiBAzsBP0oywjRj7yGxg@mail.gmail.com>
	<CAHM=geHxG1ChazN_wjDtf1rRSaUEh5fCHEcMEa7xSrwx1EJ9bg@mail.gmail.com>
	<4E8D9A18.2030203@centre-cired.fr>
Message-ID: <CAHM=geHNqb4SQhs0QJYWfwHjtXQ3vQYuUJcxQS1OAEbRGbgMiA@mail.gmail.com>

Hi Adrien

Sorry for late response but had some issues on other projects that i had to
attend.

i am still getting no reactions what so ever for the last three curves. see
attached the new code. i don't know it is showing 0 or at the initial
values! i have checked the mass balance if some input values are wrong that
is causing the no reaction but the constant etc is correct.

On Thu, Oct 6, 2011 at 2:07 PM, Adrien Vogt-Schilb <vogt at centre-cired.fr>wrote:

>  Hi
>
> Maybe you should look at x (the output of ode) without ploting it. That
> way you'll make sure if the problem comes from the plot or not
>
> Can you attach a file with the new code?
>
>
> On 06/10/2011 10:00, Jaundre Venter wrote:
>
> Hi
>
> okay i have made the changes and the reaction curves are looking better
> but for some reason i still get no reaction on the last three curves. It is
> just showing a straight line. can it be that i have choosen to plot the
> wrong type of graph? Maybe because of a time value or to much ODE"s?
>
> On Wed, Oct 5, 2011 at 10:24 PM, Jaundre Venter <jaundreventer at gmail.com>wrote:
>
>> Thank you very much Adrien.
>>
>> always nice if someone can explain to you where your problems are and
>> why. Thanks
>>
>> Was there any other problems you saw that i have to be aware of?
>>
>>
>> On Wed, Oct 5, 2011 at 5:38 PM, Adrien Vogt-Schilb <vogt at centre-cired.fr>wrote:
>>
>>>  Hi
>>>
>>> When you use ode, it's ok, if say, dx(1) depends on dx(4).
>>> but you still have say that to scilab properly, something like:
>>>
>>> function dx = f(t,x)
>>> dx(6)=((F+Fab+Floss)*(x(2))),  // culture Volume V
>>> dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx(6))))*(CO)*(x(2)))),
>>> //biomass concentration X
>>> and so one
>>>
>>> note that because i had to know dx(6) to compute dx(1) i just computed
>>> dx(6) before dx(1): no problem. and note that i used x(2). The idea of the
>>> ode is to compute dx from x!
>>>
>>> make sure you understand that using dx_6 instead of dx(6), your ODE
>>> solver is not updating dx_6 at each time step, it is using the initial and
>>> only dx_6 forever. That's why your last varaibles do not move, somehow
>>> their speeds are never updated.
>>> for instance, dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume V is
>>> constance in time (i guess)
>>>
>>>
>>>
>>> On 05/10/2011 15:00, Jaundre Venter wrote:
>>>
>>> Hi Adrien
>>>
>>> i am new to SCILAB! I just want to say that.
>>>
>>> Yes dx_1 is equal to dx1 but the only reason why i have programmed it
>>> like that is becasue the ODE's looks as follows - (see word file attached
>>> that can explain the ODE"s better. with regards to the HION and CO it
>>> actually refers to [H+] and CO2 as you said. the only reason why n
>>> multiplied HION and CO wit hsome ODE's is because some does have a
>>> influence on some ODE's.
>>>
>>> This is the first time i am working with SCILAB thus i am struggling to
>>> understand how SCILAB wants the code so that all 9 ODE's are shown and so
>>> that the ODE's that is having a effect on other does happen. I though if
>>> you refer to dx(1) for example in a other ODE it means that SCILAb will
>>> know the dx(1) has a influence on the other ODE.
>>>
>>> The main goal of my assesment is to deliver similar results obtained
>>> from MATLAB on SCILAB. all i got was how the grpahs should look like and
>>> the ODE's.
>>>
>>> On Wed, Oct 5, 2011 at 2:43 PM, Adrien Vogt-Schilb <vogt at centre-cired.fr
>>> > wrote:
>>>
>>>>  Hi
>>>>
>>>> Try to isalote your problem
>>>> if i understood well, the following code
>>>>
>>>>
>>>> //  initial values
>>>> x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
>>>> t=0:0.005:400;
>>>> y=ode(x0, 0, t, f);
>>>>
>>>>  returns y such that sum(y(6:9,:)>x0) == 0 ?
>>>> if this is true, we do not need the plots to solve the problem
>>>> can you check that ?
>>>>
>>>> I believe the f function is erroneous.
>>>> It seems that dx_1 should be equal to dx(1) at each time step, and that
>>>> HION should be equal to x(2) at each time step, etc.
>>>>
>>>> in other terms, some of your phisical variables seem to be represented
>>>> by to variables (i am guessing HION=[H+] and x(2)=[H+] also) but scilab
>>>> does not have any chance to know that.
>>>> if my guess is right, you have to rewrite the f function in a way that
>>>> eliminates all references to HION, dx_1, dx_6 and so on
>>>>
>>>>
>>>> On 05/10/2011 14:27, Jaundre Venter wrote:
>>>>
>>>> Hi all
>>>>
>>>> Can someone please explain to me the following:
>>>>
>>>> I am busy with a project of simulation the production of penicillin in
>>>> a bio reactor. Now i have 9 ODE's which i want to simulate.
>>>>
>>>> now for some reason the last three graphs i am getting doesn't show any
>>>> response what so ever. i am using the following code.
>>>>
>>>> dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx_6)))*(CO)*(HION)), //biomass
>>>> concentration X
>>>> dx(2)=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ)), //hydrogen ion
>>>> concentration H+
>>>> dx(3)=((((mupp)*(x(1)))-((K)*(x(3)))-((x(3))/(x(6)))*(dx_6))*(HION)),
>>>> //Penicilin concentration P
>>>> dx(4)=((-((mu)/(Yxs))*(x(1)))-(((mupp)/(Yps))*(x(1)))-((mx)*(x(1)))+((Fsf)/(x(6)))-((x(4)/(x(6)))*(dx_6))),
>>>> //Substrate concentration S
>>>> dx(5)=(-(((mu)/(Yxo))*(x(1)))-(((mupp)/(Ypo))*(x(1)))-(((mo))*(x(1)))+((kla)*(cll-(x(5))))-(((x(5))/(x(6)))*(dx_6))),
>>>> //dissolved oxygen
>>>> dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume V
>>>> dx(7)=(((rq1)*(dx_1)*(x(6)))+(rq2)*(x(1))*(x(6))), //Heat generation
>>>> Qrxn
>>>> dx(8)=((((F)/(sf))*(Tf-(x(8))))+(1/((x(6))*(pcp)))*(QT)),  //
>>>> Temperature T
>>>> dx(9)=(((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
>>>> endfunction
>>>>
>>>> now when i ask for plotting the graphs i am using the following.:
>>>>
>>>> //  initial values
>>>> x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
>>>> t=0:0.005:400;
>>>> y=ode(x0, 0, t, f);
>>>>
>>>> // the plots of each variable
>>>> da.title.text="BIOMASS CONCENTRATION"
>>>> da.x_label.text="Time, hours";
>>>> da.y_label.text="X,g/l ";
>>>> scf(1);clf; //Opens and clears figure 1
>>>> plot(t,y(1,:))
>>>>
>>>> da.title.text="HYDROGEN ION H+ CONCENTRATION"
>>>> da.y_label.text="H+,mol/l ";
>>>> scf(2);clf; //Opens and clears figure 2
>>>> plot(t,y(2,:))
>>>>
>>>> da.title.text="PENICILLIN CONCENTRATION"
>>>> da.y_label.text="P,g/l ";
>>>> scf(3);clf; //Opens and clears figure 3
>>>> plot(t,y(3,:))
>>>>
>>>> da.title.text="SUBSTRATE CONCENTRATION"
>>>> da.y_label.text="S,g/l ";
>>>> scf(4);clf; //Opens and clears figure 4
>>>> plot(t,y(4,:))
>>>>
>>>> da.title.text="DISSOLVED OXYGEN CONCENTRATION"
>>>> da.y_label.text="C_l,g/l ";
>>>> scf(5);clf; //Opens and clears figure 5
>>>> plot(t,y(5,:))
>>>>
>>>> da.title.text="CULTURE VOLUME"
>>>> da.y_label.text="V,l";
>>>> scf(6);clf; //Opens and clears figure 6
>>>> plot(t,y(6,:))
>>>>
>>>> da.title.text="HEAT OF REACTION"
>>>> da.y_label.text="Qrxn,cal";
>>>> scf(7);
>>>> clf; //Opens and clears figure 7
>>>> plot(t,y(7),:)
>>>>
>>>> da.title.text="TEMPERATURE"
>>>> da.y_label.text="T,Kelvin";
>>>> scf(8);
>>>> clf; //Opens and clears figure 8
>>>> plot(t,y(8),:)
>>>>
>>>> da.title.text="CO2 EVOLUTION"
>>>> da.y_label.text="CO2,mmol/l/";
>>>> scf(9);
>>>> clf; //Opens and clears figure 9
>>>> plot(t,y(9),:)
>>>>
>>>> Am i doing something wrong? before the ODE's i have just programmed the
>>>> initial values and constants :
>>>>
>>>> funcprot(0);
>>>> function dx = f(t,x)
>>>> K1=1.0e-10         //mol/l
>>>> K2=7.0e-05         //mol/l
>>>> Kx=0.15            // Contois saturation constant, g/l
>>>> Kox=2e-02          // oxygen limitation constant
>>>> mux=0.092          // maitenance coefficient on subsrate
>>>> p=3                //constant
>>>> Kp=0.0002          //   inhibition constant
>>>> Kop=2e-02      // oxygen limitation constant
>>>> K=0.04     //  Penicillin hydrolysis constant, per h
>>>> Yxs=0.45  //   yield constant,g biomass/g glucose = dimensionless
>>>> Yps=0.90  //   yield constant, g pinicillin/ g glucose = dimensionless
>>>> mx= 0.014  //   Maintenance coefficient on substrate, per h
>>>> Yxo=0.04  //   yield constant, g biomass/g oxygen = dimensionless
>>>> Ypo=0.20  //   yield constant, g penicillin/g oxygen= dimensionless
>>>> mo= 0.467  //   maintenance coefficient of oxygen, per h
>>>> mup=0.0005  // specific rate of penicilline production (per h)
>>>> sf=600 // Feed substrate concentration, g/l
>>>> kla=23     // function of agitation power input and oxugen flow rate,
>>>> dimensional
>>>> cll=1.16   //  dissolved oxygen concentration, g/l
>>>> Cab=3      // concentrations in both solutions
>>>> Fa=5     // acid flow rate, l/h  !!
>>>> Fb=5      // base flow rate, l/h !!
>>>> delta_t=0.01   //  time step in digital PID controller - arbitrary
>>>> value!!!
>>>> z=10e-5     // constant
>>>> F=0.042       //  feed substrate flow rate l/h
>>>> T0=273         //  temperature at freezing, K
>>>> Tv=373       //  temperature at boiling
>>>> T=298  //  feed temp of substrate
>>>> h=(2.5e-4)     //  constant
>>>> Floss=(x(6)*(h)*(exp(5)*((T-T0)/(Tv-T0))))
>>>> Fab=Fa+Fb  // volume increase due to influx of acid Fa and base Fb
>>>> Fsf=((sf)*(F))
>>>> kg= 7e-3 //  Arrhenius constant for growth
>>>> kd=10e33  //  Arrhenius constant for cell death
>>>> Eg= 5100  //  Activation energy for growth, cal/mol
>>>> Ed= 50000  //  Activation energy for cell death, cal/mol
>>>> R= 1.987  //  gas constant, cal/mol k
>>>> T= 297  //  Temperature
>>>> RT= R*T
>>>> alpa= 70  //  constant in Kla
>>>> betha= 0.4  //  constant in Kla
>>>> Pw= 30  //  Agitation power input, W
>>>> fg= 8.6  //  Flow rate of oxygen
>>>> V=100  //  Volume
>>>> QE= ((kg*exp(-(Eg/RT)))-(kd*exp(-(Ed/RT))))
>>>> kla= alpa*((sqrt(fg)*(Pw/x(6)))^betha)
>>>> mu
>>>> =(((mux)/(1+((K1)/(x(2)))+((x(2))/(K2))))*((x(3))/(((Kx)*(x(1)))+(x(3))))*((x(5))/(((Kox)*(x(1)))+(x(5))))*(QE))
>>>> //  Specific growth rate
>>>> mupp =
>>>> ((mup)*((x(4))/((Kp)+(x(4))+(x(4)^2)/(K1)))*((x(5)^p)/((Kop)*(x(1)))+(x(5)^p)))
>>>> // Specific penicillin production rate
>>>> B =(((1e-14/x(2)-x(2))*x(6)-Cab*(Fa+Fb)*delta_t)/(x(6)+(Fa+Fb)*delta_t))
>>>> QQ =((-B+sqrt(B^2+4e-14))/2-(x(2)))*(1/delta_t)
>>>> dx_6 = (F+Fab+Floss) //Culture Volume V
>>>> dx_1 = (((mu)*(x(1)))-((x(1))/(x(6)))*(dx_6)) //biomass concentration X
>>>> rq1 = 60  //  yield of heat generation, cal/g biomass
>>>> rq2 = 1.6783e-4  //  Constant, cal/g biomass h
>>>> Tf = 296  //  substrate feed temperature, Kelvin
>>>> a = 1000   //  heat transfer coefficient of cooling/heating liquid,
>>>> cal/h degree C
>>>> b = 0.60   //  constant
>>>> Fc=0.1   //  Cooling water flow rate, not sure about value, l/h
>>>> pcCpc = 1/2000   //  Density times heat capacity of cooling liquid, per
>>>> l degree C
>>>> pcp = 1/1500   //  density times heat capacity of medium
>>>> QT = ((x(7)-(((a)*(Fc^b+1))/((Fc)+((a)*(Fc^b))/2*pcCpc))))
>>>> a1=0.143  //  constant relating CO2 to growth, mmol CO2/g biomass
>>>> a2=4e-7  //  Constant relating CO2 to mainteneance energy, mmol CO2/g
>>>> biomass h
>>>> a3=1e-4 //  Constant relating CO2 to penicillin production, mmol CO2/l h
>>>> CO= (((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2 evolution, CO2
>>>> HION=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ))
>>>>
>>>> Thanks.
>>>>
>>>>
>>>>
>>>>   --
>>>> Adrien Vogt-Schilb (Cired)
>>>> Tel: (+33) 1 43 94 *73 77*
>>>>
>>>
>>>
>>>
>>> --
>>> Adrien Vogt-Schilb (Cired)
>>> Tel: (+33) 1 43 94 *73 77*
>>>
>>
>>
>
>
> --
> Adrien Vogt-Schilb (Cired)
> Tel: (+33) 1 43 94 *73 77*
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111031/9f8fdf7d/attachment.htm>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: new code.sce
Type: application/octet-stream
Size: 6595 bytes
Desc: not available
URL: <https://lists.scilab.org/pipermail/users/attachments/20111031/9f8fdf7d/attachment.obj>

From vogt at centre-cired.fr  Mon Oct 31 23:40:04 2011
From: vogt at centre-cired.fr (Adrien Vogt-Schilb)
Date: Mon, 31 Oct 2011 23:40:04 +0100
Subject: [scilab-Users] No reaction
In-Reply-To: <CAHM=geHNqb4SQhs0QJYWfwHjtXQ3vQYuUJcxQS1OAEbRGbgMiA@mail.gmail.com>
References: <CAHM=geHK-jnj5Jq8boLEE9Gc_GjPnvtp12=Nh2MYT1oo9cC=4g@mail.gmail.com> <4E8C5106.3080801@centre-cired.fr> <CAHM=geFLkSH5uFoChsWCJP9tuSjfSmYYyEU+XuftuB6KHHg86Q@mail.gmail.com> <4E8C79EA.9040909@centre-cired.fr> <CAHM=geFkhNYu5aSzDScbnEweVnphiWqiBAzsBP0oywjRj7yGxg@mail.gmail.com> <CAHM=geHxG1ChazN_wjDtf1rRSaUEh5fCHEcMEa7xSrwx1EJ9bg@mail.gmail.com> <4E8D9A18.2030203@centre-cired.fr> <CAHM=geHNqb4SQhs0QJYWfwHjtXQ3vQYuUJcxQS1OAEbRGbgMiA@mail.gmail.com>
Message-ID: <4EAF23C4.6080504@centre-cired.fr>

Hi Jaundre Venter

your code runs just fine

you just ploted y(9) and y(8) instead of y(9,:) and y(8,:) !

it happens that when M is a matrix, say a 3x4 matrix, things like M($), 
M(1), M(7) or M([1 3 5 9]) are legal scilab statements, so you don't 
have any error message.
see the documentation: help extraction

*scilab team*, maybe you could put an option for displaying warnings 
when tables are accessed with less arguments than their dimensions, what 
do you think?

On 31/10/2011 21:10, Jaundre Venter wrote:
> Hi Adrien
>
> Sorry for late response but had some issues on other projects that i 
> had to attend.
>
> i am still getting no reactions what so ever for the last three 
> curves. see attached the new code. i don't know it is showing 0 or at 
> the initial values! i have checked the mass balance if some input 
> values are wrong that is causing the no reaction but the constant etc 
> is correct.
>
> On Thu, Oct 6, 2011 at 2:07 PM, Adrien Vogt-Schilb 
> <vogt at centre-cired.fr <mailto:vogt at centre-cired.fr>> wrote:
>
>     Hi
>
>     Maybe you should look at x (the output of ode) without ploting it.
>     That way you'll make sure if the problem comes from the plot or not
>
>     Can you attach a file with the new code?
>
>
>     On 06/10/2011 10:00, Jaundre Venter wrote:
>>     Hi
>>
>>     okay i have made the changes and the reaction curves are looking
>>     better but for some reason i still get no reaction on the last
>>     three curves. It is just showing a straight line. can it be that
>>     i have choosen to plot the wrong type of graph? Maybe because of
>>     a time value or to much ODE"s?
>>
>>     On Wed, Oct 5, 2011 at 10:24 PM, Jaundre Venter
>>     <jaundreventer at gmail.com <mailto:jaundreventer at gmail.com>> wrote:
>>
>>         Thank you very much Adrien.
>>
>>         always nice if someone can explain to you where your problems
>>         are and why. Thanks
>>
>>         Was there any other problems you saw that i have to be aware of?
>>
>>
>>         On Wed, Oct 5, 2011 at 5:38 PM, Adrien Vogt-Schilb
>>         <vogt at centre-cired.fr <mailto:vogt at centre-cired.fr>> wrote:
>>
>>             Hi
>>
>>             When you use ode, it's ok, if say, dx(1) depends on dx(4).
>>             but you still have say that to scilab properly, something
>>             like:
>>
>>             function dx = f(t,x)
>>             dx(6)=((F+Fab+Floss)*(x(2))),  // culture Volume V
>>             dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx(6))))*(CO)*(x(2)))),
>>             //biomass concentration X
>>             and so one
>>
>>             note that because i had to know dx(6) to compute dx(1) i
>>             just computed dx(6) before dx(1): no problem. and note
>>             that i used x(2). The idea of the ode is to compute dx
>>             from x!
>>
>>             make sure you understand that using dx_6 instead of
>>             dx(6), your ODE solver is not updating dx_6 at each time
>>             step, it is using the initial and only dx_6 forever.
>>             That's why your last varaibles do not move, somehow their
>>             speeds are never updated.
>>             for instance, dx(6)=((F+Fab+Floss)*(HION)),  // culture
>>             Volume V is constance in time (i guess)
>>
>>
>>
>>             On 05/10/2011 15:00, Jaundre Venter wrote:
>>>             Hi Adrien
>>>
>>>             i am new to SCILAB! I just want to say that.
>>>
>>>             Yes dx_1 is equal to dx1 but the only reason why i have
>>>             programmed it like that is becasue the ODE's looks as
>>>             follows - (see word file attached that can explain the
>>>             ODE"s better. with regards to the HION and CO it
>>>             actually refers to [H+] and CO2 as you said. the only
>>>             reason why n multiplied HION and CO wit hsome ODE's is
>>>             because some does have a influence on some ODE's.
>>>
>>>             This is the first time i am working with SCILAB thus i
>>>             am struggling to understand how SCILAB wants the code so
>>>             that all 9 ODE's are shown and so that the ODE's that is
>>>             having a effect on other does happen. I though if you
>>>             refer to dx(1) for example in a other ODE it means that
>>>             SCILAb will know the dx(1) has a influence on the other ODE.
>>>
>>>             The main goal of my assesment is to deliver similar
>>>             results obtained from MATLAB on SCILAB. all i got was
>>>             how the grpahs should look like and the ODE's.
>>>
>>>             On Wed, Oct 5, 2011 at 2:43 PM, Adrien Vogt-Schilb
>>>             <vogt at centre-cired.fr <mailto:vogt at centre-cired.fr>> wrote:
>>>
>>>                 Hi
>>>
>>>                 Try to isalote your problem
>>>                 if i understood well, the following code
>>>
>>>
>>>                 //  initial values
>>>                 x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
>>>                 t=0:0.005:400;
>>>                 y=ode(x0, 0, t, f);
>>>
>>>                 returns y such that sum(y(6:9,:)>x0) == 0 ?
>>>                 if this is true, we do not need the plots to solve
>>>                 the problem
>>>                 can you check that ?
>>>
>>>                 I believe the f function is erroneous.
>>>                 It seems that dx_1 should be equal to dx(1) at each
>>>                 time step, and that HION should be equal to x(2) at
>>>                 each time step, etc.
>>>
>>>                 in other terms, some of your phisical variables seem
>>>                 to be represented by to variables (i am guessing
>>>                 HION=[H+] and x(2)=[H+] also) but scilab does not
>>>                 have any chance to know that.
>>>                 if my guess is right, you have to rewrite the f
>>>                 function in a way that eliminates all references to
>>>                 HION, dx_1, dx_6 and so on
>>>
>>>
>>>                 On 05/10/2011 14:27, Jaundre Venter wrote:
>>>>                 Hi all
>>>>
>>>>                 Can someone please explain to me the following:
>>>>
>>>>                 I am busy with a project of simulation the
>>>>                 production of penicillin in a bio reactor. Now i
>>>>                 have 9 ODE's which i want to simulate.
>>>>
>>>>                 now for some reason the last three graphs i am
>>>>                 getting doesn't show any response what so ever. i
>>>>                 am using the following code.
>>>>
>>>>                 dx(1)=(((mu)*(x(1)))-(((x(1))/(x(6)))*((dx_6)))*(CO)*(HION)),
>>>>                 //biomass concentration X
>>>>                 dx(2)=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ)),
>>>>                 //hydrogen ion concentration H+
>>>>                 dx(3)=((((mupp)*(x(1)))-((K)*(x(3)))-((x(3))/(x(6)))*(dx_6))*(HION)),
>>>>                 //Penicilin concentration P
>>>>                 dx(4)=((-((mu)/(Yxs))*(x(1)))-(((mupp)/(Yps))*(x(1)))-((mx)*(x(1)))+((Fsf)/(x(6)))-((x(4)/(x(6)))*(dx_6))),
>>>>                 //Substrate concentration S
>>>>                 dx(5)=(-(((mu)/(Yxo))*(x(1)))-(((mupp)/(Ypo))*(x(1)))-(((mo))*(x(1)))+((kla)*(cll-(x(5))))-(((x(5))/(x(6)))*(dx_6))),
>>>>                 //dissolved oxygen
>>>>                 dx(6)=((F+Fab+Floss)*(HION)),  // culture Volume V
>>>>                 dx(7)=(((rq1)*(dx_1)*(x(6)))+(rq2)*(x(1))*(x(6))),
>>>>                 //Heat generation Qrxn
>>>>                 dx(8)=((((F)/(sf))*(Tf-(x(8))))+(1/((x(6))*(pcp)))*(QT)), 
>>>>                 //  Temperature T
>>>>                 dx(9)=(((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2
>>>>                 evolution, CO2
>>>>                 endfunction
>>>>
>>>>                 now when i ask for plotting the graphs i am using
>>>>                 the following.:
>>>>
>>>>                 //  initial values
>>>>                 x0=[0.1, 1e-5, 0, 15, 1.16, 100,0,297,0.5]';
>>>>                 t=0:0.005:400;
>>>>                 y=ode(x0, 0, t, f);
>>>>
>>>>                 // the plots of each variable
>>>>                 da.title.text="BIOMASS CONCENTRATION"
>>>>                 da.x_label.text="Time, hours";
>>>>                 da.y_label.text="X,g/l ";
>>>>                 scf(1);clf; //Opens and clears figure 1
>>>>                 plot(t,y(1,:))
>>>>
>>>>                 da.title.text="HYDROGEN ION H+ CONCENTRATION"
>>>>                 da.y_label.text="H+,mol/l ";
>>>>                 scf(2);clf; //Opens and clears figure 2
>>>>                 plot(t,y(2,:))
>>>>
>>>>                 da.title.text="PENICILLIN CONCENTRATION"
>>>>                 da.y_label.text="P,g/l ";
>>>>                 scf(3);clf; //Opens and clears figure 3
>>>>                 plot(t,y(3,:))
>>>>
>>>>                 da.title.text="SUBSTRATE CONCENTRATION"
>>>>                 da.y_label.text="S,g/l ";
>>>>                 scf(4);clf; //Opens and clears figure 4
>>>>                 plot(t,y(4,:))
>>>>
>>>>                 da.title.text="DISSOLVED OXYGEN CONCENTRATION"
>>>>                 da.y_label.text="C_l,g/l ";
>>>>                 scf(5);clf; //Opens and clears figure 5
>>>>                 plot(t,y(5,:))
>>>>
>>>>                 da.title.text="CULTURE VOLUME"
>>>>                 da.y_label.text="V,l";
>>>>                 scf(6);clf; //Opens and clears figure 6
>>>>                 plot(t,y(6,:))
>>>>
>>>>                 da.title.text="HEAT OF REACTION"
>>>>                 da.y_label.text="Qrxn,cal";
>>>>                 scf(7);
>>>>                 clf; //Opens and clears figure 7
>>>>                 plot(t,y(7),:)
>>>>
>>>>                 da.title.text="TEMPERATURE"
>>>>                 da.y_label.text="T,Kelvin";
>>>>                 scf(8);
>>>>                 clf; //Opens and clears figure 8
>>>>                 plot(t,y(8),:)
>>>>
>>>>                 da.title.text="CO2 EVOLUTION"
>>>>                 da.y_label.text="CO2,mmol/l/";
>>>>                 scf(9);
>>>>                 clf; //Opens and clears figure 9
>>>>                 plot(t,y(9),:)
>>>>
>>>>                 Am i doing something wrong? before the ODE's i have
>>>>                 just programmed the initial values and constants :
>>>>
>>>>                 funcprot(0);
>>>>                 function dx = f(t,x)
>>>>                 K1=1.0e-10         //mol/l
>>>>                 K2=7.0e-05         //mol/l
>>>>                 Kx=0.15            // Contois saturation constant, g/l
>>>>                 Kox=2e-02          // oxygen limitation constant
>>>>                 mux=0.092          // maitenance coefficient on
>>>>                 subsrate
>>>>                 p=3                //constant
>>>>                 Kp=0.0002          //   inhibition constant
>>>>                 Kop=2e-02      // oxygen limitation constant
>>>>                 K=0.04     //  Penicillin hydrolysis constant, per h
>>>>                 Yxs=0.45  //   yield constant,g biomass/g glucose =
>>>>                 dimensionless
>>>>                 Yps=0.90  //   yield constant, g pinicillin/ g
>>>>                 glucose = dimensionless
>>>>                 mx= 0.014  //   Maintenance coefficient on
>>>>                 substrate, per h
>>>>                 Yxo=0.04  //   yield constant, g biomass/g oxygen =
>>>>                 dimensionless
>>>>                 Ypo=0.20  //   yield constant, g penicillin/g
>>>>                 oxygen= dimensionless
>>>>                 mo= 0.467  //   maintenance coefficient of oxygen,
>>>>                 per h
>>>>                 mup=0.0005  // specific rate of penicilline
>>>>                 production (per h)
>>>>                 sf=600 // Feed substrate concentration, g/l
>>>>                 kla=23     // function of agitation power input and
>>>>                 oxugen flow rate, dimensional
>>>>                 cll=1.16   //  dissolved oxygen concentration, g/l
>>>>                 Cab=3      // concentrations in both solutions
>>>>                 Fa=5     // acid flow rate, l/h  !!
>>>>                 Fb=5      // base flow rate, l/h !!
>>>>                 delta_t=0.01   //  time step in digital PID
>>>>                 controller - arbitrary value!!!
>>>>                 z=10e-5     // constant
>>>>                 F=0.042       //  feed substrate flow rate l/h
>>>>                 T0=273         //  temperature at freezing, K
>>>>                 Tv=373       //  temperature at boiling
>>>>                 T=298  //  feed temp of substrate
>>>>                 h=(2.5e-4)     //  constant
>>>>                 Floss=(x(6)*(h)*(exp(5)*((T-T0)/(Tv-T0))))
>>>>                 Fab=Fa+Fb  // volume increase due to influx of acid
>>>>                 Fa and base Fb
>>>>                 Fsf=((sf)*(F))
>>>>                 kg= 7e-3 //  Arrhenius constant for growth
>>>>                 kd=10e33  //  Arrhenius constant for cell death
>>>>                 Eg= 5100  //  Activation energy for growth, cal/mol
>>>>                 Ed= 50000  //  Activation energy for cell death,
>>>>                 cal/mol
>>>>                 R= 1.987  //  gas constant, cal/mol k
>>>>                 T= 297  //  Temperature
>>>>                 RT= R*T
>>>>                 alpa= 70  //  constant in Kla
>>>>                 betha= 0.4  //  constant in Kla
>>>>                 Pw= 30  //  Agitation power input, W
>>>>                 fg= 8.6  //  Flow rate of oxygen
>>>>                 V=100  //  Volume
>>>>                 QE= ((kg*exp(-(Eg/RT)))-(kd*exp(-(Ed/RT))))
>>>>                 kla= alpa*((sqrt(fg)*(Pw/x(6)))^betha)
>>>>                 mu
>>>>                 =(((mux)/(1+((K1)/(x(2)))+((x(2))/(K2))))*((x(3))/(((Kx)*(x(1)))+(x(3))))*((x(5))/(((Kox)*(x(1)))+(x(5))))*(QE)) 
>>>>                 //  Specific growth rate
>>>>                 mupp =
>>>>                 ((mup)*((x(4))/((Kp)+(x(4))+(x(4)^2)/(K1)))*((x(5)^p)/((Kop)*(x(1)))+(x(5)^p))) 
>>>>                 // Specific penicillin production rate
>>>>                 B
>>>>                 =(((1e-14/x(2)-x(2))*x(6)-Cab*(Fa+Fb)*delta_t)/(x(6)+(Fa+Fb)*delta_t))
>>>>                 QQ =((-B+sqrt(B^2+4e-14))/2-(x(2)))*(1/delta_t)
>>>>                 dx_6 = (F+Fab+Floss) //Culture Volume V
>>>>                 dx_1 = (((mu)*(x(1)))-((x(1))/(x(6)))*(dx_6))
>>>>                 //biomass concentration X
>>>>                 rq1 = 60  //  yield of heat generation, cal/g biomass
>>>>                 rq2 = 1.6783e-4  //  Constant, cal/g biomass h
>>>>                 Tf = 296  //  substrate feed temperature, Kelvin
>>>>                 a = 1000   //  heat transfer coefficient of
>>>>                 cooling/heating liquid, cal/h degree C
>>>>                 b = 0.60   //  constant
>>>>                 Fc=0.1   //  Cooling water flow rate, not sure
>>>>                 about value, l/h
>>>>                 pcCpc = 1/2000   //  Density times heat capacity of
>>>>                 cooling liquid, per l degree C
>>>>                 pcp = 1/1500   //  density times heat capacity of
>>>>                 medium
>>>>                 QT =
>>>>                 ((x(7)-(((a)*(Fc^b+1))/((Fc)+((a)*(Fc^b))/2*pcCpc))))
>>>>                 a1=0.143  //  constant relating CO2 to growth, mmol
>>>>                 CO2/g biomass
>>>>                 a2=4e-7  //  Constant relating CO2 to mainteneance
>>>>                 energy, mmol CO2/g biomass h
>>>>                 a3=1e-4 //  Constant relating CO2 to penicillin
>>>>                 production, mmol CO2/l h
>>>>                 CO= (((a1)*(dx_1))+((a2)*(x(1)))+(a3)),  //  CO2
>>>>                 evolution, CO2
>>>>                 HION=((z*(((mu)*(x(1)))-(((F)*(x(1)))/(x(6)))))+(QQ))
>>>>
>>>>                 Thanks.
>>>
>>>
>>>                 -- 
>>>                 Adrien Vogt-Schilb (Cired)
>>>                 Tel: (+33) 1 43 94 *73 77*
>>>
>>>
>>
>>
>>             -- 
>>             Adrien Vogt-Schilb (Cired)
>>             Tel: (+33) 1 43 94 *73 77*
>>
>>
>>
>
>
>     -- 
>     Adrien Vogt-Schilb (Cired)
>     Tel: (+33) 1 43 94 *73 77*
>
>


-- 
Adrien Vogt-Schilb (Cired)
Tel: (+33) 1 43 94 *73 77*
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.scilab.org/pipermail/users/attachments/20111031/1be251b7/attachment.htm>