Адрес этой странички : http://spcalc.narod.ru/spcalc_intscr_work.htm
spCalc.exe
Простой программируемый калькулятор.  

Пример разработки скрипта.

 Рассмотрим приемы использования программы на конкретном примере.


Задача 1.

Прочитать из текстового файла пары численных значений (X и Y).
Используя линейную регрессию :

Y = A * X + B

рассчитать коэффициенты регрессии  A и B.

Решаем.

1. Создадим текстовый файл с именем Primer_001.txt следующего содержания :

* Исходные данные для Регресс-анализа * X | Y *---------------- 1 | 3 2 | 4 3 | 5 4 | 6 5 | 7 6 | 8 7 | 9

2. Запустим программу spCalc.exe, перейдем на вкладку "Выполнить" и нажмем на кнопку "Новый скрипт"  (или выберем соотв. пункт меню).

3. Введем следующий текст скрипта :

4. Сохраним его в файл Primer_001.pas  и запустим на выполнение (используя соотв. кнопки).

На экране появится диалоговое окно выбора имени файла :

Выберем созданный нами текстовый файл Primer_001.txt.
На экране появится форма с содержанием файла :

Т.е., наш скрипт работает.

5. Теперь доработаем скрипт следующим образом :

Const sSep = '|'; //разделитель колонок в текстовом файле Var FileName : string; //Имя текстового файла с данными ListData : TStrings; //Буфер, куда считываются данные из текстового файла X,Y, //обрабатываемые данные (из файла) A,B : extended; //коэффициенты регрессии Sx,Sy : string; S1,S2,S3,S4,Z : extended; N,i : LongInt; begin FileName:=SelectFile_Open('','','',''); //Вызываем диалог для выбора файла if FileExists(FileName) then begin //Проверяем существование файла ListData:=TStringList.Create; //создаем список TStrings TRY ListData.LoadFromFile(FileName); //читаем данные из файла в список //List_View('Содержание файла '+FileName, ListData); //смотрим содержание файла if ListData.Count>2 then begin //файл не пустой и точек для расчета достаточно //---------------------- A:=0; B:=0; S1:=0; S2:=0; S3:=0; S4:=0; N:=0; //---------------------- //---------------------- //Считываем данные и делаем расчеты i:=-1; while i<(ListData.Count-1) do begin i:=i+1; Sx:=Trim(ListData[i]); if length(Sx)>0 then begin //эта строка не пустая if (Sx[1]<>'*') then begin //Это не комментарий Sy:=Get_WordFromString(sSep,Sx,1); X:=spStrToExtended(Sy,0); Sy:=Get_WordFromString(sSep,Sx,2); Y:=spStrToExtended(Sy,0); N:=N+1; s1:=s1+X; s2:=s2+Y; s3:=s3+X*Y; s4:=s4+X*X; end; end; end; //---------------------- //---------------------- //Рассчитываем коэффициенты if N>2 then begin Z:=N*s4-s1*s1; if Z<>0 then begin A:=(N*s3-s1*s2)/z; B:=(s2*s4-s3*s1)/z; ShowMessage('A='+FloatToStr(A)+' B='+FloatToStr(B)); end; end; //---------------------- end; FINALLY List_Clear(ListData); //Удаляем созданные объекты END; end; end.

6. Вновь сохраним скрипт  в файл Primer_001.pas  и запустим на выполнение.

На экране появится результат вычислений :

7. Изменим содержание файла Primer_001.txt следующим образом :

* Исходные данные для Регресс-анализа * X | Y *---------------- 0.95 | 3.3 2.1 | 3.9 3 | 5 4.1 | 6.1 4.95 | 6.95 5.9 | 7.8 7 | 9

И вновь запустим скрипт на выполнение.

Результат :

Т.е., первую часть задачи (вычисление коэфф. регрессии) мы выполнили.

Теперь сделаем экспорт данных в Excel.

8. Доработаем наш скрипт следующим образом :

