* Bug 16021 fixed: tand(90) cotd(90) 1/cosd(90) were wrong 13/20913/4
Samuel GOUGEON [Fri, 29 Mar 2019 21:11:55 +0000 (22:11 +0100)]
  http://bugzilla.scilab.org/16021

Change-Id: Ia906c625d2aac46e31c0f040fec5a2d93692c86c

24 files changed:
scilab/CHANGES.md
scilab/modules/elementary_functions/help/en_US/trigonometry/cosd.xml
scilab/modules/elementary_functions/help/en_US/trigonometry/cotd.xml
scilab/modules/elementary_functions/help/en_US/trigonometry/tand.xml
scilab/modules/elementary_functions/help/fr_FR/trigonometry/cosd.xml
scilab/modules/elementary_functions/help/fr_FR/trigonometry/cotd.xml
scilab/modules/elementary_functions/help/ja_JP/trigonometry/cosd.xml
scilab/modules/elementary_functions/help/ja_JP/trigonometry/cotd.xml
scilab/modules/elementary_functions/help/ja_JP/trigonometry/tand.xml
scilab/modules/elementary_functions/help/pt_BR/trigonometry/cosd.xml
scilab/modules/elementary_functions/help/pt_BR/trigonometry/cotd.xml
scilab/modules/elementary_functions/help/pt_BR/trigonometry/tand.xml
scilab/modules/elementary_functions/help/ru_RU/trigonometry/cosd.xml
scilab/modules/elementary_functions/help/ru_RU/trigonometry/cotd.xml
scilab/modules/elementary_functions/help/ru_RU/trigonometry/tand.xml
scilab/modules/elementary_functions/macros/cosd.sci
scilab/modules/elementary_functions/macros/cotd.sci
scilab/modules/elementary_functions/macros/tand.sci
scilab/modules/elementary_functions/tests/unit_tests/cosd.dia.ref [deleted file]
scilab/modules/elementary_functions/tests/unit_tests/cosd.tst
scilab/modules/elementary_functions/tests/unit_tests/cotd.dia.ref [deleted file]
scilab/modules/elementary_functions/tests/unit_tests/cotd.tst
scilab/modules/elementary_functions/tests/unit_tests/tand.dia.ref [deleted file]
scilab/modules/elementary_functions/tests/unit_tests/tand.tst

index f510352..bc57eb9 100644 (file)
@@ -149,3 +149,4 @@ Bug Fixes
 * [#15523](http://bugzilla.scilab.org/show_bug.cgi?id=15523): `%ODEOPTIONS(1)=2` didn't work with solvers 'rk' and 'rkf' 
 * [#15577](http://bugzilla.scilab.org/show_bug.cgi?id=15577): `edit` did not accept a line number as text, as with `edit linspace 21`.
 * [#16005](http://bugzilla.scilab.org/show_bug.cgi?id=16005): The `intdec` example was biased and not robust when changing sampling frequencies.
+* [#16021](http://bugzilla.scilab.org/show_bug.cgi?id=16021): `tand([-90 90])` answered [Nan Nan] instead of [-Inf, Inf]. `cotd([-90 90])` answered [Nan Nan] instead of [0 0]. `1 ./cosd([-90 90])` answered [Inf -Inf] instead of [Inf Inf].
index ce23fa9..3fc4b5c 100644 (file)
@@ -2,8 +2,8 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
+ * Copyright (C) 2019 - Samuel GOUGEON
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * along with this program.
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org"  xml:id="cosd" xml:lang="en">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org"  xml:id="cosd" xml:lang="en">
     <refnamediv>
         <refname>cosd</refname>
         <refpurpose>element-wise cosine function, argument in degree</refpurpose>
     <refsection>
         <title>Examples</title>
         <programlisting role="example"><![CDATA[
-x=[0,30 45 60 90 360];
-cosd(x)
+cosd([0 30 45 60 90 360])
+1 ./ cosd([-90 90])
  ]]></programlisting>
+    <screen><![CDATA[
+--> cosd([0 30 45 60 90 360])
+ ans  =
+   1.   0.8660254   0.7071068   0.5   0.   1.
+
+--> 1 ./ cosd([-90 90])
+ ans  =
+   Inf   Inf
+]]></screen>
     </refsection>
     <refsection role="see also">
         <title>See also</title>
         <simplelist type="inline">
             <member>
+                <link linkend="acosd">acosd</link>
+            </member>
+            <member>
                 <link linkend="cos">cos</link>
             </member>
+            <member>
+                <link linkend="acos">acos</link>
+            </member>
+            <member>
+                <link linkend="cosh">cosh</link>
+            </member>
+            <member>
+                <link linkend="acosh">acosh</link>
+            </member>
         </simplelist>
     </refsection>
 </refentry>
index 6732f95..c990053 100644 (file)
@@ -2,8 +2,8 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
+ * Copyright (C) 2019 - Samuel GOUGEON
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * along with this program.
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org"  xml:id="cotd" xml:lang="en">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org"  xml:id="cotd" xml:lang="en">
     <refnamediv>
         <refname>cotd</refname>
         <refpurpose>element-wise cotangent function, argument in degree</refpurpose>
@@ -47,7 +50,7 @@
             The entries of <varname>y</varname> are the cotangents of the
             corresponding entries of <varname>x</varname> supposed to be given in
             degree. <code>t=cos(x)./sin(x)</code>. For entries equal to
-            <literal>n*180</literal> with <literal>n</literal> integers the results
+            <literal>n*180</literal> with <literal>n</literal> integer, the results
             are infinite, whereas <code>cotg(n*%pi)</code> is large but finite
             because <constant>%pi</constant> cannot be represented exactly. For entries
             equal to <literal>n*90</literal> with <literal>n</literal> integers and
     <refsection>
         <title>Examples</title>
         <programlisting role="example"><![CDATA[
-x=[30 45 60 90];
-cotd(x)
+cotd([30 45 60 90])
+cotd([-180 -90 0 90 180])
  ]]></programlisting>
+    <screen><![CDATA[
+--> cotd([30 45 60 90])
+ ans  =
+   1.7320508   1.   0.5773503   0.
+
+--> cotd([-180 -90 0 90 180])
+ ans  =
+   Inf   0.   Inf   0.   Inf
+]]></screen>
     </refsection>
     <refsection role="see also">
         <title>See also</title>
@@ -67,6 +79,15 @@ cotd(x)
             <member>
                 <link linkend="cotg">cotg</link>
             </member>
+            <member>
+                <link linkend="coth">coth</link>
+            </member>
+            <member>
+                <link linkend="tan">tan</link>
+            </member>
+            <member>
+                <link linkend="tand">tand</link>
+            </member>
         </simplelist>
     </refsection>
 </refentry>
index 50882d2..2ada163 100644 (file)
@@ -2,8 +2,8 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
+ * Copyright (C) 2019 - Samuel GOUGEON
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * along with this program.
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org"  xml:id="tand" xml:lang="en">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org"  xml:id="tand" xml:lang="en">
     <refnamediv>
         <refname>tand</refname>
         <refpurpose>tangent, argument in degree.</refpurpose>
     <refsection>
         <title>Examples</title>
         <programlisting role="example"><![CDATA[
-mod=ieee();ieee(2);
-x=[0,30 45 60 90 360];
-tand(x);
-ieee(mod);
+tand([0 30 45 60 90])
+tand([-90 0 90 180 270 360])
  ]]></programlisting>
+    <screen><![CDATA[
+--> tand([0 30 45 60 90])
+ ans  =
+   0.   0.5773503   1.   1.7320508   Inf
+
+--> tand([-90 0 90 180 270 360])
+ ans  =
+  -Inf   0.   Inf   0.  -Inf   0.
+]]></screen>
     </refsection>
     <refsection role="see also">
         <title>See also</title>
         <simplelist type="inline">
             <member>
+                <link linkend="atand">atand</link>
+            </member>
+            <member>
                 <link linkend="atan">atan</link>
             </member>
             <member>
                 <link linkend="tan">tan</link>
             </member>
+            <member>
+                <link linkend="tanh">tanh</link>
+            </member>
         </simplelist>
     </refsection>
 </refentry>
index ce90635..c8eb115 100644 (file)
@@ -2,9 +2,9 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
- *
+ * Copyright (C) 2019 - Samuel GOUGEON
+*
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * This file was originally licensed under the terms of the CeCILL v2.1,
  * along with this program.
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="cosd" xml:lang="fr">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:id="cosd" xml:lang="fr">
     <refnamediv>
         <refname>cosd</refname>
         <refpurpose>cosinus des éléments de l'argument donnés en
     <refsection>
         <title>Exemples</title>
         <programlisting role="example"><![CDATA[
-x=[0,30 45 60 90 360];
-cosd(x)
+cosd([0 30 45 60 90 360])
+1 ./ cosd([-90 90])
  ]]></programlisting>
+    <screen><![CDATA[
+--> cosd([0 30 45 60 90 360])
+ ans  =
+   1.   0.8660254   0.7071068   0.5   0.   1.
+
+--> 1 ./ cosd([-90 90])
+ ans  =
+   Inf   Inf
+]]></screen>
     </refsection>
     <refsection role="see also">
         <title>Voir aussi</title>
         <simplelist type="inline">
             <member>
+                <link linkend="acosd">acosd</link>
+            </member>
+            <member>
                 <link linkend="cos">cos</link>
             </member>
+            <member>
+                <link linkend="acos">acos</link>
+            </member>
+            <member>
+                <link linkend="cosh">cosh</link>
+            </member>
+            <member>
+                <link linkend="acosh">acosh</link>
+            </member>
         </simplelist>
     </refsection>
 </refentry>
index 73bf0bf..ee4cd50 100644 (file)
@@ -2,8 +2,8 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
+* Copyright (C) 2019 - Samuel GOUGEON
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * along with this program.
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="cotd" xml:lang="fr">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:id="cotd" xml:lang="fr">
     <refnamediv>
         <refname>cotd</refname>
         <refpurpose>cotangent des éléments de l'argument donné en
@@ -22,7 +25,7 @@
     </refnamediv>
     <refsynopsisdiv>
         <title>Séquence d'appel</title>
-        <synopsis>y=cotg(x)</synopsis>
+        <synopsis>y = cotg(x)</synopsis>
     </refsynopsisdiv>
     <refsection>
         <title>Paramètres</title>
     <refsection>
         <title>Exemples</title>
         <programlisting role="example"><![CDATA[
-x=[30 45 60 90];
-cotd(x)
+cotd([30 45 60 90])
+cotd([-180 -90 0 90 180])
  ]]></programlisting>
+    <screen><![CDATA[
+--> cotd([30 45 60 90])
+ ans  =
+   1.7320508   1.   0.5773503   0.
+
+--> cotd([-180 -90 0 90 180])
+ ans  =
+   Inf   0.   Inf   0.   Inf
+]]></screen>
     </refsection>
     <refsection role="see also">
         <title>Voir aussi</title>
@@ -70,6 +82,15 @@ cotd(x)
             <member>
                 <link linkend="cotg">cotg</link>
             </member>
+            <member>
+                <link linkend="coth">coth</link>
+            </member>
+            <member>
+                <link linkend="tan">tan</link>
+            </member>
+            <member>
+                <link linkend="tand">tand</link>
+            </member>
         </simplelist>
     </refsection>
 </refentry>
index 0e04601..73c67c4 100644 (file)
@@ -1,10 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
+* Copyright (C) 2019 - Samuel GOUGEON
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * along with this program.
  *
  -->
-
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org"  xml:id="cosd" xml:lang="ja">
-
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org"  xml:id="cosd" xml:lang="ja">
     <refnamediv>
-
         <refname>cosd</refname>
-
         <refpurpose>要素毎の余弦(引数の単位:度)</refpurpose>
-
     </refnamediv>
-
     <refsynopsisdiv>
-
         <title>呼び出し手順</title>
-
         <synopsis>y=cosd(x)</synopsis>
-
     </refsynopsisdiv>
-
     <refsection>
-
         <title>引数</title>
-
         <variablelist>
-
             <varlistentry>
-
                 <term>x</term>
-
                 <listitem>
-
                     <para>実数ベクトル/行列</para>
-
                 </listitem>
-
             </varlistentry>
-
         </variablelist>
-
     </refsection>
-
     <refsection>
-
         <title>説明</title>
-
         <para>
-
             ベクトルまたは行列<literal>x</literal>に角度(単位:度)が
-
             指定されると,
-
             <code>cosd(x)</code>は各要素の余弦となります.
-
             結果は <literal>[-1 1]</literal>の範囲となります.
-
             入力要素が<literal>n*90</literal>
-
             (<literal>n</literal>は奇数の整数)に等しい
-
             場合,結果は完全にゼロとなります.
-
         </para>
-
     </refsection>
-
     <refsection>
-
         <title>サンプル</title>
-
         <scilab:image>
-
             x=-360:1:360
-
             plot(x,cosd(x))
-
         </scilab:image>
-
     </refsection>
-
     <refsection>
-
         <title>例</title>
-
         <programlisting role="example"><![CDATA[
-x=[0,30 45 60 90 360];
-cosd(x)
+cosd([0 30 45 60 90 360])
+1 ./ cosd([-90 90])
  ]]></programlisting>
-
+    <screen><![CDATA[
+--> cosd([0 30 45 60 90 360])
+ ans  =
+   1.   0.8660254   0.7071068   0.5   0.   1.
+
+--> 1 ./ cosd([-90 90])
+ ans  =
+   Inf   Inf
+]]></screen>
     </refsection>
-
     <refsection>
-
         <title>参照</title>
-
         <simplelist type="inline">
-
             <member>
-
+                <link linkend="acosd">acosd</link>
+            </member>
+            <member>
                 <link linkend="cos">cos</link>
-
             </member>
-
+            <member>
+                <link linkend="acos">acos</link>
+            </member>
+            <member>
+                <link linkend="cosh">cosh</link>
+            </member>
+            <member>
+                <link linkend="acosh">acosh</link>
+            </member>
         </simplelist>
-
     </refsection>
-
-</refentry>
-
+</refentry>
\ No newline at end of file
index 04d1a12..d6a6719 100644 (file)
@@ -1,10 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
+ * Copyright (C) 2019 - Samuel GOUGEON
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * along with this program.
  *
  -->
-
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="cotd" xml:lang="ja">
-
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:id="cotd" xml:lang="ja">
     <refnamediv>
-
         <refname>cotd</refname>
-
         <refpurpose>コタンジェント(余接,引数の単位:度)</refpurpose>
-
     </refnamediv>
-
     <refsynopsisdiv>
-
         <title>呼び出し手順</title>
-
-        <synopsis>y=cotd(x)</synopsis>
-
+        <synopsis>y = cotd(x)</synopsis>
     </refsynopsisdiv>
-
     <refsection>
-
         <title>引数</title>
-
         <variablelist>
-
             <varlistentry>
-
                 <term>x</term>
-
                 <listitem>
-
                     <para>実数配列.</para>
-
                 </listitem>
-
             </varlistentry>
-
             <varlistentry>
-
                 <term>y</term>
-
                 <listitem>
-
                     <para>
-
                         <varname>x</varname>と同じ次元の実数配列.
-
                     </para>
-
                 </listitem>
-
             </varlistentry>
-
         </variablelist>
-
     </refsection>
-
     <refsection>
-
         <title>説明</title>
-
         <para>
-
             <varname>y</varname>のエントリは,<varname>x</varname>
-
             (単位は度と仮定)
-
             の対応するエントリのコタンジェント,
-
             <code>t=cos(x)./sin(x)</code>となります.
-
             整数<literal>n</literal>について<literal>n*180</literal>
-
             に等しいエントリは無限大となります.
-
             一方,<constant>%pi</constant>を正確に表現できないため,
-
             <code>cotg(n*%pi)</code>は大きいですが有限となります.
-
             エントリが整数で奇数の<literal>n</literal>について
-
             <literal>n*90</literal>に
-
             等しい場合,結果は厳密に<literal>0</literal>となります.
-
         </para>
-
     </refsection>
-
     <refsection>
-
         <title>例</title>
-
         <programlisting role="example"><![CDATA[
-x=[30 45 60 90];
-cotd(x)
+cotd([30 45 60 90])
+cotd([-180 -90 0 90 180])
  ]]></programlisting>
-
+    <screen><![CDATA[
+--> cotd([30 45 60 90])
+ ans  =
+   1.7320508   1.   0.5773503   0.
+
+--> cotd([-180 -90 0 90 180])
+ ans  =
+   Inf   0.   Inf   0.   Inf
+]]></screen>
     </refsection>
-
     <refsection role="see also">
-
         <title>参照</title>
-
         <simplelist type="inline">
-
             <member>
-
                 <link linkend="cotg">cotg</link>
-
             </member>
-
+            <member>
+                <link linkend="coth">coth</link>
+            </member>
+            <member>
+                <link linkend="tan">tan</link>
+            </member>
+            <member>
+                <link linkend="tand">tand</link>
+            </member>
         </simplelist>
-
     </refsection>
-
-</refentry>
-
+</refentry>
\ No newline at end of file
index f2fe332..719a930 100644 (file)
@@ -1,10 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
+ * Copyright (C) 2019 - Samuel GOUGEON
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * along with this program.
  *
  -->
-
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="tand" xml:lang="ja">
-
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:id="tand" xml:lang="ja">
     <refnamediv>
-
         <refname>tand</refname>
-
         <refpurpose>正接 (単位: 度)</refpurpose>
-
     </refnamediv>
-
     <refsynopsisdiv>
-
         <title>呼び出し手順</title>
-
         <synopsis>t = tand(x)</synopsis>
-
     </refsynopsisdiv>
-
     <refsection>
-
         <title>引数</title>
-
         <variablelist>
-
             <varlistentry>
-
                 <term>x</term>
-
                 <listitem>
-
                     <para>実数のベクトルまたは行列</para>
-
                 </listitem>
-
             </varlistentry>
-
             <varlistentry>
-
                 <term>t</term>
-
                 <listitem>
-
                     <para>実数のベクトルまたは行列</para>
-
                 </listitem>
-
             </varlistentry>
-
         </variablelist>
-
     </refsection>
-
     <refsection>
-
         <title>説明</title>
-
         <para>
-
             <varname>t</varname>の要素は,
-
             <varname>x</varname>(単位:deg)の要素の正接となります.
-
         </para>
-
     </refsection>
-
     <refsection>
-
         <title>例</title>
-
         <programlisting role="example"><![CDATA[
-mod=ieee();ieee(2);
-x=[0,30 45 60 90 360];
-tand(x);
-ieee(mod);
+tand([0 30 45 60 90])
+tand([-90 0 90 180 270 360])
  ]]></programlisting>
-
+    <screen><![CDATA[
+--> tand([0 30 45 60 90])
+ ans  =
+   0.   0.5773503   1.   1.7320508   Inf
+
+--> tand([-90 0 90 180 270 360])
+ ans  =
+  -Inf   0.   Inf   0.  -Inf   0.
+]]></screen>
     </refsection>
-
     <refsection role="see also">
-
         <title>参照</title>
-
         <simplelist type="inline">
-
             <member>
-
+                <link linkend="atand">atand</link>
+            </member>
+            <member>
                 <link linkend="atan">atan</link>
-
             </member>
-
             <member>
-
                 <link linkend="tan">tan</link>
-
             </member>
-
+            <member>
+                <link linkend="tanh">tanh</link>
+            </member>
         </simplelist>
-
     </refsection>
-
-</refentry>
-
+</refentry>
\ No newline at end of file
index 961f538..3d0d112 100644 (file)
@@ -2,8 +2,8 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
+ * Copyright (C) 2019 - Samuel GOUGEON
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * along with this program.
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="cosd" xml:lang="pt">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:id="cosd" xml:lang="pt">
     <refnamediv>
         <refname>cosd</refname>
         <refpurpose>função co-seno elemento a elemento, argumento dado em
     <refsection>
         <title>Exemplos</title>
         <programlisting role="example"><![CDATA[
-x=[0,30 45 60 90 360];
-cosd(x)
+cosd([0 30 45 60 90 360])
+1 ./ cosd([-90 90])
  ]]></programlisting>
+    <screen><![CDATA[
+--> cosd([0 30 45 60 90 360])
+ ans  =
+   1.   0.8660254   0.7071068   0.5   0.   1.
+
+--> 1 ./ cosd([-90 90])
+ ans  =
+   Inf   Inf
+]]></screen>
     </refsection>
     <refsection>
         <title>Ver Também</title>
         <simplelist type="inline">
             <member>
+                <link linkend="acosd">acosd</link>
+            </member>
+            <member>
                 <link linkend="cos">cos</link>
             </member>
+            <member>
+                <link linkend="acos">acos</link>
+            </member>
+            <member>
+                <link linkend="cosh">cosh</link>
+            </member>
+            <member>
+                <link linkend="acosh">acosh</link>
+            </member>
         </simplelist>
     </refsection>
 </refentry>
index 3cd4276..93c61dd 100644 (file)
@@ -2,8 +2,8 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
+ * Copyright (C) 2019 - Samuel GOUGEON
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * along with this program.
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns3="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="cotd" xml:lang="pt">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns3="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:id="cotd" xml:lang="pt">
     <refnamediv>
         <refname>cotd</refname>
         <refpurpose>cotangent elemento a elemento do argumento dado em
@@ -22,7 +25,7 @@
     </refnamediv>
     <refsynopsisdiv>
         <title>Seqüência de Chamamento</title>
-        <synopsis>y=cotd(x)</synopsis>
+        <synopsis>y = cotd(x)</synopsis>
     </refsynopsisdiv>
     <refsection>
         <title>Parâmetros</title>
     <refsection>
         <title>Exemplos</title>
         <programlisting role="example"><![CDATA[
-x=[30 45 60 90];
-cotd(x)
+cotd([30 45 60 90])
+cotd([-180 -90 0 90 180])
  ]]></programlisting>
+    <screen><![CDATA[
+--> cotd([30 45 60 90])
+ ans  =
+   1.7320508   1.   0.5773503   0.
+
+--> cotd([-180 -90 0 90 180])
+ ans  =
+   Inf   0.   Inf   0.   Inf
+]]></screen>
     </refsection>
     <refsection role="see also">
         <title>Ver Também</title>
@@ -69,6 +81,15 @@ cotd(x)
             <member>
                 <link linkend="cotg">cotg</link>
             </member>
+            <member>
+                <link linkend="coth">coth</link>
+            </member>
+            <member>
+                <link linkend="tan">tan</link>
+            </member>
+            <member>
+                <link linkend="tand">tand</link>
+            </member>
         </simplelist>
     </refsection>
 </refentry>
index d14353c..1baeb13 100644 (file)
@@ -2,8 +2,8 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
+ * Copyright (C) 2019 - Samuel GOUGEON
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * along with this program.
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="tand" xml:lang="pt">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:id="tand" xml:lang="pt">
     <refnamediv>
         <refname>tand</refname>
         <refpurpose>tangente com o argumento em graus</refpurpose>
     <refsection>
         <title>Exemplos</title>
         <programlisting role="example"><![CDATA[
-mod=ieee();ieee(2);
-x=[0,30 45 60 90 360];
-tand(x)
-ieee(mod)
+tand([0 30 45 60 90])
+tand([-90 0 90 180 270 360])
  ]]></programlisting>
+    <screen><![CDATA[
+--> tand([0 30 45 60 90])
+ ans  =
+   0.   0.5773503   1.   1.7320508   Inf
+
+--> tand([-90 0 90 180 270 360])
+ ans  =
+  -Inf   0.   Inf   0.  -Inf   0.
+]]></screen>
     </refsection>
     <refsection>
         <title>Ver Também</title>
         <simplelist type="inline">
             <member>
+                <link linkend="atand">atand</link>
+            </member>
+            <member>
                 <link linkend="atan">atan</link>
             </member>
             <member>
                 <link linkend="tan">tan</link>
             </member>
+            <member>
+                <link linkend="tanh">tanh</link>
+            </member>
         </simplelist>
     </refsection>
 </refentry>
index a603e16..1c786d2 100644 (file)
@@ -2,8 +2,8 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
+ * Copyright (C) 2019 - Samuel GOUGEON
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * along with this program.
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="cosd" xml:lang="ru">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:id="cosd" xml:lang="ru">
     <refnamediv>
         <refname>cosd</refname>
         <refpurpose>поэлементная функция косинус, аргумент в градусах</refpurpose>
     <refsection>
         <title>Примеры</title>
         <programlisting role="example"><![CDATA[
-x=[0,30 45 60 90 360];
-cosd(x)
+cosd([0 30 45 60 90 360])
+1 ./ cosd([-90 90])
  ]]></programlisting>
+    <screen><![CDATA[
+--> cosd([0 30 45 60 90 360])
+ ans  =
+   1.   0.8660254   0.7071068   0.5   0.   1.
+
+--> 1 ./ cosd([-90 90])
+ ans  =
+   Inf   Inf
+]]></screen>
     </refsection>
     <refsection role="see also">
         <title>Смотрите также</title>
         <simplelist type="inline">
             <member>
+                <link linkend="acosd">acosd</link>
+            </member>
+            <member>
                 <link linkend="cos">cos</link>
             </member>
+            <member>
+                <link linkend="acos">acos</link>
+            </member>
+            <member>
+                <link linkend="cosh">cosh</link>
+            </member>
+            <member>
+                <link linkend="acosh">acosh</link>
+            </member>
         </simplelist>
     </refsection>
 </refentry>
index 21a71b2..7d38817 100644 (file)
@@ -2,8 +2,8 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
+ * Copyright (C) 2019 - Samuel GOUGEON
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * along with this program.
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="cotd" xml:lang="ru">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:id="cotd" xml:lang="ru">
     <refnamediv>
         <refname>cotd</refname>
         <refpurpose>поэлементный котангенс, аргумент в градусах</refpurpose>
     </refnamediv>
     <refsynopsisdiv>
         <title>Синтаксис</title>
-        <synopsis>y=cotd(x)</synopsis>
+        <synopsis>y = cotd(x)</synopsis>
     </refsynopsisdiv>
     <refsection>
         <title>Аргументы</title>
     <refsection>
         <title>Примеры</title>
         <programlisting role="example"><![CDATA[
-x=[30 45 60 90];
-cotd(x)
+cotd([30 45 60 90])
+cotd([-180 -90 0 90 180])
  ]]></programlisting>
+    <screen><![CDATA[
+--> cotd([30 45 60 90])
+ ans  =
+   1.7320508   1.   0.5773503   0.
+
+--> cotd([-180 -90 0 90 180])
+ ans  =
+   Inf   0.   Inf   0.   Inf
+]]></screen>
     </refsection>
     <refsection role="see also">
         <title>Смотрите также</title>
@@ -67,6 +79,15 @@ cotd(x)
             <member>
                 <link linkend="cotg">cotg</link>
             </member>
+            <member>
+                <link linkend="coth">coth</link>
+            </member>
+            <member>
+                <link linkend="tan">tan</link>
+            </member>
+            <member>
+                <link linkend="tand">tand</link>
+            </member>
         </simplelist>
     </refsection>
 </refentry>
index 83d3c8e..20d4254 100644 (file)
@@ -2,8 +2,8 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2008 - INRIA
- *
  * Copyright (C) 2012 - 2016 - Scilab Enterprises
+ * Copyright (C) 2019 - Samuel GOUGEON
  *
  * This file is hereby licensed under the terms of the GNU GPL v2.0,
  * pursuant to article 5.3.4 of the CeCILL v.2.1.
  * along with this program.
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="tand" xml:lang="ru">
+<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook"
+          xmlns:scilab="http://www.scilab.org" xml:id="tand" xml:lang="ru">
     <refnamediv>
         <refname>tand</refname>
         <refpurpose>тангенс, аргумент в градусах.</refpurpose>
     <refsection>
         <title>Примеры</title>
         <programlisting role="example"><![CDATA[
-mod=ieee();ieee(2);
-x=[0,30 45 60 90 360];
-tand(x)
+tand([0 30 45 60 90])
+tand([-90 0 90 180 270 360])
  ]]></programlisting>
+    <screen><![CDATA[
+--> tand([0 30 45 60 90])
+ ans  =
+   0.   0.5773503   1.   1.7320508   Inf
+
+--> tand([-90 0 90 180 270 360])
+ ans  =
+  -Inf   0.   Inf   0.  -Inf   0.
+]]></screen>
     </refsection>
     <refsection role="see also">
         <title>Смотрите также</title>
         <simplelist type="inline">
             <member>
-                <link linkend="atan">atan</link>
+                <link linkend="atand">atand</link>
             </member>
             <member>
-                <link linkend="atand">atand</link>
+                <link linkend="atan">atan</link>
             </member>
             <member>
                 <link linkend="tan">tan</link>
             </member>
             <member>
-                <link linkend="tanm">tanm</link>
+                <link linkend="tanh">tanh</link>
             </member>
         </simplelist>
     </refsection>
index b5e68a0..aca6b04 100644 (file)
@@ -2,8 +2,8 @@
 // Copyright (C) INRIA, Serge Steer
 // Copyright (C) - 2010 - DIGITEO - Michael Baudin
 // Copyright (C) DIGITEO - 2011 - Allan CORNET
-//
 // Copyright (C) 2012 - 2016 - Scilab Enterprises
+// Copyright (C) 2019 - Samuel GOUGEON
 //
 // This file is hereby licensed under the terms of the GNU GPL v2.0,
 // pursuant to article 5.3.4 of the CeCILL v.2.1.
@@ -11,6 +11,7 @@
 // and continues to be available under such terms.
 // For more information, see the COPYING file which you should have received
 // along with this program.
+
 function x = cosd(x)
     //Element wise cosine , argument in degree.
 
@@ -19,17 +20,14 @@ function x = cosd(x)
         error(msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"),"cosd", 1));
     end
 
-    if type(x) <> 1 | ~isreal(x) then
+    if ~or(type(x)==[1 5]) | ~isreal(x) then
         error(msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"),"cosd",1));
     end
 
     if ~isempty(x)
-        n = round(x/90);
-        x = x - n*90;
-        m = pmodulo(n,4);
-        x(m==0) = cos(%pi/180*x(m==0));
-        x(m==1) = -sin(%pi/180*x(m==1));
-        x(m==2) = -cos(%pi/180*x(m==2));
-        x(m==3) = sin(%pi/180*x(m==3));
+        x = x - round(x/360)*360;
+        y = cos(%pi/180*x);
+        y(x==-90|x==90) = 0; 
+        x = y;
     end
 endfunction
index e60ee73..b9e03c7 100644 (file)
@@ -17,8 +17,8 @@ function y = cotd(x)
     if rhs <> 1 then
         error(msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"),"cotd", 1));
     end
-    
-    if type(x) <> 1 | ~isreal(x) then
+
+    if ~or(type(x)==[1 5]) | ~isreal(x) then
         error(msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"), "cotd", 1));
     end
 
index b79b4d7..5b181eb 100644 (file)
@@ -2,8 +2,8 @@
 // Copyright (C) INRIA, Serge Steer
 // Copyright (C) 2010 - DIGITEO - Michael Baudin
 // Copyright (C) DIGITEO - 2011 - Allan CORNET
-//
 // Copyright (C) 2012 - 2016 - Scilab Enterprises
+// Copyright (C) 2019 - Samuel GOUGEON
 //
 // This file is hereby licensed under the terms of the GNU GPL v2.0,
 // pursuant to article 5.3.4 of the CeCILL v.2.1.
@@ -23,18 +23,17 @@ function y = tand(x)
         error(msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"),"tand", 1));
     end
 
-    if type(x)<>1 | ~isreal(x) then
+    if ~or(type(x)==[1 5]) | ~isreal(x) then
         error(msprintf(gettext("%s: Wrong type for input argument #%d: Real matrix expected.\n"),"tand",1));
     end
 
-    // Argument reduction toward [-90,90[
     if ~isempty(x)
+        m = pmodulo(x, 360);
         n = round(x / 180);
         x = x - n * 180;
         y = tan(%pi/180*x);
-        // Set all singular points to nan
-        m = pmodulo(x + 90, 180);
-        y(m == 0) = %nan;
+        y(m == 90) = %inf;
+        y(m == 270) = -%inf;
     else
         y = []
     end
diff --git a/scilab/modules/elementary_functions/tests/unit_tests/cosd.dia.ref b/scilab/modules/elementary_functions/tests/unit_tests/cosd.dia.ref
deleted file mode 100644 (file)
index 6eff56e..0000000
+++ /dev/null
@@ -1,385 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - INRIA - Serge Steer
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- CLI SHELL MODE -->
-// Maple code used to create reference
-// Digits := 40; 
-// writeto("cosd.ref"); interface(prettyprint = 0); 
-// for i from 0 to 360 do print(-180+i, evalf[30](cos(-Pi+i*Pi/180), 30)) end do; 
-// writeto(terminal);
-pi=%pi;eps=%eps;Inf=%inf;NaN=%nan; //used to make following code runnable under Matlab
-ref=[-180, -1.
--179, -.999847695156391239157011558814
--178, -.999390827019095730006243440044
--177, -.998629534754573873784492058439
--176, -.997564050259824247613162680644
--175, -.996194698091745532295010402474
--174, -.994521895368273336922691944981
--173, -.992546151641322034980061589331
--172, -.990268068741570315083774867345
--171, -.987688340595137726190040247693
--170, -.984807753012208059366743024590
--169, -.981627183447663953496504899818
--168, -.978147600733805637928566747870
--167, -.974370064785235228539694480088
--166, -.970295726275996472306377874034
--165, -.965925826289068286749743199729
--164, -.961261695938318861916497048557
--163, -.956304755963035481338650816618
--162, -.951056516295153572116439333379
--161, -.945518575599316810348124707519
--160, -.939692620785908384054109277325
--159, -.933580426497201748990043063139
--158, -.927183854566787400806474451137
--157, -.920504853452440327396894723300
--156, -.913545457642600895502127571986
--155, -.906307787036649963242552656754
--154, -.898794046299166992782295676696
--153, -.891006524188367862359709571414
--152, -.882947592858926942032171360315
--151, -.874619707139395800284636958661
--150, -.866025403784438646763723170755
--149, -.857167300702112287465217980145
--148, -.848048096156425970386176178690
--147, -.838670567945424029637590941805
--146, -.829037572555041692006336841501
--145, -.819152044288991789684488385917
--144, -.809016994374947424102293417183
--143, -.798635510047292846284000804068
--142, -.788010753606721956693977787836
--141, -.777145961456970879979937743672
--140, -.766044443118978035202392650556
--139, -.754709580222771997942984219561
--138, -.743144825477394235014697048975
--137, -.731353701619170483287543608275
--136, -.719339800338651139356054674457
--135, -.707106781186547524400844362105
--134, -.694658370458997286656406299422
--133, -.681998360062498500442225784712
--132, -.669130606358858213826273330686
--131, -.656059028990507284782495964024
--130, -.642787609686539326322643409907
--129, -.629320391049837452705902458281
--128, -.615661475325658279668811092843
--127, -.601815023152048279917977000442
--126, -.587785252292473129168705954639
--125, -.573576436351046096108031912825
--124, -.559192903470746830160428139987
--123, -.544639035015027082224083692080
--122, -.529919264233204954046781151819
--121, -.515038074910054210081631936397
--120, -.500000000000000000000000000000
--119, -.484809620246337029075379622414
--118, -.469471562785890775959462288230
--117, -.453990499739546791560408366356
--116, -.438371146789077417452734540661
--115, -.422618261740699436186978489646
--114, -.406736643075800207753985990344
--113, -.390731128489273755062084588887
--112, -.374606593415912035414963774503
--111, -.358367949545300273484137789411
--110, -.342020143325668733044099614684
--109, -.325568154457156668714008935792
--108, -.309016994374947424102293417185
--107, -.292371704722736728097468695374
--106, -.275637355816999185649971574613
--105, -.258819045102520762348898837621
--104, -.241921895599667722560442374102
--103, -.224951054343864998051107208339
--102, -.207911690817759337101742284406
--101, -.190808995376544812405140487954
--100, -.173648177666930348851716626770
--99, -.156434465040230869010105319463
--98, -.139173100960065444112496663302
--97, -.121869343405147481112893919227
--96, -.104528463267653471399834154803
--95, -0.871557427476581735580642708428e-1
--94, -0.697564737441253007759588351943e-1
--93, -0.523359562429438327221186296142e-1
--92, -0.348994967025009716459951816253e-1
--91, -0.174524064372835128194189785212e-1
--90, 0.
--89, 0.174524064372835128194189785212e-1
--88, 0.348994967025009716459951816253e-1
--87, 0.523359562429438327221186296142e-1
--86, 0.697564737441253007759588351943e-1
--85, 0.871557427476581735580642708428e-1
--84, .104528463267653471399834154803
--83, .121869343405147481112893919227
--82, .139173100960065444112496663302
--81, .156434465040230869010105319463
--80, .173648177666930348851716626770
--79, .190808995376544812405140487954
--78, .207911690817759337101742284406
--77, .224951054343864998051107208339
--76, .241921895599667722560442374102
--75, .258819045102520762348898837621
--74, .275637355816999185649971574613
--73, .292371704722736728097468695374
--72, .309016994374947424102293417185
--71, .325568154457156668714008935792
--70, .342020143325668733044099614684
--69, .358367949545300273484137789411
--68, .374606593415912035414963774503
--67, .390731128489273755062084588887
--66, .406736643075800207753985990344
--65, .422618261740699436186978489646
--64, .438371146789077417452734540661
--63, .453990499739546791560408366356
--62, .469471562785890775959462288230
--61, .484809620246337029075379622414
--60, .500000000000000000000000000000
--59, .515038074910054210081631936397
--58, .529919264233204954046781151819
--57, .544639035015027082224083692080
--56, .559192903470746830160428139987
--55, .573576436351046096108031912825
--54, .587785252292473129168705954639
--53, .601815023152048279917977000442
--52, .615661475325658279668811092843
--51, .629320391049837452705902458281
--50, .642787609686539326322643409907
--49, .656059028990507284782495964024
--48, .669130606358858213826273330686
--47, .681998360062498500442225784712
--46, .694658370458997286656406299422
--45, .707106781186547524400844362105
--44, .719339800338651139356054674457
--43, .731353701619170483287543608275
--42, .743144825477394235014697048975
--41, .754709580222771997942984219561
--40, .766044443118978035202392650556
--39, .777145961456970879979937743671
--38, .788010753606721956693977787836
--37, .798635510047292846284000804068
--36, .809016994374947424102293417183
--35, .819152044288991789684488385917
--34, .829037572555041692006336841501
--33, .838670567945424029637590941805
--32, .848048096156425970386176178690
--31, .857167300702112287465217980145
--30, .866025403784438646763723170755
--29, .874619707139395800284636958661
--28, .882947592858926942032171360315
--27, .891006524188367862359709571414
--26, .898794046299166992782295676696
--25, .906307787036649963242552656754
--24, .913545457642600895502127571986
--23, .920504853452440327396894723300
--22, .927183854566787400806474451137
--21, .933580426497201748990043063139
--20, .939692620785908384054109277325
--19, .945518575599316810348124707519
--18, .951056516295153572116439333379
--17, .956304755963035481338650816618
--16, .961261695938318861916497048557
--15, .965925826289068286749743199729
--14, .970295726275996472306377874034
--13, .974370064785235228539694480088
--12, .978147600733805637928566747870
--11, .981627183447663953496504899818
--10, .984807753012208059366743024589
--9, .987688340595137726190040247693
--8, .990268068741570315083774867345
--7, .992546151641322034980061589331
--6, .994521895368273336922691944981
--5, .996194698091745532295010402474
--4, .997564050259824247613162680644
--3, .998629534754573873784492058439
--2, .999390827019095730006243440044
--1, .999847695156391239157011558814
-0, 1.
-1, .999847695156391239157011558814
-2, .999390827019095730006243440044
-3, .998629534754573873784492058439
-4, .997564050259824247613162680644
-5, .996194698091745532295010402474
-6, .994521895368273336922691944981
-7, .992546151641322034980061589331
-8, .990268068741570315083774867345
-9, .987688340595137726190040247693
-10, .984807753012208059366743024589
-11, .981627183447663953496504899818
-12, .978147600733805637928566747870
-13, .974370064785235228539694480088
-14, .970295726275996472306377874034
-15, .965925826289068286749743199729
-16, .961261695938318861916497048557
-17, .956304755963035481338650816618
-18, .951056516295153572116439333379
-19, .945518575599316810348124707519
-20, .939692620785908384054109277325
-21, .933580426497201748990043063139
-22, .927183854566787400806474451137
-23, .920504853452440327396894723300
-24, .913545457642600895502127571986
-25, .906307787036649963242552656754
-26, .898794046299166992782295676696
-27, .891006524188367862359709571414
-28, .882947592858926942032171360315
-29, .874619707139395800284636958661
-30, .866025403784438646763723170755
-31, .857167300702112287465217980145
-32, .848048096156425970386176178690
-33, .838670567945424029637590941805
-34, .829037572555041692006336841501
-35, .819152044288991789684488385917
-36, .809016994374947424102293417183
-37, .798635510047292846284000804068
-38, .788010753606721956693977787836
-39, .777145961456970879979937743671
-40, .766044443118978035202392650556
-41, .754709580222771997942984219561
-42, .743144825477394235014697048975
-43, .731353701619170483287543608275
-44, .719339800338651139356054674457
-45, .707106781186547524400844362105
-46, .694658370458997286656406299422
-47, .681998360062498500442225784712
-48, .669130606358858213826273330686
-49, .656059028990507284782495964024
-50, .642787609686539326322643409907
-51, .629320391049837452705902458281
-52, .615661475325658279668811092843
-53, .601815023152048279917977000442
-54, .587785252292473129168705954639
-55, .573576436351046096108031912825
-56, .559192903470746830160428139987
-57, .544639035015027082224083692080
-58, .529919264233204954046781151819
-59, .515038074910054210081631936397
-60, .500000000000000000000000000000
-61, .484809620246337029075379622414
-62, .469471562785890775959462288230
-63, .453990499739546791560408366356
-64, .438371146789077417452734540661
-65, .422618261740699436186978489646
-66, .406736643075800207753985990344
-67, .390731128489273755062084588887
-68, .374606593415912035414963774503
-69, .358367949545300273484137789411
-70, .342020143325668733044099614684
-71, .325568154457156668714008935792
-72, .309016994374947424102293417185
-73, .292371704722736728097468695374
-74, .275637355816999185649971574613
-75, .258819045102520762348898837621
-76, .241921895599667722560442374102
-77, .224951054343864998051107208339
-78, .207911690817759337101742284406
-79, .190808995376544812405140487954
-80, .173648177666930348851716626770
-81, .156434465040230869010105319463
-82, .139173100960065444112496663302
-83, .121869343405147481112893919227
-84, .104528463267653471399834154803
-85, 0.871557427476581735580642708428e-1
-86, 0.697564737441253007759588351943e-1
-87, 0.523359562429438327221186296142e-1
-88, 0.348994967025009716459951816253e-1
-89, 0.174524064372835128194189785212e-1
-90, 0.
-91, -0.174524064372835128194189785212e-1
-92, -0.348994967025009716459951816253e-1
-93, -0.523359562429438327221186296142e-1
-94, -0.697564737441253007759588351943e-1
-95, -0.871557427476581735580642708428e-1
-96, -.104528463267653471399834154803
-97, -.121869343405147481112893919227
-98, -.139173100960065444112496663302
-99, -.156434465040230869010105319463
-100, -.173648177666930348851716626770
-101, -.190808995376544812405140487954
-102, -.207911690817759337101742284406
-103, -.224951054343864998051107208339
-104, -.241921895599667722560442374102
-105, -.258819045102520762348898837621
-106, -.275637355816999185649971574613
-107, -.292371704722736728097468695374
-108, -.309016994374947424102293417185
-109, -.325568154457156668714008935792
-110, -.342020143325668733044099614684
-111, -.358367949545300273484137789411
-112, -.374606593415912035414963774503
-113, -.390731128489273755062084588887
-114, -.406736643075800207753985990344
-115, -.422618261740699436186978489646
-116, -.438371146789077417452734540661
-117, -.453990499739546791560408366356
-118, -.469471562785890775959462288230
-119, -.484809620246337029075379622414
-120, -.500000000000000000000000000000
-121, -.515038074910054210081631936397
-122, -.529919264233204954046781151819
-123, -.544639035015027082224083692080
-124, -.559192903470746830160428139987
-125, -.573576436351046096108031912825
-126, -.587785252292473129168705954639
-127, -.601815023152048279917977000442
-128, -.615661475325658279668811092843
-129, -.629320391049837452705902458281
-130, -.642787609686539326322643409907
-131, -.656059028990507284782495964024
-132, -.669130606358858213826273330686
-133, -.681998360062498500442225784712
-134, -.694658370458997286656406299422
-135, -.707106781186547524400844362105
-136, -.719339800338651139356054674457
-137, -.731353701619170483287543608275
-138, -.743144825477394235014697048975
-139, -.754709580222771997942984219561
-140, -.766044443118978035202392650556
-141, -.777145961456970879979937743671
-142, -.788010753606721956693977787836
-143, -.798635510047292846284000804068
-144, -.809016994374947424102293417183
-145, -.819152044288991789684488385917
-146, -.829037572555041692006336841501
-147, -.838670567945424029637590941805
-148, -.848048096156425970386176178690
-149, -.857167300702112287465217980145
-150, -.866025403784438646763723170755
-151, -.874619707139395800284636958661
-152, -.882947592858926942032171360315
-153, -.891006524188367862359709571414
-154, -.898794046299166992782295676696
-155, -.906307787036649963242552656754
-156, -.913545457642600895502127571986
-157, -.920504853452440327396894723300
-158, -.927183854566787400806474451137
-159, -.933580426497201748990043063139
-160, -.939692620785908384054109277325
-161, -.945518575599316810348124707519
-162, -.951056516295153572116439333379
-163, -.956304755963035481338650816618
-164, -.961261695938318861916497048557
-165, -.965925826289068286749743199729
-166, -.970295726275996472306377874034
-167, -.974370064785235228539694480088
-168, -.978147600733805637928566747870
-169, -.981627183447663953496504899818
-170, -.984807753012208059366743024589
-171, -.987688340595137726190040247693
-172, -.990268068741570315083774867345
-173, -.992546151641322034980061589331
-174, -.994521895368273336922691944981
-175, -.996194698091745532295010402474
-176, -.997564050259824247613162680644
-177, -.998629534754573873784492058439
-178, -.999390827019095730006243440044
-179, -.999847695156391239157011558814
-180, -1.
-];
-x=ref(:,1);e=max(abs((ref(:,2)-cosd(x))));
-if e>eps then bugmes();quit;end
-x=ref(:,1)+2^6*360; e=max(abs((ref(:,2)-cosd(x))));
-if e>eps then bugmes();quit;end
-x=ref(:,1)+2^10*360; e=max(abs((ref(:,2)-cosd(x))));
-if e>eps then bugmes();quit;end
-if ~isnan(cosd(-Inf)) then bugmes();quit;end
-if ~isnan(cosd(Inf)) then bugmes();quit;end
-if ~isnan(cosd(NaN)) then bugmes();quit;end
-if cosd([])<>[] then bugmes();quit;end
index 83e0e43..f0e2cb1 100644 (file)
@@ -6,6 +6,7 @@
 // =============================================================================
 
 // <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
 
 // Maple code used to create reference
 
 // writeto("cosd.ref"); interface(prettyprint = 0); 
 // for i from 0 to 360 do print(-180+i, evalf[30](cos(-Pi+i*Pi/180), 30)) end do; 
 // writeto(terminal);
-pi=%pi;eps=%eps;Inf=%inf;NaN=%nan; //used to make following code runnable under Matlab
+pi = %pi;       //used to make following code runnable under Matlab
+eps = %eps;
+Inf = %inf;
+NaN = %nan;
 
 ref=[-180, -1.
 -179, -.999847695156391239157011558814
@@ -390,5 +394,7 @@ if ~isnan(cosd(-Inf)) then pause,end
 if ~isnan(cosd(Inf)) then pause,end
 if ~isnan(cosd(NaN)) then pause,end
 
+assert_checkequal(1./cosd([-90 90]), [%inf %inf]);
+
 if cosd([])<>[] then pause,end
 
diff --git a/scilab/modules/elementary_functions/tests/unit_tests/cotd.dia.ref b/scilab/modules/elementary_functions/tests/unit_tests/cotd.dia.ref
deleted file mode 100644 (file)
index 69e47c3..0000000
+++ /dev/null
@@ -1,395 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - INRIA - Serge Steer
-// Copyright (C) 2010 - DIGITEO - Michael Baudin
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- CLI SHELL MODE -->
-// Maple code used to create reference
-// Digits := 40:
-// writeto("cotd.ref"): interface(prettyprint = 0): 
-// for i from -179 to 179 do if (i<>0) then print(i, evalf[30](cot(i*Pi/180), 30)) end end do; 
-// writeto(terminal):
-pi=%pi;eps=%eps;Inf=%inf;NaN=%nan; //used to make following code runnable under Matlab
-ieee(2);
-ref=[-179, 57.2899616307594246872781475371
--178, 28.6362532829156035507565093210
--177, 19.0811366877282110634067487343
--176, 14.3006662567119279101280533476
--175, 11.4300523027613430672108555492
--174, 9.51436445422258492968397145497
--173, 8.14434642797459402382566139499
--172, 7.11536972238420874823056614364
--171, 6.31375151467504309897946424477
--170, 5.67128181961770953099441843986
--169, 5.14455401597031013472322071712
--168, 4.70463010947845423358623453739
--167, 4.33147587428415554554616775457
--166, 4.01078093353584471634571512945
--165, 3.73205080756887729352744634151
--164, 3.48741444384090865069622422510
--163, 3.27085261848414086530885625731
--162, 3.07768353717525340257029057604
--161, 2.90421087767582280257932553452
--160, 2.74747741945462227876166402650
--159, 2.60508906469380153625841233642
--158, 2.47508685341629582524001324608
--157, 2.35585236582375283393958666234
--156, 2.24603677390421605416332143842
--155, 2.14450692050955861635626079104
--154, 2.05030384157929621689901107055
--153, 1.96261050550515058230464042621
--152, 1.88072646534633201236083759582
--151, 1.80404775527142393738178474824
--150, 1.73205080756887729352744634151
--149, 1.66427948235051791103049617004
--148, 1.60033452904105035532673308118
--147, 1.53986496381458290482679697261
--146, 1.48256096851274025478715714915
--145, 1.42814800674211450216061848500
--144, 1.37638192047117353820720958191
--143, 1.32704482162041003715947257408
--142, 1.27994163219307878031102984757
--141, 1.23489715653505139855617469537
--140, 1.19175359259420995870530807186
--139, 1.15036840722100955587633102557
--138, 1.11061251482919287014348196417
--137, 1.07236871002468253294602774807
--136, 1.03553031379056950695883255125
--135, 1.
--134, .965688774807074045958027299698
--133, .932515086137661705612185627427
--132, .900404044297839945120477203883
--131, .869286737816226662200095638705
--130, .839099631177280011763127298122
--129, .809784033195007148036991374238
--128, .781285626506717397062949971961
--127, .753554050102794157073956448623
--126, .726542528005360885895466757480
--125, .700207538209709779458522719443
--124, .674508516842426632142460861996
--123, .649407593197510576982062911309
--122, .624869351909327509780510827954
--121, .600860619027560414878664426352
--120, .577350269189625764509148780503
--119, .554309051452768917820763092336
--118, .531709431661478748075915871844
--117, .509525449494428810513706911248
--116, .487732588565861422773111126620
--115, .466307658154998592830006194797
--114, .445228685308536163922367030649
--113, .424474816209604742023532062939
--112, .404026225835156811322348143583
--111, .383864035035415795971448408100
--110, .363970234266202361351047882779
--109, .344327613289665241957265839380
--108, .324919696232906326155871412217
--107, .305730681458660355734541958993
--106, .286745385758807940042758062734
--105, .267949192431122706472553658490
--104, .249328002843180691624039937806
--103, .230868191125563111748145613470
--102, .212556561670022125259591660571
--101, .194380309137718484243194224973
--100, .176326980708464973471090386870
--99, .158384440324536293838883092690
--98, .140540834702391446838117693433
--97, .122784560902904591134231136048
--96, .105104235265676462511502380140
--95, 0.874886635259240052220186694403e-1
--94, 0.699268119435104136669210603234e-1
--93, 0.524077792830412040388058244791e-1
--92, 0.349207694917477305004026257737e-1
--91, 0.174550649282175857651288952246e-1
--90, 0.
--89, -0.174550649282175857651288952246e-1
--88, -0.349207694917477305004026257737e-1
--87, -0.524077792830412040388058244791e-1
--86, -0.699268119435104136669210603234e-1
--85, -0.874886635259240052220186694403e-1
--84, -.105104235265676462511502380140
--83, -.122784560902904591134231136048
--82, -.140540834702391446838117693433
--81, -.158384440324536293838883092690
--80, -.176326980708464973471090386870
--79, -.194380309137718484243194224973
--78, -.212556561670022125259591660571
--77, -.230868191125563111748145613470
--76, -.249328002843180691624039937806
--75, -.267949192431122706472553658490
--74, -.286745385758807940042758062734
--73, -.305730681458660355734541958993
--72, -.324919696232906326155871412217
--71, -.344327613289665241957265839380
--70, -.363970234266202361351047882779
--69, -.383864035035415795971448408100
--68, -.404026225835156811322348143583
--67, -.424474816209604742023532062939
--66, -.445228685308536163922367030649
--65, -.466307658154998592830006194797
--64, -.487732588565861422773111126620
--63, -.509525449494428810513706911248
--62, -.531709431661478748075915871844
--61, -.554309051452768917820763092336
--60, -.577350269189625764509148780503
--59, -.600860619027560414878664426352
--58, -.624869351909327509780510827954
--57, -.649407593197510576982062911309
--56, -.674508516842426632142460861996
--55, -.700207538209709779458522719443
--54, -.726542528005360885895466757480
--53, -.753554050102794157073956448623
--52, -.781285626506717397062949971961
--51, -.809784033195007148036991374238
--50, -.839099631177280011763127298122
--49, -.869286737816226662200095638705
--48, -.900404044297839945120477203883
--47, -.932515086137661705612185627427
--46, -.965688774807074045958027299698
--45, -1.
--44, -1.03553031379056950695883255125
--43, -1.07236871002468253294602774807
--42, -1.11061251482919287014348196417
--41, -1.15036840722100955587633102557
--40, -1.19175359259420995870530807186
--39, -1.23489715653505139855617469537
--38, -1.27994163219307878031102984757
--37, -1.32704482162041003715947257408
--36, -1.37638192047117353820720958191
--35, -1.42814800674211450216061848500
--34, -1.48256096851274025478715714915
--33, -1.53986496381458290482679697261
--32, -1.60033452904105035532673308118
--31, -1.66427948235051791103049617004
--30, -1.73205080756887729352744634151
--29, -1.80404775527142393738178474824
--28, -1.88072646534633201236083759582
--27, -1.96261050550515058230464042621
--26, -2.05030384157929621689901107055
--25, -2.14450692050955861635626079104
--24, -2.24603677390421605416332143842
--23, -2.35585236582375283393958666234
--22, -2.47508685341629582524001324608
--21, -2.60508906469380153625841233642
--20, -2.74747741945462227876166402650
--19, -2.90421087767582280257932553452
--18, -3.07768353717525340257029057604
--17, -3.27085261848414086530885625731
--16, -3.48741444384090865069622422510
--15, -3.73205080756887729352744634151
--14, -4.01078093353584471634571512945
--13, -4.33147587428415554554616775457
--12, -4.70463010947845423358623453739
--11, -5.14455401597031013472322071712
--10, -5.67128181961770953099441843986
--9, -6.31375151467504309897946424477
--8, -7.11536972238420874823056614364
--7, -8.14434642797459402382566139499
--6, -9.51436445422258492968397145497
--5, -11.4300523027613430672108555492
--4, -14.3006662567119279101280533476
--3, -19.0811366877282110634067487343
--2, -28.6362532829156035507565093210
--1, -57.2899616307594246872781475371
-1, 57.2899616307594246872781475371
-2, 28.6362532829156035507565093210
-3, 19.0811366877282110634067487343
-4, 14.3006662567119279101280533476
-5, 11.4300523027613430672108555492
-6, 9.51436445422258492968397145497
-7, 8.14434642797459402382566139499
-8, 7.11536972238420874823056614364
-9, 6.31375151467504309897946424477
-10, 5.67128181961770953099441843986
-11, 5.14455401597031013472322071712
-12, 4.70463010947845423358623453739
-13, 4.33147587428415554554616775457
-14, 4.01078093353584471634571512945
-15, 3.73205080756887729352744634151
-16, 3.48741444384090865069622422510
-17, 3.27085261848414086530885625731
-18, 3.07768353717525340257029057604
-19, 2.90421087767582280257932553452
-20, 2.74747741945462227876166402650
-21, 2.60508906469380153625841233642
-22, 2.47508685341629582524001324608
-23, 2.35585236582375283393958666234
-24, 2.24603677390421605416332143842
-25, 2.14450692050955861635626079104
-26, 2.05030384157929621689901107055
-27, 1.96261050550515058230464042621
-28, 1.88072646534633201236083759582
-29, 1.80404775527142393738178474824
-30, 1.73205080756887729352744634151
-31, 1.66427948235051791103049617004
-32, 1.60033452904105035532673308118
-33, 1.53986496381458290482679697261
-34, 1.48256096851274025478715714915
-35, 1.42814800674211450216061848500
-36, 1.37638192047117353820720958191
-37, 1.32704482162041003715947257408
-38, 1.27994163219307878031102984757
-39, 1.23489715653505139855617469537
-40, 1.19175359259420995870530807186
-41, 1.15036840722100955587633102557
-42, 1.11061251482919287014348196417
-43, 1.07236871002468253294602774807
-44, 1.03553031379056950695883255125
-45, 1.
-46, .965688774807074045958027299698
-47, .932515086137661705612185627427
-48, .900404044297839945120477203883
-49, .869286737816226662200095638705
-50, .839099631177280011763127298122
-51, .809784033195007148036991374238
-52, .781285626506717397062949971961
-53, .753554050102794157073956448623
-54, .726542528005360885895466757480
-55, .700207538209709779458522719443
-56, .674508516842426632142460861996
-57, .649407593197510576982062911309
-58, .624869351909327509780510827954
-59, .600860619027560414878664426352
-60, .577350269189625764509148780503
-61, .554309051452768917820763092336
-62, .531709431661478748075915871844
-63, .509525449494428810513706911248
-64, .487732588565861422773111126620
-65, .466307658154998592830006194797
-66, .445228685308536163922367030649
-67, .424474816209604742023532062939
-68, .404026225835156811322348143583
-69, .383864035035415795971448408100
-70, .363970234266202361351047882779
-71, .344327613289665241957265839380
-72, .324919696232906326155871412217
-73, .305730681458660355734541958993
-74, .286745385758807940042758062734
-75, .267949192431122706472553658490
-76, .249328002843180691624039937806
-77, .230868191125563111748145613470
-78, .212556561670022125259591660571
-79, .194380309137718484243194224973
-80, .176326980708464973471090386870
-81, .158384440324536293838883092690
-82, .140540834702391446838117693433
-83, .122784560902904591134231136048
-84, .105104235265676462511502380140
-85, 0.874886635259240052220186694403e-1
-86, 0.699268119435104136669210603234e-1
-87, 0.524077792830412040388058244791e-1
-88, 0.349207694917477305004026257737e-1
-89, 0.174550649282175857651288952246e-1
-90, 0.
-91, -0.174550649282175857651288952246e-1
-92, -0.349207694917477305004026257737e-1
-93, -0.524077792830412040388058244791e-1
-94, -0.699268119435104136669210603234e-1
-95, -0.874886635259240052220186694403e-1
-96, -.105104235265676462511502380140
-97, -.122784560902904591134231136048
-98, -.140540834702391446838117693433
-99, -.158384440324536293838883092690
-100, -.176326980708464973471090386870
-101, -.194380309137718484243194224973
-102, -.212556561670022125259591660571
-103, -.230868191125563111748145613470
-104, -.249328002843180691624039937806
-105, -.267949192431122706472553658490
-106, -.286745385758807940042758062734
-107, -.305730681458660355734541958993
-108, -.324919696232906326155871412217
-109, -.344327613289665241957265839380
-110, -.363970234266202361351047882779
-111, -.383864035035415795971448408100
-112, -.404026225835156811322348143583
-113, -.424474816209604742023532062939
-114, -.445228685308536163922367030649
-115, -.466307658154998592830006194797
-116, -.487732588565861422773111126620
-117, -.509525449494428810513706911248
-118, -.531709431661478748075915871844
-119, -.554309051452768917820763092336
-120, -.577350269189625764509148780503
-121, -.600860619027560414878664426352
-122, -.624869351909327509780510827954
-123, -.649407593197510576982062911309
-124, -.674508516842426632142460861996
-125, -.700207538209709779458522719443
-126, -.726542528005360885895466757480
-127, -.753554050102794157073956448623
-128, -.781285626506717397062949971961
-129, -.809784033195007148036991374238
-130, -.839099631177280011763127298122
-131, -.869286737816226662200095638705
-132, -.900404044297839945120477203883
-133, -.932515086137661705612185627427
-134, -.965688774807074045958027299698
-135, -1.
-136, -1.03553031379056950695883255125
-137, -1.07236871002468253294602774807
-138, -1.11061251482919287014348196417
-139, -1.15036840722100955587633102557
-140, -1.19175359259420995870530807186
-141, -1.23489715653505139855617469537
-142, -1.27994163219307878031102984757
-143, -1.32704482162041003715947257408
-144, -1.37638192047117353820720958191
-145, -1.42814800674211450216061848500
-146, -1.48256096851274025478715714915
-147, -1.53986496381458290482679697261
-148, -1.60033452904105035532673308118
-149, -1.66427948235051791103049617004
-150, -1.73205080756887729352744634151
-151, -1.80404775527142393738178474824
-152, -1.88072646534633201236083759582
-153, -1.96261050550515058230464042621
-154, -2.05030384157929621689901107055
-155, -2.14450692050955861635626079104
-156, -2.24603677390421605416332143842
-157, -2.35585236582375283393958666234
-158, -2.47508685341629582524001324608
-159, -2.60508906469380153625841233642
-160, -2.74747741945462227876166402650
-161, -2.90421087767582280257932553452
-162, -3.07768353717525340257029057604
-163, -3.27085261848414086530885625731
-164, -3.48741444384090865069622422510
-165, -3.73205080756887729352744634151
-166, -4.01078093353584471634571512945
-167, -4.33147587428415554554616775457
-168, -4.70463010947845423358623453739
-169, -5.14455401597031013472322071712
-170, -5.67128181961770953099441843986
-171, -6.31375151467504309897946424477
-172, -7.11536972238420874823056614364
-173, -8.14434642797459402382566139499
-174, -9.51436445422258492968397145497
-175, -11.4300523027613430672108555492
-176, -14.3006662567119279101280533476
-177, -19.0811366877282110634067487343
-178, -28.6362532829156035507565093210
-179, -57.2899616307594246872781475371
-];
-x=ref(:,1);
-expected = ref(:,2);
-computed = cotd(x);
-e=max(abs((expected-computed)./expected));
-if e>100*eps then bugmes();quit;end
-//
-x=ref(:,1)+2^6*360;
-expected = ref(:,2);
-computed = cotd(x);
-e=max(abs((expected-computed)./expected));
-if e>100*eps then bugmes();quit;end
-//
-x=ref(:,1)+2^10*360;
-expected = ref(:,2);
-computed = cotd(x);
-e=max(abs((expected-computed)./expected));
-if e>100*eps then bugmes();quit;end
-if  cotd(-180)<>Inf then bugmes();quit;end
-if  cotd(+180)<>Inf then bugmes();quit;end
-if  cotd(0)<>Inf then bugmes();quit;end
-if cotd([])<>[] then bugmes();quit;end
index 28836ac..2525039 100644 (file)
@@ -7,8 +7,7 @@
 // =============================================================================
 
 // <-- CLI SHELL MODE -->
-
-
+// <-- NO CHECK REF -->
 
 // Maple code used to create reference
 // Digits := 40:
@@ -395,9 +394,6 @@ computed = cotd(x);
 e=max(abs((expected-computed)./expected));
 if e>100*eps then pause,end
 
-if  cotd(-180)<>Inf then pause,end
-if  cotd(+180)<>Inf then pause,end
-if  cotd(0)<>Inf then pause,end
-
-if cotd([])<>[] then pause,end
-
+assert_checkequal(cotd([-180 0 180]), %inf*[1 1 1]);
+assert_checkequal(cotd([-90 90]), [0 0]);
+assert_checkequal(cotd([]), []);
diff --git a/scilab/modules/elementary_functions/tests/unit_tests/tand.dia.ref b/scilab/modules/elementary_functions/tests/unit_tests/tand.dia.ref
deleted file mode 100644 (file)
index a91cb05..0000000
+++ /dev/null
@@ -1,416 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2008 - INRIA - Serge Steer
-// Copyright (C) 2010-2011 - DIGITEO - Michael Baudin
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-// <-- CLI SHELL MODE -->
-// Maple code used to create reference
-// Digits := 40; 
-// writeto("tand.ref"); interface(prettyprint = 0); 
-// for i from 0 to 360 do if ((i<>90) and (i<>270) ) then print(-180+i, evalf[30](tan(-Pi+i*Pi/180), 30)) end end do; 
-// writeto(terminal);
-ieee(2);
-//used to make following code runnable under Matlab
-pi=%pi;
-eps=%eps;
-Inf=%inf;
-NaN=%nan;
-//
-x = (-180:180)';
-// Remove 90 (index #91) and -90 (index #271), 
-// where the value is %nan
-x([91 271]) = [];
-e=[
-0.
-0.174550649282175857651288952197e-1
-0.349207694917477305004026257737e-1
-0.524077792830412040388058244741e-1
-0.699268119435104136669210603231e-1
-0.874886635259240052220186694350e-1
-.105104235265676462511502380140
-.122784560902904591134231136053
-.140540834702391446838117693433
-.158384440324536293838883092694
-.176326980708464973471090386869
-.194380309137718484243194224977
-.212556561670022125259591660570
-.230868191125563111748145613474
-.249328002843180691624039937805
-.267949192431122706472553658494
-.286745385758807940042758062732
-.305730681458660355734541958996
-.324919696232906326155871412215
-.344327613289665241957265839384
-.363970234266202361351047882776
-.383864035035415795971448408105
-.404026225835156811322348143579
-.424474816209604742023532062943
-.445228685308536163922367030644
-.466307658154998592830006194801
-.487732588565861422773111126616
-.509525449494428810513706911251
-.531709431661478748075915871842
-.554309051452768917820763092337
-.577350269189625764509148780503
-.600860619027560414878664426354
-.624869351909327509780510827950
-.649407593197510576982062911310
-.674508516842426632142460861996
-.700207538209709779458522719443
-.726542528005360885895466757481
-.753554050102794157073956448623
-.781285626506717397062949971961
-.809784033195007148036991374238
-.839099631177280011763127298122
-.869286737816226662200095638705
-.900404044297839945120477203883
-.932515086137661705612185627428
-.965688774807074045958027299699
-1.
-1.03553031379056950695883255125
-1.07236871002468253294602774807
-1.11061251482919287014348196417
-1.15036840722100955587633102557
-1.19175359259420995870530807186
-1.23489715653505139855617469537
-1.27994163219307878031102984757
-1.32704482162041003715947257408
-1.37638192047117353820720958191
-1.42814800674211450216061848500
-1.48256096851274025478715714915
-1.53986496381458290482679697261
-1.60033452904105035532673308117
-1.66427948235051791103049617004
-1.73205080756887729352744634151
-1.80404775527142393738178474825
-1.88072646534633201236083759582
-1.96261050550515058230464042622
-2.05030384157929621689901107053
-2.14450692050955861635626079106
-2.24603677390421605416332143840
-2.35585236582375283393958666236
-2.47508685341629582524001324606
-2.60508906469380153625841233646
-2.74747741945462227876166402648
-2.90421087767582280257932553456
-3.07768353717525340257029057602
-3.27085261848414086530885625734
-3.48741444384090865069622422508
-3.73205080756887729352744634156
-4.01078093353584471634571512944
-4.33147587428415554554616775463
-4.70463010947845423358623453738
-5.14455401597031013472322071724
-5.67128181961770953099441843983
-6.31375151467504309897946424494
-7.11536972238420874823056614360
-8.14434642797459402382566139528
-9.51436445422258492968397145491
-11.4300523027613430672108555485
-14.3006662567119279101280533475
-19.0811366877282110634067487325
-28.6362532829156035507565093210
-57.2899616307594246872781475211
--57.2899616307594246872781475211
--28.6362532829156035507565093210
--19.0811366877282110634067487325
--14.3006662567119279101280533475
--11.4300523027613430672108555485
--9.51436445422258492968397145491
--8.14434642797459402382566139528
--7.11536972238420874823056614360
--6.31375151467504309897946424494
--5.67128181961770953099441843983
--5.14455401597031013472322071724
--4.70463010947845423358623453738
--4.33147587428415554554616775463
--4.01078093353584471634571512944
--3.73205080756887729352744634156
--3.48741444384090865069622422508
--3.27085261848414086530885625734
--3.07768353717525340257029057602
--2.90421087767582280257932553456
--2.74747741945462227876166402648
--2.60508906469380153625841233646
--2.47508685341629582524001324606
--2.35585236582375283393958666236
--2.24603677390421605416332143840
--2.14450692050955861635626079106
--2.05030384157929621689901107053
--1.96261050550515058230464042622
--1.88072646534633201236083759582
--1.80404775527142393738178474825
--1.73205080756887729352744634151
--1.66427948235051791103049617004
--1.60033452904105035532673308117
--1.53986496381458290482679697261
--1.48256096851274025478715714915
--1.42814800674211450216061848500
--1.37638192047117353820720958191
--1.32704482162041003715947257408
--1.27994163219307878031102984757
--1.23489715653505139855617469537
--1.19175359259420995870530807186
--1.15036840722100955587633102557
--1.11061251482919287014348196417
--1.07236871002468253294602774807
--1.03553031379056950695883255125
--1.
--.965688774807074045958027299699
--.932515086137661705612185627428
--.900404044297839945120477203883
--.869286737816226662200095638705
--.839099631177280011763127298122
--.809784033195007148036991374238
--.781285626506717397062949971961
--.753554050102794157073956448623
--.726542528005360885895466757481
--.700207538209709779458522719443
--.674508516842426632142460861996
--.649407593197510576982062911310
--.624869351909327509780510827950
--.600860619027560414878664426354
--.577350269189625764509148780503
--.554309051452768917820763092337
--.531709431661478748075915871842
--.509525449494428810513706911251
--.487732588565861422773111126616
--.466307658154998592830006194801
--.445228685308536163922367030644
--.424474816209604742023532062943
--.404026225835156811322348143579
--.383864035035415795971448408105
--.363970234266202361351047882776
--.344327613289665241957265839384
--.324919696232906326155871412215
--.305730681458660355734541958996
--.286745385758807940042758062732
--.267949192431122706472553658494
--.249328002843180691624039937805
--.230868191125563111748145613474
--.212556561670022125259591660570
--.194380309137718484243194224977
--.176326980708464973471090386869
--.158384440324536293838883092694
--.140540834702391446838117693433
--.122784560902904591134231136053
--.105104235265676462511502380140
--0.874886635259240052220186694350e-1
--0.699268119435104136669210603231e-1
--0.524077792830412040388058244741e-1
--0.349207694917477305004026257737e-1
--0.174550649282175857651288952197e-1
-0.
-0.174550649282175857651288952197e-1
-0.349207694917477305004026257737e-1
-0.524077792830412040388058244741e-1
-0.699268119435104136669210603231e-1
-0.874886635259240052220186694350e-1
-.105104235265676462511502380140
-.122784560902904591134231136053
-.140540834702391446838117693433
-.158384440324536293838883092694
-.176326980708464973471090386869
-.194380309137718484243194224977
-.212556561670022125259591660570
-.230868191125563111748145613474
-.249328002843180691624039937805
-.267949192431122706472553658494
-.286745385758807940042758062732
-.305730681458660355734541958996
-.324919696232906326155871412215
-.344327613289665241957265839384
-.363970234266202361351047882776
-.383864035035415795971448408105
-.404026225835156811322348143579
-.424474816209604742023532062943
-.445228685308536163922367030644
-.466307658154998592830006194801
-.487732588565861422773111126616
-.509525449494428810513706911251
-.531709431661478748075915871842
-.554309051452768917820763092337
-.577350269189625764509148780503
-.600860619027560414878664426354
-.624869351909327509780510827950
-.649407593197510576982062911310
-.674508516842426632142460861996
-.700207538209709779458522719443
-.726542528005360885895466757481
-.753554050102794157073956448623
-.781285626506717397062949971961
-.809784033195007148036991374238
-.839099631177280011763127298122
-.869286737816226662200095638705
-.900404044297839945120477203883
-.932515086137661705612185627428
-.965688774807074045958027299699
-1.
-1.03553031379056950695883255125
-1.07236871002468253294602774807
-1.11061251482919287014348196417
-1.15036840722100955587633102557
-1.19175359259420995870530807186
-1.23489715653505139855617469537
-1.27994163219307878031102984757
-1.32704482162041003715947257408
-1.37638192047117353820720958191
-1.42814800674211450216061848500
-1.48256096851274025478715714915
-1.53986496381458290482679697261
-1.60033452904105035532673308117
-1.66427948235051791103049617004
-1.73205080756887729352744634151
-1.80404775527142393738178474825
-1.88072646534633201236083759582
-1.96261050550515058230464042622
-2.05030384157929621689901107053
-2.14450692050955861635626079106
-2.24603677390421605416332143840
-2.35585236582375283393958666236
-2.47508685341629582524001324606
-2.60508906469380153625841233646
-2.74747741945462227876166402648
-2.90421087767582280257932553456
-3.07768353717525340257029057602
-3.27085261848414086530885625734
-3.48741444384090865069622422508
-3.73205080756887729352744634156
-4.01078093353584471634571512944
-4.33147587428415554554616775463
-4.70463010947845423358623453738
-5.14455401597031013472322071724
-5.67128181961770953099441843983
-6.31375151467504309897946424494
-7.11536972238420874823056614360
-8.14434642797459402382566139528
-9.51436445422258492968397145491
-11.4300523027613430672108555485
-14.3006662567119279101280533475
-19.0811366877282110634067487325
-28.6362532829156035507565093210
-57.2899616307594246872781475211
--57.2899616307594246872781475211
--28.6362532829156035507565093210
--19.0811366877282110634067487325
--14.3006662567119279101280533475
--11.4300523027613430672108555485
--9.51436445422258492968397145491
--8.14434642797459402382566139528
--7.11536972238420874823056614360
--6.31375151467504309897946424494
--5.67128181961770953099441843983
--5.14455401597031013472322071724
--4.70463010947845423358623453738
--4.33147587428415554554616775463
--4.01078093353584471634571512944
--3.73205080756887729352744634156
--3.48741444384090865069622422508
--3.27085261848414086530885625734
--3.07768353717525340257029057602
--2.90421087767582280257932553456
--2.74747741945462227876166402648
--2.60508906469380153625841233646
--2.47508685341629582524001324606
--2.35585236582375283393958666236
--2.24603677390421605416332143840
--2.14450692050955861635626079106
--2.05030384157929621689901107053
--1.96261050550515058230464042622
--1.88072646534633201236083759582
--1.80404775527142393738178474825
--1.73205080756887729352744634151
--1.66427948235051791103049617004
--1.60033452904105035532673308117
--1.53986496381458290482679697261
--1.48256096851274025478715714915
--1.42814800674211450216061848500
--1.37638192047117353820720958191
--1.32704482162041003715947257408
--1.27994163219307878031102984757
--1.23489715653505139855617469537
--1.19175359259420995870530807186
--1.15036840722100955587633102557
--1.11061251482919287014348196417
--1.07236871002468253294602774807
--1.03553031379056950695883255125
--1.
--.965688774807074045958027299699
--.932515086137661705612185627428
--.900404044297839945120477203883
--.869286737816226662200095638705
--.839099631177280011763127298122
--.809784033195007148036991374238
--.781285626506717397062949971961
--.753554050102794157073956448623
--.726542528005360885895466757481
--.700207538209709779458522719443
--.674508516842426632142460861996
--.649407593197510576982062911310
--.624869351909327509780510827950
--.600860619027560414878664426354
--.577350269189625764509148780503
--.554309051452768917820763092337
--.531709431661478748075915871842
--.509525449494428810513706911251
--.487732588565861422773111126616
--.466307658154998592830006194801
--.445228685308536163922367030644
--.424474816209604742023532062943
--.404026225835156811322348143579
--.383864035035415795971448408105
--.363970234266202361351047882776
--.344327613289665241957265839384
--.324919696232906326155871412215
--.305730681458660355734541958996
--.286745385758807940042758062732
--.267949192431122706472553658494
--.249328002843180691624039937805
--.230868191125563111748145613474
--.212556561670022125259591660570
--.194380309137718484243194224977
--.176326980708464973471090386869
--.158384440324536293838883092694
--.140540834702391446838117693433
--.122784560902904591134231136053
--.105104235265676462511502380140
--0.874886635259240052220186694350e-1
--0.699268119435104136669210603231e-1
--0.524077792830412040388058244741e-1
--0.349207694917477305004026257737e-1
--0.174550649282175857651288952197e-1
-0.
-];
-c = tand(x);
-assert_checkalmostequal ( c , e , 40 * %eps , [] , "element" );
-// Turn a lot around the circle
-x1 = x + 2^6*360;
-c = tand(x1);
-assert_checkalmostequal ( c , e , 40 * %eps , [] , "element" );
-// Turn a lot around the circle, the other side
-x2 = x - 2^6*360;
-c = tand(x2);
-assert_checkalmostequal ( c , e , 40 * %eps , [] , "element" );
-assert_checkequal ( tand(0) , 0 );
-assert_checkequal ( tand(360) , 0 );
-assert_checkequal ( tand(-360) , 0 );
-assert_checkequal ( tand(180) , 0 );
-assert_checkequal ( tand(-180) , 0 );
-assert_checkalmostequal ( tand(30) , 1/sqrt(3) , %eps );
-assert_checkalmostequal ( tand(45) , 1         , 2 * %eps );
-assert_checkalmostequal ( tand(60) , sqrt(3)   , 2*%eps );
-assert_checkequal ( isnan(tand(90))  , %t );
-assert_checkequal ( isnan(tand(-90)) , %t );
-assert_checkequal ( isnan(tand(270)) , %t );
-assert_checkequal ( isnan(tand(-270)) , %t );
-assert_checkequal ( isnan(tand(-%inf)) , %t );
-assert_checkequal ( isnan(tand(%inf))  , %t );
-assert_checkequal ( isnan(tand(%nan))  , %t );
-assert_checkequal ( tand([])  , [] );
-ieee(0)
-assert_checkequal ( tand(0) , 0 );
-assert_checkalmostequal ( tand(30) , 1/sqrt(3) , %eps );
-assert_checkalmostequal ( tand(45) , 1         , 2 * %eps );
-assert_checkalmostequal ( tand(60) , sqrt(3)   , 2*%eps );
index 1a34ef1..72d9edb 100644 (file)
@@ -2,12 +2,13 @@
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2008 - INRIA - Serge Steer
 // Copyright (C) 2010-2011 - DIGITEO - Michael Baudin
+// Copyright (C) 2019 - Samuel GOUGEON
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
 // <-- CLI SHELL MODE -->
-
+// <-- NO CHECK REF -->
 
 // Maple code used to create reference
 // Digits := 40; 
@@ -400,21 +401,13 @@ x2 = x - 2^6*360;
 c = tand(x2);
 assert_checkalmostequal ( c , e , 40 * %eps , [] , "element" );
 
-assert_checkequal ( tand(0) , 0 );
-assert_checkequal ( tand(360) , 0 );
-assert_checkequal ( tand(-360) , 0 );
-
-assert_checkequal ( tand(180) , 0 );
-assert_checkequal ( tand(-180) , 0 );
+assert_checkequal ( tand([-360 -180 0 180 360]) , [0 0 0 0 0] );
 
 assert_checkalmostequal ( tand(30) , 1/sqrt(3) , %eps );
 assert_checkalmostequal ( tand(45) , 1         , 2 * %eps );
 assert_checkalmostequal ( tand(60) , sqrt(3)   , 2*%eps );
 
-assert_checkequal ( isnan(tand(90))  , %t );
-assert_checkequal ( isnan(tand(-90)) , %t );
-assert_checkequal ( isnan(tand(270)) , %t );
-assert_checkequal ( isnan(tand(-270)) , %t );
+assert_checkequal ( tand([-270 -90 90 270])  , %inf*[1 -1 1 -1] );
 
 assert_checkequal ( isnan(tand(-%inf)) , %t );
 assert_checkequal ( isnan(tand(%inf))  , %t );
@@ -422,10 +415,7 @@ assert_checkequal ( isnan(tand(%nan))  , %t );
 
 assert_checkequal ( tand([])  , [] );
 
-ieee(0)
 assert_checkequal ( tand(0) , 0 );
 assert_checkalmostequal ( tand(30) , 1/sqrt(3) , %eps );
 assert_checkalmostequal ( tand(45) , 1         , 2 * %eps );
 assert_checkalmostequal ( tand(60) , sqrt(3)   , 2*%eps );
-
-