MATLAB程序设计

s0 = get(handles.edit1,'string');

s0 = strcat(s0,'0');

set(handles.edit1,'string',s0);

s0 = get(handles.edit1,'string');

ans = eval(s0);

set(handles.edit1,'string',ans);

set(handles.text2,'string',ans);

set(handles.edit1,'string','');

s0 = get(handles.edit1,'string');

n = length(s0);

t = char(s0);

s0 = t(1:n-1);

set(handles.edit1,'string',s0);

function [ R ] = ricker( f0,t )

%UNTITLED 此处显示有关此函数的摘要

%   此处显示详细说明

R = (1-2*(pi*f0*t).^2).*exp(-(pi*f0*t).^2);

end

f0 = 50;

t = -0.6:0.01:0.6;

R = ricker(f0,t);

figure;

plot(ricker(f0,t));

axis([0 125 -0.4 1.05]);

xlabel('时间(s)');

ylabel('R');

function [ vector ] = xiangliang( length,num )

%XIANGLIANG 此处显示有关此函数的摘要

%   此处显示详细说明

A = zeros(1,length);

a = (rand(1,num))*2-1;%-1 1

b = round(length*rand(1,num)+1);%1 512