Форум программистов, компьютерный форум, киберфорум
Наши страницы
Matlab
Войти
Регистрация
Восстановить пароль
 
sharken
0 / 0 / 0
Регистрация: 11.07.2015
1

Вывод текста из файла , подсчёт частоты букв и вывод диаграммы

31.12.2013, 02:46. Просмотров 751. Ответов 0
Метки нет (Все метки)

такая проблема. мне нужно что бы из выбранного текста были подсчитаны повторы букв , а после выведены их частоты в виде диаграммы. программа я сделал, но препод потребовал чтобы вывод текста был из отдельного текстового файла, и вот с этим я уже не могу справиться. Не знаю почему, но программа не выводит ничего в диаграмму. Надеюсь поможете доработать =)

Matlab M
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
clear,clc,close all
abc='а':'я';
abc = upper(abc);
for kw=1:10
% Открытие и чтение исходного файла
if kw==1; 
    fid1 = fopen('lk.m','r');
end
end
F = fread(fid1');
tt = fid1;
tstr = upper(tt);
 
p = 0;
a1 = 0;
a2 = 0;
 
 
D = length(tstr)
txt = [];
for k = 1 : length(abc)
    
    for k2 = 1 : length(tstr)
        if abc(k) == tstr(k2)
%             p = p + 1; 
            txt = [txt, tstr(k2)];
            
        end %% end if
    end %% end 2nd for
    
    
end % end 1st for
 
word=zeros(33,1);
for g=1:length(abc);  
   for k=1:length(txt)
    if abc(g)==txt(k)
       word(g,1)=word(g,1)+1; 
    end
   end
end
%  word
 n = length(word);
 
% return
%fid = fopen('strl.txt','rt'); 
x = 0:33;
% y = ones(size(x));
% % % % line(x,y)
hold on
line([0, 34],[0,0], 'color', 'r')
text(34,0,'\bf<', 'rotation', 180, 'color', 'r')
line([0, 0],[0,101], 'color', 'r')
text(0,101,'\bf<', 'rotation', -90, 'color', 'r')
a = 'А';
for k = 1 : x(end)-1
text(k,-0.1, sprintf('%s|', '\fontsize{6}'))
text(k,-2.75, sprintf('%s%s', '\fontsize{11}', a))
a = a + 1;
end
%  kk = 4;
% line([kk, kk],[0, 50], 'linew', 10, 'color', [230, 177, 0]/255)
for k = 10 : 10 : 100
    text(-1.75,k, sprintf('%s%g %%', '\fontsize{11}', k))
    line([-0.2,0],[k, k])
end
 
%% Частотная гистограмма
for k = 1 : length(abc)
    
    line([k,k], [0,word(k)*100/sum(word)], 'linew', 10)
    if (word(k))
    text(k-0.5, word(k)*100/sum(word) + 1.5, sprintf('%s%0.2f', '\bf\fontsize{8}', word(k)*100/sum(word)))
    end
end
title('\fontsize{14}Частотная диаграмма текста русского языка')
axis off
h = get(0,'screensize');
ylim([-0.1, 102])
d = [h(3)*0.1, h(4)*0.1, h(3)*0.6, h(4)*0.7]
set(gcf,'color','w', 'position', d)
fclose(fid1);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.12.2013, 02:46
Ответы с готовыми решениями:

Вывод текста на график
Здравствуйте. Подскажите, как вывести текст в несколько строк на график? Зашел...

Вывод текста и переменной
Здравствуйте! Не могу придумать, как можно вывести текст и переменную сразу....

Вывод стихотворения, подсчёт слов, букв,строк
Добрый день! Только начинаю изучать C# и сразу получила вот такое задание: ...

Подсчёт количества букв "a" в файле и вывод на экран [tasm]
Вот что-то написал. Не запускается. .486 model small Data SEGMENT use16...

Вывод из текста первые N букв каждой строки
#include &quot;mainwindow.h&quot; #include &quot;ui_mainwindow.h&quot; #include &lt;QFileDialog&gt;...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.12.2013, 02:46

Вывод текста на консоль, закарючки вместо букв
Я создал консольное win32 приложение в vs2010. Попробовал cout'ом вывести текст...

Вывод текста из файла
Подобного не нашел (если плохо искал, то ткните пальцем). Вывод текста из...

Вывод текста из файла
Доброго времени суток, пишу программу тестирования, все вопросы с вариантами...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru