vault backup: 2023-07-21 21:09:23

Mathe/Ilias/Zusatz_Material/Cosinus.java

@@ -0,0 +1,35 @@
+//   Cosinus.java
+//   Programm zum Spielen, Ausprobieren und Verbessern
+//   Ziel: "Gute" Berechnung der Cosinus-Funktion
+
+import java.io.*;
+
+public class Cosinus
+{
+   public static double myfak(int k)
+   {
+           double x;
+           if (k==0) {return 1.0;}
+           else {return ((double) k)*myfak(k-1);}
+   }
+   public static double mycos(double x) 
+   {
+        double sum=0.0;
+        double term=0.0;
+        for (int k=0;k<=10;k++) 
+            {
+            term=Math.pow((-1),k)*Math.pow(x,2*k)/myfak(2*k);
+            sum+=term;
+            }
+        return sum;
+    }
+    public static void main(String[] args) throws IOException
+    {
+        double x;
+        BufferedReader in = new BufferedReader(new InputStreamReader(System.in));
+        System.out.print("Wie lautet die Stelle x? x = ");
+        x = Double.parseDouble(in.readLine());
+        System.out.println("Meine Rechnung liefert cos(x) = " + mycos(x));
+        System.out.println("Java-Mathe-Bib liefert cos(x) = " + Math.cos(x));
+     }
+}

Mathe/Ilias/Zusatz_Material/Folge.java

@@ -0,0 +1,21 @@
+//   Folge.java 
+import java.io.*;
+public class Folge
+{
+   public static void main(String[] args) throws IOException
+              {
+              double x=2.0,a=2.0;
+              for (int k=0; k<=9; k++)
+                  {
+                  System.out.println("k = "+ k +"         a_k = "+ a);
+                   a=0.5*(a+x/a);   // Heron-Iteration
+//                  a=Math.sqrt(k*k+3.0*k)-k;
+//                  System.out.println(Double.MAX_VALUE);
+                  }
+              }
+}
+
+
+
+
+   

Mathe/Ilias/Zusatz_Material/Reihe.java

@@ -0,0 +1,19 @@
+//   Reihe.java 
+import java.io.*;
+public class Reihe
+{
+   public static void main(String[] args) throws IOException
+              {
+              double s=0.0,a_k=0.0;
+              for (int k=0; k<=30; k++)
+                  {
+                  s=s+Math.pow(2.0/3.0,k); // geometrische Reihe q=2/3
+                  System.out.println("n = "+ k +"         S_n = "+ s);
+                  }
+              }
+}
+
+
+
+
+   

Mathe/Ilias/Zusatz_Material/komplex_nullstwxm.sec

@@ -0,0 +1,22 @@
+/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
+/* [ Created with wxMaxima version 18.02.0 ] */
+/* [wxMaxima: input   start ] */
+/* Komplexe Nullstellenbeispiel */
+z:a+b*%i;
+ /*plot3d(abs(z^3-3*z^2+4*z-2),[a,0.25,1.75],[b,-1.25,1.25], */
+/*plot3d(abs(z^3-7*z^2+17*z-15),[a,1.5,3.2],[b,-1.2,1.2],*/ 
+plot3d(abs(z^2+1),[a,-1.0,1.0],[b,-1.5,1.5], 
+/*contour_plot(abs(z^3-3*z^2+4*z-2),[a,0.25,1.75],[b,-1.25,1.25], [gnuplot_preamble, "set cntrparam levels 39"],*/
+/*contour_plot(abs(z^3-7*z^2+17*z-15),[a,1.5,3.2],[b,-1.2,1.2], [gnuplot_preamble, "set cntrparam levels 39"],*/
+/*contour_plot(abs(z^2+1),[a,-1.0,1.0],[b,-1.5,1.5], [gnuplot_preamble, "set cntrparam levels 39"],*/
+    /*[zlabel,""],[mesh_lines_color,false], [elevation,0], [azimuth,0], */
+    [grid,100,100], [ztics,false], [color_bar_tics,0.01],
+    [zlabel,"|p(z)|"],[mesh_lines_color,true],[ztics,1], 
+    [box,true],[xtics,0.25],[ytics,0.5],
+    [legend,false],[palette,[gradient, "#0000f4", "#0000ff"]],[color,blue]);
+/* [wxMaxima: input   end   ] */
+
+
+
+/* Old versions of Maxima abort on loading files that end in a comment. */
+"Created with wxMaxima 18.02.0"$