Mental+Ray 源代码

LB=100000; % Symbols transmitted %L=LB*SF; % chips transmitted Z=zeros(1,LB); bk=zeros(1,LB); bk_trans1=zeros(1,…

#include "XMathLib.h" #include "XGeomLib.h" #include "XGVolume.h" using namespace XMathLib; namespace XGeomLib { __i…

function [x,t,phi]=rayfan_a(v,z,z1,z2,theta) % RAYFAN_A: similar to RAYFAN but the rays are specified by angle % % [x,t,phi]=ra…

% CREWES raytracing tools % Raytracing for v(z) and v(x,z) % %Demos and scripts % RAYTRACE_DEMO ... interactive demonstration …

function [tray,r]=normraymig(x0,t0,dtdx,params,clr) % NORMRAYMIG: migrate a normal incidence ray % % [tr,r]=normraymig(x0,t0,dt…

function [t,r]=shootrayvxz_g(tstep,r0) % SHOOTRAYVXZ_G more general raytracing in v(x,z). % % [t,r]=shootrayvxz_g(tstep,t0) % …

function [x,t,phi]=rayfan(v,z,z1,z2,p) % % [x,t,phi]=rayfan(v,z,z1,z2,p) % % rayfan shots a fan of rays through the stratified ear…

function [x,t,phi]=rayfan_a(v,z,z1,z2,theta) % [x,t,phi]=rayfan_a(v,z,z1,z2,theta) % % rayfan_a shoots a fan of rays through the …

/* * Copyright 2002-2004, Mersad Team, Allame Helli High School (NODET). * * This program is free software, you can redistrib…

t=0:0.001:6; psisq=1; a=3; ray=t.*exp(-(t.^2)./2.); arg1=1./sqrt(2*pi); arg2=-0.5.*((t-a).^2); gau=arg1.*exp(arg2); plot(t,…