added inlab 1

refraction.m

+
+
+
+
+%function that loads a file and parses variables from it
+function y=f(x)
+	myfile = load("input_inlab_task_A1.txt");
+	nx=myfile(1);
+	ny=myfile(2);
+	
+	y=(nx*cos(x)+ny*sin(x))*sin(x/3)-sin(x);
+
+endfunction
+% fsolve directly returns the value of unknown in an equation.
+ [x,info]=fsolve ("f",pi/6.0);
+ disp(x);	
+
+myfile2 = fopen (" output_inlab_task_01.txt", "w");
+% fdisp writes to the output file
+fdisp(myfile2, x);