You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
611 B
19 lines
611 B
function f = R_alpha(FunctionCell)
|
|
|
|
fnum = size(FunctionCell,1);
|
|
alpha = 0;
|
|
f = @(x,y,z) FunctionCell{1}(x,y,z) + FunctionCell{2}(x,y,z)...
|
|
+ power(power(FunctionCell{1}(x,y,z),2) + power(FunctionCell{2}(x,y,z),2)...
|
|
- 2.* alpha.* FunctionCell{1}(x,y,z).* FunctionCell{2}(x,y,z),1/2);
|
|
for i = 3:fnum
|
|
|
|
f = @(x,y,z) f(x,y,z) + FunctionCell{i}(x,y,z)...
|
|
+ power(power(f(x,y,z),2) + power(FunctionCell{i}(x,y,z),2)...
|
|
- 2.* alpha.* f(x,y,z).* FunctionCell{i}(x,y,z),1/2);
|
|
|
|
end
|
|
|
|
f = @(x,y,z) 1./(alpha+1).*f(x,y,z);
|
|
|
|
end
|
|
|
|
|