%  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %
%  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %
function HsNormUniform = TwoD_Disk_TimeEvo_UniformHsNorm_Nyquist(decompMatrix,zeroDecomp,eigenFreqMatrix,thetaBasisSize,rBasisSize,s)


%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+
%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+
%%~_,.-'~'-.,__,.-'~'-.,__,.-'~'-.,__,.-'~'-.,__,.-'~'-.,_,.-'~'-.,__,%%%
%%~_,.-'~[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]-.,__,%%+
%%~_,.-'~[~]&[~]&[~]                                 [~]&[~]&[~]-.,__,%%+
%%~_,.-'~[~]&[~]  2-D DISK UNIFORM H^s NORM CALCULATOR   [~]&[~]-.,__,%%+
%%~_,.-'~[~]&[~]&[~]                                 [~]&[~]&[~]-.,__,%%+
%%~_,.-'~[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]&[~]-.,__,%%+
%%~_,.-'~'-.,__,.-'~'-.,__,.-'~'-.,__,.-'~'-.,__,.-'~'-.,_,.-'~'-.,__,%%+
%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+
%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+%%%~%%~%%%+



%  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %
%  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %  %



HsNormUniform = 0;

HsNormUniform = HsNormUniform + ((1 + (0^2))^s)*(zeroDecomp^2);

for n = 1:thetaBasisSize/2

    for m = 1:rBasisSize/2

        HsNormUniform = HsNormUniform + ((1 + (eigenFreqMatrix(n,m)^2))^s)*(decompMatrix(n,m,1)^2);

    end

end


end

Published with MATLAB® R2025a