Rank: 5542 based on 18 downloads (last 30 days) and 1 file submitted
photo

Martin Fuchs

E-mail
Company/University
DGFI
Lat/Long
51.0, 9.0

Personal Profile:

I am interested in gravity applications

Professional Interests:

 

Watch this Author's files

 

Files Posted by Martin
Updated   File Tags Downloads
(last 30 days)
Comments Rating
02 Feb 2012 Screenshot Gravitational comparison between a point mass and prism mass model Gravitational quantities of a prism and a point mass are being derived for specified heights. Author: Martin Fuchs gravity, prism, point, mass, gravitational, tensor 18 0
Comments and Ratings by Martin View all
Updated File Comments Rating
12 Jul 2013 OKUBO: Gravity change due to shear and tensile faults Okubo's 1992 model for gravity change due to finite rectangular source in elastic half-space. Author: François Beauducel

I modified the scrip, now it works also for mee:
remove all ~ add dummy parameter:

function u=Sg(xi,eta,q,dip,nu) % dip,~)
function u=Dg(xi,eta,q,dip,nu) % dip,~)
function u=Tg(xi,eta,q,dip,nu) % dip,~)
function u=Cg(xi,eta,q,dip,nu) % dip,~)
function I=I2(xi,eta,q,R,nu) % dip,~)

regards Martin

10 Jul 2013 OKUBO: Gravity change due to shear and tensile faults Okubo's 1992 model for gravity change due to finite rectangular source in elastic half-space. Author: François Beauducel

I have problems using the code it says:

?? Error: File: okubo92.m Line: 249 Column: 28
Unexpected MATLAB operator.

When I look at this line I see:
function u=Tg(xi,eta,q,dip,~)

maybe the ~ is problematical

02 Mar 2012 ORTHPOLYFIT, ORTHPOLYVAL Direct transform of multivariate series to a polynomial domain by the Gaussian quadrature methods. Author: Ingo Löhken

??? Error using ==> orthpolyfit
orthpolyfit: Undefined command/function 'argchk'.

02 Mar 2012 ORTHPOLYFIT, ORTHPOLYVAL Direct transform of multivariate series to a polynomial domain by the Gaussian quadrature methods. Author: Ingo Löhken

??? Error using ==> orthpolyfit
orthpolyfit: Undefined command/function 'argchk'.

27 Feb 2012 Convert ECI to ECEF Coordinates Transform ECI position, velocity and acceleration to ECEF position, velocity & acceleration. Author: Darin Koblick

Maybe something like this but I am not sure ???

if (~isempty(a_ECEF) && (~isempty(r_ECEF)) a_ECI = MultiDimMatrixTranspose(T3D(THETA))*a_ECEF' + 2*MultiDimMatrixTranspose(Tdot3D(THETA,omega_e))*v_ECEF' + MultiDimMatrixTranspose(Tdotdot3D(THETA,omega_e))*r_ECEF'; else a_ECI = []; end

function Tdot = Tdotdot3D(THETA,omega_e)
Tdot = zeros([3 3 length(THETA)]);
Tdot(1,1,:) = -omega_e^2.*cosd(THETA);
Tdot(1,2,:) = -omega_e^2.*sind(THETA);
Tdot(2,1,:) = -Tdot(1,2,:);
Tdot(2,2,:) = Tdot(1,1,:);

Contact us