Converting the code with repeated instructions to a simpler code

This code is not simple as there are many repeated instructions and the difference is the value of the quality, so I want the same code, but it is simpler without repetition. How can i do this by "for loop"

and How can i use plot Here ?

figure

q=[0 5 15 25 50 75 90 100]

Original=imread('lena (1).jpg');

information = imfinfo('lena (1).jpg');

OriginalFileSize=(information.Width*information.Height*information.BitDepth)/8

%%for Quality 1

imwrite(Original,'CompressedQuality1.jpg','jpg','Quality',0) ;

information = imfinfo('CompressedQuality1.jpg');

CompressedFileSize1=information.FileSize;

CompressedRatio1=OriginalFileSize/CompressedFileSize1

%%for Quality 5

imwrite(Original,'CompressedQuality2.jpg','jpg','Quality',5);

information = imfinfo('CompressedQuality2.jpg');

CompressedFileSize2=information.FileSize;

CompressedRatio2=OriginalFileSize/CompressedFileSize2

%%for Quality 15

imwrite(Original,'CompressedQuality3.jpg','jpg','Quality',15);

information = imfinfo('CompressedQuality3.jpg');

CompressedFileSize3=information.FileSize;

CompressedRatio3=OriginalFileSize/CompressedFileSize3

%%for Qualoty 25

imwrite(Original,'CompressedQuality4.jpg','jpg','Quality',25);

information = imfinfo('CompressedQuality4.jpg');

CompressedFileSize4=information.FileSize;

CompressedRatio4=OriginalFileSize/CompressedFileSize4

%%for Quality 50

imwrite(Original,'CompressedQuality5.jpg','jpg','Quality',50);

information = imfinfo('CompressedQuality5.jpg');

CompressedFileSize5=information.FileSize;

CompressedRatio5=OriginalFileSize/CompressedFileSize5

%%for Quality 75

imwrite(Original,'CompressedQuality6.jpg','jpg','Quality',75);

information = imfinfo('CompressedQuality6.jpg');

CompressedFileSize6=information.FileSize;

CompressedRatio6=OriginalFileSize/CompressedFileSize6

%%for Quality 90

imwrite(Original,'CompressedQuality7.jpg','jpg','Quality',90);

information = imfinfo('CompressedQuality7.jpg');

CompressedFileSize7=information.FileSize;

CompressedRatio7=OriginalFileSize/CompressedFileSize7

%%for Quality 100

imwrite(Original,'CompressedQuality8.jpg','jpg','Quality',100);

information = imfinfo('CompressedQuality8.jpg');

CompressedFileSize8=information.FileSize;

CompressedRatio8=OriginalFileSize/CompressedFileSize8

Answer 1

[Walter Roberson]

Qualities = [0 5 15 25 50 75 90 100];
for qidx = 1 : length(Qualities)
    filename = sprintf('CompressedQuality%d.jpg', qidx);
    imwrite(Original, filename, 'jpg', 'Quality', Qualities(qidx));
    information = imfinfo(filename);
    CompressedFileSizes(qidx) = information.FileSize;
    CompressedRatios(qidx) = OriginalFIleSize / CompressedFileSizes(qidx);
end

[Nour George]

@Walter Roberson Thank you so much my Problem was solved .

another Question , How can i use plot function for this code ?

[Walter Roberson]

plot(Qualities, CompressedRatios)

[Nour George]

@Walter Roberson Thanks a lot