From 26b77d7593b5ee0792b6b556f5569ea4227c2b02 Mon Sep 17 00:00:00 2001 From: Sunil Shetye Date: Thu, 16 May 2019 12:18:48 +0530 Subject: convert to unix format --- tests/unit_tests/test305_Moebius/Moebius.sci | 132 +++++++++++++-------------- tests/unit_tests/test305_Moebius/XYgrid.sci | 2 +- 2 files changed, 67 insertions(+), 67 deletions(-) (limited to 'tests/unit_tests/test305_Moebius') diff --git a/tests/unit_tests/test305_Moebius/Moebius.sci b/tests/unit_tests/test305_Moebius/Moebius.sci index cb598c0a..d8a537bb 100644 --- a/tests/unit_tests/test305_Moebius/Moebius.sci +++ b/tests/unit_tests/test305_Moebius/Moebius.sci @@ -1,66 +1,66 @@ -//SCI2C: DEFAULT_PRECISION= DOUBLE - -function Moebius() - -//the program construct moebius -// and klein bottle surface from -//http://www.metlin.org/mathematics/ -// topological-constructs/non-orientable-surfaces/ - - -// --------------------- -// --- Moebius strip --- -// --------------------- -num_points = 20; -R = 20; -a = -0.4; -b = 0.4; - -step=(b-a)./(num_points-1); -step1=(2*%pi)./num_points; -s=a:step:b; -t=0:step1:2*%pi; - -[S, T] = XYgrid(s, t); -x = [R + (S.*cos(T./2))].*cos(T); -y = [R + (S.*cos(T./2))].*sin(T); -z = S.*sin(T./2); - -disp('x(1:10)') -disp(x(1:10)) -disp('y(1:10)') -disp(y(1:10)) -disp('z(1:10)') -disp(z(1:10)) - -// ENABLE/DISABLE PLOT -// scf(0); surf(x, y, z); - -// ----------------------- -// --- Klein Bottle II --- -// ----------------------- -num_points = 50; - -//u = linspace (0, 2*(%pi), num_points); -//v = linspace (0, 2*(%pi), num_points); -step_u = (2*%pi)./num_points -u = 0:step_u:2*%pi; -v = u; - -[U,V] = XYgrid(u,v); - -x1 = cos(U).*(cos(U./2).*(sqrt(2)+cos(V))+(sin(U./2).*sin(V).*cos(V))); -y1 = sin(U).*(cos(U./2).*(sqrt(2)+cos(V))+(sin(U./2).*sin(V).*cos(V))); -z1 = -1.*sin(U./2).*(sqrt(2)+cos(V))+cos(U./2).*sin(V).*cos(V); - -disp('x1(1:10)'); -disp(x1(1:10)); -disp('y1(1:10)') -disp(y1(1:10)) -disp('z1(1:10)') -disp(z1(1:10)) -// ENABLE/DISABLE PLOT -// scf(1) ;surf(x1, y1, z1) - -endfunction - +//SCI2C: DEFAULT_PRECISION= DOUBLE + +function Moebius() + +//the program construct moebius +// and klein bottle surface from +//http://www.metlin.org/mathematics/ +// topological-constructs/non-orientable-surfaces/ + + +// --------------------- +// --- Moebius strip --- +// --------------------- +num_points = 20; +R = 20; +a = -0.4; +b = 0.4; + +step=(b-a)./(num_points-1); +step1=(2*%pi)./num_points; +s=a:step:b; +t=0:step1:2*%pi; + +[S, T] = XYgrid(s, t); +x = [R + (S.*cos(T./2))].*cos(T); +y = [R + (S.*cos(T./2))].*sin(T); +z = S.*sin(T./2); + +disp('x(1:10)') +disp(x(1:10)) +disp('y(1:10)') +disp(y(1:10)) +disp('z(1:10)') +disp(z(1:10)) + +// ENABLE/DISABLE PLOT +// scf(0); surf(x, y, z); + +// ----------------------- +// --- Klein Bottle II --- +// ----------------------- +num_points = 50; + +//u = linspace (0, 2*(%pi), num_points); +//v = linspace (0, 2*(%pi), num_points); +step_u = (2*%pi)./num_points +u = 0:step_u:2*%pi; +v = u; + +[U,V] = XYgrid(u,v); + +x1 = cos(U).*(cos(U./2).*(sqrt(2)+cos(V))+(sin(U./2).*sin(V).*cos(V))); +y1 = sin(U).*(cos(U./2).*(sqrt(2)+cos(V))+(sin(U./2).*sin(V).*cos(V))); +z1 = -1.*sin(U./2).*(sqrt(2)+cos(V))+cos(U./2).*sin(V).*cos(V); + +disp('x1(1:10)'); +disp(x1(1:10)); +disp('y1(1:10)') +disp(y1(1:10)) +disp('z1(1:10)') +disp(z1(1:10)) +// ENABLE/DISABLE PLOT +// scf(1) ;surf(x1, y1, z1) + +endfunction + diff --git a/tests/unit_tests/test305_Moebius/XYgrid.sci b/tests/unit_tests/test305_Moebius/XYgrid.sci index 0957237d..95557f05 100644 --- a/tests/unit_tests/test305_Moebius/XYgrid.sci +++ b/tests/unit_tests/test305_Moebius/XYgrid.sci @@ -1,6 +1,6 @@ //SCI2C: NIN= 2 //SCI2C: NOUT= 2 -//SCI2C: OUT(1).TP= IN(1).TP +//SCI2C: OUT(1).TP= IN(1).TP //SCI2C: OUT(1).SZ(1)= IN(2).SZ(2) //SCI2C: OUT(1).SZ(2)= IN(1).SZ(2) //SCI2C: OUT(2).TP= IN(1).TP -- cgit