Anul 3 Semestrul 2

Anul 3/Semestrul 2/Calcul numeric/Lab1.m

@@ -0,0 +1,106 @@
+A = [1,2;3,4]
+det(A)
+inv(A)*A
+A*A
+A.*A
+A^2
+A.^2
+
+v=1:10
+V=1:-0.1:0
+
+v.^2
+
+transpose(v) # or v'
+
+A(1,:)
+
+A(:,2)
+
+
+#L1_NC.pdf
+
+#1.a
+x=-4:0.1:7.2;
+p = x.^5-5*x.^4-16*x.^3+16*x.^2-17.*x+21;
+
+#plot(x,p)
+
+#1.b
+x=-2.5;
+p = [1,-5,-16,+16,-17,21];
+polyval(p,x)
+#1.c
+roots(p)
+
+polyval(p,7)
+
+#2
+x = 0:0.1*pi:2*pi;
+
+f = sin(x);
+g = sin(2*x);
+h = sin(3*x);
+
+
+#subplot(3,1,1)
+#plot(x,f)
+#subplot(3,1,2)
+
+#plot(x,g)
+#subplot(3,1,3)
+
+#plot(x,h)
+clf  #clear plot
+t= 0:0.1*pi:10*pi
+
+R=3.8;
+r=1;
+
+x = (R+r)*cos(t) - r*cos((R/r+1)*t);
+y = (R+r)*sin(t) - r*sin((R/r+1)*t);
+
+plot(x,y)
+
+[x, y] = meshgrid(-2:0.1:2, 0.5:0.1:4.5);
+
+f = sin(e.^x).*cos(log(y));
+clf
+#mesh(x, y, f);
+
+
+#xlabel('X-axis');
+#ylabel('Y-axis');
+#zlabel('Z-axis');
+#title('3D Surface Plot using mesh');
+#colormap('jet');
+#colorbar;
+#grid on;
+
+
+figure;
+plot3(x, y, f);
+xlabel('X-axis');
+ylabel('Y-axis');
+zlabel('Z-axis');
+title('3D Line Plot using plot3');
+grid on;
+
+
+
+function result = funct(n)
+    if n == 0
+        result = 1+1;
+    else
+        result = 1 + 1/ funct(n - 1);
+    end
+end
+% Increase the recursion limit to 5000
+#max_recursion_depth(2025);
+
+funct(2)
+funct(10)
+funct(100)
+funct(2025)
+
+