1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
function callFunctioncleandata(filename,xye)
f_temp = mopen(filename, 'wt'); // Creating a text file
xye_split = strsplit(xye,';'); // split string for ';'
ary_size = size(xye_split); // get size of array which will be 6 1
n = ary_size(1); // retrive only size of element ie. 6
arry_xye = [];
for i = 1:n
comma_split = strsplit(xye_split(i),','); // split string for ','
comma_ary_size = size(comma_split); // get size of array which will be 6 1
m = comma_ary_size(1);
for j = 1:m
arry_xye(i)(j) = strtod(comma_split(j)); // convert string to double and add to array
end
end
[xy] = cleandata([arry_xye]); // pass new array to cleandata and save return value in xy
[m,n] = size(xy) // reading the size of variable
mfprintf(f_temp, '[[');
for y = 1:m // no. of rows in variables
for z = 1:n // no. of columns in variables
if z == n then
mfprintf(f_temp, '%.17g', xy(y,z)); // Print the variable values
else
mfprintf(f_temp, '%.17g,', xy(y,z)); // Print the variable values
end
end
if y ~= m then
mfprintf(f_temp, '],[')
end
end
mfprintf(f_temp, ']]');
mclose(f_temp)
endfunction
function callFunction_do_Spline(filename,N,order,x,y)
f_temp = mopen(filename, 'wt'); // Creating a text file
if ((strindex(x,",")) ~= []) then // if x value is array (0,0) or single value 0
x_split = strsplit(x,','); // split string for ','
x_size = size(x_split); // get size of array
n = x_size(1); // retrive size
x = [];
for i = 1:n
x(1)(i) = strtod(x_split(i)); // convert string to double and add to array
end
else
x = strtod(x); // in case x is single value 0 convert it into double
end
if ((strindex(y,",")) ~= []) then // if y value is array (0,0) or single value 0
y_split = strsplit(y,','); // split string for ','
y_size = size(y_split); // get size of array
n = y_size(1); // retrive size
y = [];
for i = 1:n
y(1)(i) = strtod(y_split(i)); // convert string to double and add to array
end
else
y = strtod(y); // in case y is single value 0 convert it into double
end
[Xdummy,Ydummy,orpar] = Do_Spline(strtod(N),strtod(order),x,y); // pass new array to do_spline and save return value in [Xdummy,Ydummy,orpar]
Do_Spline_write(Xdummy,Ydummy,orpar,f_temp);
mclose(f_temp)
endfunction
function Do_Spline_write(Xdummy,Ydummy,orpar,f_temp)
mfprintf(f_temp, '{');
mfprintf(f_temp, '""Xdummy"":[');
for i = 1:length(Xdummy)
if (i == length(Xdummy)) then
mfprintf(f_temp, '%.17g', Xdummy(i));
else
mfprintf(f_temp, '%.17g,', Xdummy(i));
end
end
mfprintf(f_temp, ']');
mfprintf(f_temp, ',""Ydummy"":[');
for i = 1:length(Ydummy)
if (i == length(Ydummy)) then
mfprintf(f_temp, '%.17g', Ydummy(i));
else
mfprintf(f_temp, '%.17g,', Ydummy(i));
end
end
mfprintf(f_temp, ']');
mfprintf(f_temp, ',""orpar"":[');
for i = 1:length(orpar)
if (i == length(orpar)) then
mfprintf(f_temp, '%d', orpar(i));
else
mfprintf(f_temp, '%d,', orpar(i));
end
end
mfprintf(f_temp, ']');
mfprintf(f_temp, '}');
endfunction
|
