% 1-     50 ile 100 arasındaki tam sayılardan oluşan 20 tane rastgele sayıdan oluşan bir R vektörü tanımlayınız. R vektörünün içindeki 75’den küçük sayıları negatifleri ile değiştirip, 90’dan büyük sayıları R vektöründen silen, en büyük elemanı vektörün birinci elamanı ile yer değiştiren MATLAB kodunu döngüleri kullanmadan yapınız. (10)

R=randi([50 100], 1,20)
i = find(R<75); R(i) = R(i) * -1 
in = find(R>90); R(in) = []
enbuyuki = find(max(R));gecici = R(1); R(1) = R(enbuyuki); R(enbuyuki)= gecici; 

%
%% Soru 2 : Üç basamaklı bir ABC sayısı için ABC=A^3+B^3+C^3 koşulunu sağlıyorsa, ABC sayısı bir amstrong sayısıdır. Örneğin; 153= 1^3+3^3+5^3 olduğu için 153 bir amstrong sayısıdır. Üç basamaklı tüm amstrong sayıları bir vektörde saklayan matlab kodunu yazınız?

sayi  = 100:999;
bir = mod ( sayi , 10 )  
on= floor ( mod ( sayi / 10 , 10 ))
yuz = floor( sayi / 100 )
sonuc = bir.^3 + on.^3 + yuz.^3 

%

gercek_sonucI = find( sayi == sonuc);
gercek_sonular = sayi(gercek_sonucI)

%%
% 1-     Girilen değerin Mükemmel Sayı mı değil mi bulan kodu yazınız.
% Mükemmel sayı, kendisi hariç pozitif tam bölenlerinin toplamı kendisine eşit olan sayıdır. (20 puan)
%
%  tribonacci serisinin ilk 100 değerini bir vektörde saklayınız.
% t(n) = t(n-1) + t(n-2) + t(n-3)

t(1) = 1 ; t(2) = 2; t(3) = 3;
for n = 4 : 100
    t(n) = t(n-1) + t(n-2) + t(n-3);
end
t