Const sSep = '|'; //разделитель колонок в текстовом файле Var FileName : string; //Имя текстового файла с данными ListData : TStrings; //Буфер, куда считываются данные из текстового файла X,Y, //обрабатываемые данные (из файла) Yr, //расчетное значение Y A,B : extended; //коэффициенты регрессии Sx,Sy : string; S1,S2,S3,S4,Z : extended; N,i : LongInt; Excel, ListExcel : Variant; begin FileName:=SelectFile_Open('','','',''); //Вызываем диалог для выбора файла if FileExists(FileName) then begin //Проверяем существование файла ListData:=TStringList.Create; //создаем список TStrings TRY ListData.LoadFromFile(FileName); //читаем данные из файла в список //List_View('Содержание файла '+FileName, ListData); //смотрим содержание файла if ListData.Count>2 then begin //файл не пустой и точек для расчета достаточно //---------------------- A:=0; B:=0; S1:=0; S2:=0; S3:=0; S4:=0; N:=0; //---------------------- //---------------------- //Считываем данные и делаем расчеты i:=-1; while i<(ListData.Count-1) do begin i:=i+1; Sx:=Trim(ListData[i]); if length(Sx)>0 then begin //эта строка не пустая if (Sx[1]<>'*') then begin //Это не комментарий Sy:=Get_WordFromString(sSep,Sx,1); X:=spStrToExtended(Sy,0); Sy:=Get_WordFromString(sSep,Sx,2); Y:=spStrToExtended(Sy,0); N:=N+1; s1:=s1+X; s2:=s2+Y; s3:=s3+X*Y; s4:=s4+X*X; end; end; end; //---------------------- //---------------------- //Рассчитываем коэффициенты if N>2 then begin Z:=N*s4-s1*s1; if Z<>0 then begin A:=(N*s3-s1*s2)/z; B:=(s2*s4-s3*s1)/z; ShowMessage('A='+FloatToStr(A)+' B='+FloatToStr(B)); //Экспотрируем данные в Excel Excel:=ConnectToExcel(1,1); ListExcel:=Excel_GetList(Excel,1); if YesLinkToOLE(ListExcel) then begin Excel_PutValue_to_Cell(ListExcel, 1,1, 1,0, 'Результат расчета коэффициентов регрессии' ); Excel_PutValue_to_Cell(ListExcel, 3,1, 1,0, #39+'A=' ); Excel_PutValue_to_Cell(ListExcel, 3,2, 1,0, FloatToStr(A) ); Excel_PutValue_to_Cell(ListExcel, 4,1, 1,0, #39+'B=' ); Excel_PutValue_to_Cell(ListExcel, 4,2, 1,0, FloatToStr(B) ); Excel_PutValue_to_Cell(ListExcel, 6,1, 1,1, 'X' ); Excel_PutValue_to_Cell(ListExcel, 6,2, 1,1, 'Y' ); Excel_PutValue_to_Cell(ListExcel, 6,3, 1,1, 'Yr' ); N:=0; i:=-1; while i<(ListData.Count-1) do begin i:=i+1; Sx:=Trim(ListData[i]); if length(Sx)>0 then begin //эта строка не пустая if (Sx[1]<>'*') then begin //Это не комментарий N:=N+1; Sy:=Get_WordFromString(sSep,Sx,1); X:=spStrToExtended(Sy,0); Sy:=Get_WordFromString(sSep,Sx,2); Y:=spStrToExtended(Sy,0); Yr:=A*X+B; Excel_PutValue_to_Cell(ListExcel, N+6,1, 0,1, FloatToStr(X) ); Excel_PutValue_to_Cell(ListExcel, N+6,2, 0,1, FloatToStr(Y) ); Excel_PutValue_to_Cell(ListExcel, N+6,3, 0,1, FloatToStr(Yr) ); end; end; end; end; end; end; //---------------------- end; FINALLY //Удаляем созданные объекты List_Clear(ListData); UnAssignedVariant(Excel); END; end; end.

9. Сохраним скрипт и запустим на выполнение.

Результат :

© Sergey Popov, Usinsk, Komi, 2007