62 lines
998 B
Mathematica
62 lines
998 B
Mathematica
|
range= -5:1:5
|
||
|
|
xBF.dt = 0.0625;
|
||
|
|
xBF.name = 'Gamma functions';
|
||
|
|
xBF.length = 32;
|
||
|
|
xBF.order = 4;
|
||
|
|
BM = spm_get_bf(xBF);
|
||
|
|
|
||
|
|
figure; hold on;
|
||
|
|
|
||
|
|
a =0;b=0;c=0;d=0;
|
||
|
|
wait_s = 0.5;
|
||
|
|
for a = range
|
||
|
|
f = [a b c d] * BM.bf';
|
||
|
|
plot(f)
|
||
|
|
pause(wait_s)
|
||
|
|
display('changing a');
|
||
|
|
end
|
||
|
|
a =0;b=0;c=0;d=0;
|
||
|
|
for b = range
|
||
|
|
f = [a b c d] * BM.bf';
|
||
|
|
plot(f)
|
||
|
|
pause(wait_s)
|
||
|
|
display('changing b');
|
||
|
|
end
|
||
|
|
a =0;b=0;c=0;d=0;
|
||
|
|
for c = range
|
||
|
|
f = [a b c d] * BM.bf';
|
||
|
|
plot(f)
|
||
|
|
pause(wait_s)
|
||
|
|
display('changing c');
|
||
|
|
end
|
||
|
|
a =0;b=0;c=0;d=0;
|
||
|
|
for d = range
|
||
|
|
f = [a b c d] * BM.bf';
|
||
|
|
plot(f)
|
||
|
|
pause(wait_s)
|
||
|
|
display('changing d');
|
||
|
|
end
|
||
|
|
|
||
|
|
clf;hold on;
|
||
|
|
for i = 1:100
|
||
|
|
a = rand
|
||
|
|
b = rand
|
||
|
|
c = rand
|
||
|
|
d = rand
|
||
|
|
f = [a b c d] * BM.bf';
|
||
|
|
plot(f, 'Color', [0.5 .5 .5])
|
||
|
|
end
|
||
|
|
figure; hold on;
|
||
|
|
for a = range
|
||
|
|
for b = range
|
||
|
|
for c = range
|
||
|
|
for d = range
|
||
|
|
f = [a b c d] * BM.bf';
|
||
|
|
plot(f)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
|