Changeset 20640
- Timestamp:
- 05/24/16 12:03:12 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/m/psl/sharmonics.m
r19369 r20640 23 23 plm = legendre(l,cos(lat),'norm'); %nromalized Plm (see Matlab documents) 24 24 for m=-l:l 25 sh(:,1+q)= (-1)^(abs(m)).*plm(abs(m)+1,:)'.*(cos(abs(m).*lon)*(m>=0)+sin(abs(m).*lon)*(m<0)).*sqrt((2-(m==0))/(2*pi)); %orthonormalized25 sh(:,1+q)=plm(abs(m)+1,:)'.*(cos(abs(m).*lon)*(m>=0)+sin(abs(m).*lon)*(m<0)).*sqrt((2-(m==0))*2); %4-pi norm 26 26 q=q+1; 27 27 end
Note:
See TracChangeset
for help on using the changeset viewer.