Menu
▾
▴
octave-dev
|
From: sissou <syl...@gm...> - 2006-08-14 15:40:43
|
Hello, Can someone add me as developper please, my sourceforge user id is sis-sou. Thanks. |
|
From: David B. <Dav...@mo...> - 2006-08-16 20:10:47
|
sissou wrote: > Hello, > > Can someone add me as developper please, my sourceforge user id is sis-sou. > Thanks. > Hi Sissou, In general it is fairly easy to get developer access to octave-forge, but its generally considered to be good etiquette to show some code to give an idea of what you want to add. I don't recognize you from the lists, though perhaps I missed something. Please send some code to discuss to the lists and then I'd have no trouble adding you... Cheers David |
|
From: sissou <syl...@gm...> - 2006-08-17 07:29:25
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
David Bateman a écrit :
<blockquote cite="mid...@mo..." type="cite">sissou
wrote:
<br>
<blockquote type="cite">Hello,
<br>
<br>
Can someone add me as developper please, my sourceforge user id is
sis-sou.
<br>
Thanks.
<br>
</blockquote>
<br>
Hi Sissou,
<br>
<br>
In general it is fairly easy to get developer access to octave-forge,
but its generally considered to be good etiquette to show some code to
give an idea of what you want to add. I don't recognize you from the
lists, though perhaps I missed something. Please send some code to
discuss to the lists and then I'd have no trouble adding you...
<br>
<br>
Cheers
<br>
David
<br>
<br>
<br>
<br>
</blockquote>
<font face="DejaVu Sans">Ok, so I wrote <i>expint_Ei,</i> <i>expint_E1</i>
ant <i>expint </i></font><font face="DejaVu Sans">functions </font><font
face="DejaVu Sans"><i>(expint is expint_E1 but I did it only for
matlab compatibility)</i>.<br>
This is the code :</font><br>
<div align="left"><br>
<font face="DejaVu Sans">expint_Ei.m :</font><br>
<br>
</div>
<font face="DejaVu Sans"><i>## Copyright (C) 2006 Sissou
<a class="moz-txt-link-rfc2396E" href="mailto:syl...@gm..."><syl...@gm...></a><br>
##<br>
## This program is free software; you can redistribute it and/or modify<br>
## it under the terms of the GNU General Public License as published by<br>
## the Free Software Foundation; either version 2 of the License, or<br>
## (at your option) any later version.<br>
##<br>
## This program is distributed in the hope that it will be useful,<br>
## but WITHOUT ANY WARRANTY; without even the implied warranty of<br>
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the<br>
## GNU General Public License for more details.<br>
##<br>
## You should have received a copy of the GNU General Public License<br>
## along with this program; if not, write to the Free Software<br>
## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
02111-1307 USA<br>
<br>
## EXPINT_EI compute the exponential integral,<br>
##<br>
## infinity<br>
## /<br>
## expint(x) = - | exp(t)/t dt<br>
## /<br>
## -x<br>
##<br>
## See also expint, expint_E1.<br>
<br>
function y = expint_Ei(x)<br>
if (nargin != 1)<br>
usage ("expint_Ei(x)");<br>
endif<br>
<br>
if(x<0)<br>
y = -quad("expintbase",-x,Inf);<br>
else<br>
y = 0;<br>
for i = 1:100;<br>
y = y + x.^i./(i.*factorial(i));<br>
endfor<br>
<br>
y = 0.577215664901532860606512090082402431 + log(x) + y;<br>
endif;<br>
endfunction;<br>
<br>
expint_E1.m :<br>
<br>
## Copyright (C) 2006 Sissou <a class="moz-txt-link-rfc2396E" href="mailto:syl...@gm..."><syl...@gm...></a><br>
##<br>
## This program is free software; you can redistribute it and/or modify<br>
## it under the terms of the GNU General Public License as published by<br>
## the Free Software Foundation; either version 2 of the License, or<br>
## (at your option) any later version.<br>
##<br>
## This program is distributed in the hope that it will be useful,<br>
## but WITHOUT ANY WARRANTY; without even the implied warranty of<br>
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the<br>
## GNU General Public License for more details.<br>
##<br>
## You should have received a copy of the GNU General Public License<br>
## along with this program; if not, write to the Free Software<br>
## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
02111-1307 USA<br>
<br>
## EXPINT_E1 compute the exponential integral,<br>
##<br>
## infinity<br>
## /<br>
## expint(x) = | exp(t)/t dt<br>
## /<br>
## x<br>
##<br>
## See also expint_Ei, expint.<br>
<br>
function v = expint_E1(x)<br>
if (nargin != 1)<br>
usage ("expint_E1(x)");<br>
endif<br>
if(x > 0 && imag(x) == 0)<br>
v = -expint_Ei(-x);<br>
else<br>
v = -expint_Ei(-x) - i.*pi;<br>
endif<br>
endfunction<br>
<br>
expint.m :<br>
<br>
## Copyright (C) 2006 Sissou <a class="moz-txt-link-rfc2396E" href="mailto:syl...@gm..."><syl...@gm...></a><br>
##<br>
## This program is free software; you can redistribute it and/or modify<br>
## it under the terms of the GNU General Public License as published by<br>
## the Free Software Foundation; either version 2 of the License, or<br>
## (at your option) any later version.<br>
##<br>
## This program is distributed in the hope that it will be useful,<br>
## but WITHOUT ANY WARRANTY; without even the implied warranty of<br>
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the<br>
## GNU General Public License for more details.<br>
##<br>
## You should have received a copy of the GNU General Public License<br>
## along with this program; if not, write to the Free Software<br>
## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
02111-1307 USA<br>
<br>
## EXPINT compute the exponential integral,<br>
##<br>
## infinity<br>
## /<br>
## expint(x) = | exp(t)/t dt<br>
## /<br>
## x<br>
##<br>
## See also expint_Ei, expint_E1.<br>
<br>
function y = expint(x)<br>
if (nargin != 1)<br>
usage ("expint(x)");<br>
endif<br>
y = expint_E1(x);<br>
endfuncion;<br>
<br>
</i>And after that I would like to make some other special functions
and work one the fill function because it's very ugly.<br>
Sorry for didn't explain that before.<br>
</font>
</body>
</html>
|
|
From: Sissou s. <syl...@gm...> - 2006-08-17 08:11:42
|
I'm sorry I forgot one file :
expintbase.m:
## Copyright (C) 2006 Sissou <syl...@gm...>
##
## This program is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to the Free Software
## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 US=
A
## EXPINT compute the the function :
##
## expintbase(x) =3D exp(t)/t dt
##
## See also expint_Ei, expint_E1, expint.
function y =3D expintbase(x)
if (nargin !=3D 1)
usage ("expintbase(x)");
endif
y =3D exp(-x)./x;
endfunction
2006/8/17, sissou <syl...@gm...>:
>
> David Bateman a =E9crit :
>
> sissou wrote:
>
> Hello,
>
> Can someone add me as developper please, my sourceforge user id is
> sis-sou.
> Thanks.
>
>
>
> Hi Sissou,
>
> In general it is fairly easy to get developer access to octave-forge, but
> its generally considered to be good etiquette to show some code to give a=
n
> idea of what you want to add. I don't recognize you from the lists, thou=
gh
> perhaps I missed something. Please send some code to discuss to the lists
> and then I'd have no trouble adding you...
>
> Cheers
> David
>
>
>
> Ok, so I wrote *expint_Ei,* *expint_E1* ant *expint *functions *(expint
> is expint_E1 but I did it only for matlab compatibility)*.
> This is the code :
>
> expint_Ei.m :
>
> *## Copyright (C) 2006 Sissou <syl...@gm...><sylvain.=
pel...@gm...>
> ##
> ## This program is free software; you can redistribute it and/or modify
> ## it under the terms of the GNU General Public License as published by
> ## the Free Software Foundation; either version 2 of the License, or
> ## (at your option) any later version.
> ##
> ## This program is distributed in the hope that it will be useful,
> ## but WITHOUT ANY WARRANTY; without even the implied warranty of
> ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> ## GNU General Public License for more details.
> ##
> ## You should have received a copy of the GNU General Public License
> ## along with this program; if not, write to the Free Software
> ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
> USA
>
> ## EXPINT_EI compute the exponential integral,
> ##
> ## infinity
> ## /
> ## expint(x) =3D - | exp(t)/t dt
> ## /
> ## -x
> ##
> ## See also expint, expint_E1.
>
> function y =3D expint_Ei(x)
> if (nargin !=3D 1)
> usage ("expint_Ei(x)");
> endif
>
> if(x<0)
> y =3D -quad("expintbase",-x,Inf);
> else
> y =3D 0;
> for i =3D 1:100;
> y =3D y + x.^i./(i.*factorial(i));
> endfor
>
> y =3D 0.577215664901532860606512090082402431 + log(x) + y;
> endif;
> endfunction;
>
> expint_E1.m :
>
> ## Copyright (C) 2006 Sissou <syl...@gm...><sylvain.pe=
li...@gm...>
> ##
> ## This program is free software; you can redistribute it and/or modify
> ## it under the terms of the GNU General Public License as published by
> ## the Free Software Foundation; either version 2 of the License, or
> ## (at your option) any later version.
> ##
> ## This program is distributed in the hope that it will be useful,
> ## but WITHOUT ANY WARRANTY; without even the implied warranty of
> ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> ## GNU General Public License for more details.
> ##
> ## You should have received a copy of the GNU General Public License
> ## along with this program; if not, write to the Free Software
> ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
> USA
>
> ## EXPINT_E1 compute the exponential integral,
> ##
> ## infinity
> ## /
> ## expint(x) =3D | exp(t)/t dt
> ## /
> ## x
> ##
> ## See also expint_Ei, expint.
>
> function v =3D expint_E1(x)
> if (nargin !=3D 1)
> usage ("expint_E1(x)");
> endif
> if(x > 0 && imag(x) =3D=3D 0)
> v =3D -expint_Ei(-x);
> else
> v =3D -expint_Ei(-x) - i.*pi;
> endif
> endfunction
>
> expint.m :
>
> ## Copyright (C) 2006 Sissou <syl...@gm...><sylvain.pe=
li...@gm...>
> ##
> ## This program is free software; you can redistribute it and/or modify
> ## it under the terms of the GNU General Public License as published by
> ## the Free Software Foundation; either version 2 of the License, or
> ## (at your option) any later version.
> ##
> ## This program is distributed in the hope that it will be useful,
> ## but WITHOUT ANY WARRANTY; without even the implied warranty of
> ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> ## GNU General Public License for more details.
> ##
> ## You should have received a copy of the GNU General Public License
> ## along with this program; if not, write to the Free Software
> ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
> USA
>
> ## EXPINT compute the exponential integral,
> ##
> ## infinity
> ## /
> ## expint(x) =3D | exp(t)/t dt
> ## /
> ## x
> ##
> ## See also expint_Ei, expint_E1.
>
> function y =3D expint(x)
> if (nargin !=3D 1)
> usage ("expint(x)");
> endif
> y =3D expint_E1(x);
> endfuncion;
>
> *And after that I would like to make some other special functions and wor=
k
> one the fill function because it's very ugly.
> Sorry for didn't explain that before.
>
|
×
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.
Thanks for helping keep SourceForge clean.
X