% fdefhat.m Skript f - Hutfunktion, 
%    Breite und Position wird interaktiv abgefragt
f = zeros(1,100);
disp('Definition einer Hut-Funktion durch Angabe von');
disp('  Position und Breite');
pos = input(' Eingabe Position der Hut-Spitze (0..99):');
wid = input(' Eingabe halbe Breite des Spitz-Hutes:');
f(pos+1) = 1;
for k=pos+2:min(pos+1+wid,100)
     f(k) = 1-(k-pos-1)/wid;
end
for k=max(pos+2-100,1):pos+1+wid-100
     f(k) = 1-(k-pos-1+100)/wid;
end
for k=pos:-1:max(pos-wid+1,1)
     f(k) = 1+(k-pos-1)/wid;
end
for k=min(pos+100,100):-1:pos-wid+1+100
     f(k) = 1+(k-pos-1-100)/wid;
end
