{

dest.reset(src.size());

unsigned int i,j,k;

real sum;

floatImage horizontal(src.iwidth(), src.iheight());

for (j = 0; j < src.iheight(); j++)

for (i = 0; i < src.iwidth(); i++)

{

sum = 0.0;

for (k = 0; k < src.iwidth(); k++)

sum += src(k,j)*

cos(real(2*k+1)*PI*real(i)/(real(2*src.iwidth())));

horizontal(i,j) = sum;

}

for (i = 0; i < src.iwidth(); i++)

for (j = 0; j < src.iheight(); j++)

{

sum = 0.0;

for (k = 0; k < src.iheight(); k++)

sum += horizontal(i,k)*

cos(real(2*k+1)*PI*real(j)/(real(2*src.iheight())));

dest(i,j) =

alpha(i,src.iwidth())*alpha(j,src.iheight())*sum;

}

}

void idct(const floatImage& src, floatImage& dest)

{

dest.reset(src.size());

unsigned int i,j,k;

real sum;

floatImage horizontal(src.iwidth(), src.iheight());

for (j = 0; j < src.iheight(); j++)

for (i = 0; i < src.iwidth(); i++)

{

sum = 0.0;

for (k = 0; k < src.iwidth(); k++)

sum += alpha(k,src.iwidth())*src(k,j)*

cos(real(2*i+1)*PI*real(k)/(real(2*src.iwidth())));

horizontal(i,j) = sum;

}

for (i = 0; i < src.iwidth(); i++)

for (j = 0; j < src.iheight(); j++)

{

sum = 0.0;

for (k = 0; k < src.iheight(); k++)

sum += alpha(k, src.iheight())*horizontal(i,k)*

cos(real(2*j+1)*PI*real(k)/(real(2*src.iheight())));

dest(i,j) = sum;

}

}

floatImageRef dct(const floatImage& im)

{

floatImage dctim;

dct(im, dctim);

return dctim;

}

floatImageRef idct(const floatImage& im)

{

floatImage idctim;

idct(im, idctim);

return idctim;

}

ChanDCT::ChanDCT(unsigned int size)

{

m = (int)ceil(log2(size));

N = (int)pow(2, m);

cosines = new float [N];

makecosinetable();

scaleDC = 1.0/(float)N;

scaleMix = sqrt(2.0)/(float)N;

scaleAC = 2.0 * scaleDC;

}

ChanDCT::~ChanDCT()

{

delete [] cosines;

}

void ChanDCT::dct_in_place(floatImage& dest) const

{

int n1,k,j,i,i1,l,n2,rows,cols,p;

double c,xt;

rowsinputmapping(dest);

for (rows=0; rows<N; rows++) {

p=0;

n2 = N;

for (k=1; k<m; k++) {

n1 = n2;

n2 = n2 >>1;

for (j=0; j<n2; j++) {

c=cosines[p++];

for (i=j; i<N; i+=n1) {

l = i+n2;

xt = dest(rows,i) — dest(rows, l);

dest(rows,i) = dest(rows,i) + dest(rows, l);

dest(rows, l) = 2*xt * c;

}

}

}

c = cosines[p++];

for (i=0; i<N; i+=2) {

i1 = i+1;

xt = dest(rows,i);

dest(rows,i) += dest(rows, i1);

dest(rows, i1) = (xt-dest(rows, i1))* c;

}

}

rowsbitreversal(dest);

rowspostadditions(dest);

columnsinputmapping(dest);

for (cols=0; cols<N; cols++) {

p=0;

n2 = N;

for (k=1; k<m; k++) {

n1 = n2;

n2 = n2 >>1;

for (j=0; j<n2; j++) {

c=cosines[p++];

for (i=j; i<N; i+=n1) {

l = i+n2;

xt = dest(i, cols) — dest(l, cols);

dest(i, cols) = dest(i, cols) + dest(l, cols);

dest(l, cols) = 2*xt * c;

}

}

}

c = cosines[p++];

for (i=0; i<N; i+=2) {

i1 = i+1;

xt = dest(i, cols);

dest(i, cols) += dest(i1, cols);

dest(i1, cols) = (xt-dest(i1, cols))* c;

}

}

columnsbitreversal(dest);

columnspostadditions(dest);

dest(0,0) *= scaleDC;

for (i = 1; i < N; i++)

dest(i, 0) *= scaleMix;

for (j = 1; j < N; j++)

dest(0, j) *= scaleMix;

for (i = 1; i < N; i++)

for (j = 1; j < N; j++)

dest(i,j) *= scaleAC;

}

void ChanDCT::dct(const floatImage& src, floatImage& dest) const

{

assert( src.iwidth() == (unsigned int)N &&

src.iheight() == (unsigned int)N );

dest = src;

dct_in_place(dest);

}

floatImageRef ChanDCT::dct(const floatImage& im) const

{

floatImage ret(im);

dct_in_place(ret);

return ret;

}

void ChanDCT::makecosinetable()

{

int n1,k,j,n2,p;

double e;

n2 = N;

p=0;

for (k=1; k<m; k++) {

n1 = n2;

n2 = n2 >>1;

e = PI/(n1<<1);

for (j=0; j<n2; j++) {

cosines[p++] = cos(((j<<2)+1)*e);

}

}

cosines[p++] = cos (PI/4.0);

}

void ChanDCT::columnspostadditions(floatImage& fi) const

{

int step,loops,k,ep,j,i,l,cols;

for (cols=0; cols<N; cols++) {

step =N;

loops = 1;

for (k=1; k<m; k++)  {

step = step>>1;

ep = step>>1;

loops = loops <<1;

for (j=0; j<(step>>1); j++) {

l=ep;

fi(l, cols) = fi(l, cols)/2;

for (i=1; i<loops; i++)  {

fi(l+step, cols) = fi(l+step, cols) — fi(l, cols);

l =l+step;

}

ep +=1;

}

}

}

}

void ChanDCT::rowspostadditions(floatImage& fi) const

{

int step,loops,k,ep,j,i,l,rows;

for (rows=0; rows<N; rows++) {

step =N;

loops = 1;

for (k=1; k<m; k++)  {

step = step>>1;

ep = step>>1;

loops = loops <<1;

for (j=0; j<(step>>1); j++) {

l=ep;

fi(rows, l)= fi(rows, l)/2;

for (i=1; i<loops;i++)  {

fi(rows, l+step) = fi(rows, l+step)- fi(rows, l);

l =l+step;

}

ep +=1;

}

}

}

}

void ChanDCT::rowsbitreversal(floatImage& fi) const

{

int v1, v2, v3,i,j,k,cols;

double xt;

for (cols =0; cols<N; cols ++) {

v1 = (m+1)/2;

v2 = 1 << v1;

v3 = N-1-v2;

j=0;

for(i=1; i<=v3; i++){

k= N>>1;

while(k<=j){

j=j-k;

k=k>>1;

}

j +=k;

if(i<j){

xt=fi(cols, j);

fi(cols, j)= fi(cols, i);

fi(cols, i)=xt;

}

}

}

}

void ChanDCT::columnsbitreversal(floatImage& fi) const

{

int v1, v2, v3,i,j,k,rows;

double xt;

for (rows =0; rows<N; rows ++) {

v1 = (m+1)/2;

v2 = 1 << v1;

v3 = N-1-v2;

j=0;

for(i=1; i<=v3; i++){

k= N>>1;

while(k<=j){

j=j-k;

k=k>>1;

}

j +=k;

if(i<j){

xt=fi(j, rows);

fi(j, rows) =fi(i, rows);

fi(i, rows) =xt;

}

}

}

}

void ChanDCT::columnsinputmapping(floatImage& fi) const

{

int n1,n2,rows,n;

floatImage s(fi.size());

for(n1=0; n1 < N; n1++)

for (n2=0; n2<N; n2++ )

s(n1, n2) = fi(n1, n2);

for (rows=0; rows<N; rows++) {

for(n=0; n < N/2; n++) {

fi(n, rows)     = s(2*n, rows);

fi(N-n-1, rows) = s(2*n+1, rows);

}

}

}

void ChanDCT::rowsinputmapping(floatImage& fi) const

{

int n1,n2,cols,n;

floatImage s(fi.size());

for(n1=0; n1 < N; n1++)

for (n2=0; n2<N; n2++ )

s(n1, n2) = fi(n1, n2);

for (cols=0; cols<N; cols++) {

for(n=0; n < N/2; n++) {

fi(cols, n)     = s(cols, 2*n);

fi(cols, N-n-1) = s(cols, 2*n+1);

}

}

}

//Процедура БПФ

Public Sub FFT(ByRef aSpR() As Single, ByRef aSpI() As Single, ByRef aQ As Byte, ByVal aN As Long, ByVal aPower As Integer, Ang() As Single)

Dim i As Long, j As Long, k As Long, oldQ As Long

Dim deg As Long, step As Long, idx As Long, sh As Long

step = aN

For j = 1 To aPower

deg = 0

step = step \ 2

For i = 0 To 2 ^ j — 1

idx = i * step

sh = deg + step

oldQ = 1 — aQ

For k = 0 To step — 1

aSpR(k + idx, aQ) = aSpR(k + deg, oldQ) + aSpR(k + sh, oldQ) * Ang(0, idx) — aSpI(k + sh, oldQ) * Ang(1, idx)

aSpI(k + idx, aQ) = aSpI(k + deg, oldQ) + aSpR(k + sh, oldQ) * Ang(1, idx) + aSpI(k + sh, oldQ) * Ang(0, idx)

Next k

eg = sh + step

If deg >= aN Then deg = 0

Next i

aQ = 1 — aQ

Next j

aQ = 1 — aQ

End Sub

//Процедура вычисления значений синусов и косинусов для БПФ

Public Sub CountFi(ByRef Ang() As Single, N As Long)

Dim i As Long

Dim koef As Double

ReDim Ang(0 To 1, 0 To N — 1)

koef = -2 * pi / N

For i = 0 To N — 1

Ang(0, i) = Cos(koef * i)

Ang(1, i) = Sin(koef * i)

Next i

End Sub

«Файл frmSpectr.frm (форма анализа спектра сигнала)»

Private frmInd As New frmIndicator

Private FChan() As Channel      ‘Массив каналов с атрибутами

Private Angle() As Single       ‘Массив значений синуса и косинуса для БПФ

Private FRes() As Single        ‘Массив амплитудных значений спектра

Private N As Long               ‘Число отсчетов БПФ

Private FPower As Integer       ‘Степень двойки при БПФ

Private FChannel As Integer     ‘Номер канала

Private FFreq As Single         ‘Частота дискретизации

Private dF As Single            ‘Частотное разрешение

Public Sub SetIndicator(F As Boolean)

FIndicator = F

End Sub

//Считать частоту дискретизации

Private Sub SetFrequency()

On Error Resume Next

FFreq = SRV1.Frequency(FChannel)

lblFd.Caption = Str(FFreq)

dF = FFreq / N

lbldF.Caption = Format(dF, » 0.00000″)

End Sub

Private Sub SetGridSize(AGrid As Grid, ASize As Long, AEnd As Long, ALy As Single, ADy As Single)

With AGrid

.Size = 0

.Size = ASize

.Mathly = ALy

.Mathdy = ADy

.Xfirst = 0

.Xend = AEnd

.Mathlx = .Xfirst

.Mathdx = .Xend

.Display

End With

End Sub

//Заполнить комбо-боксы каналов и числа отсчетов БПФ

Private Sub InitData()

On Error Resume Next

Dim i  As Integer

For i = 10 To 17

cbN.AddItem (Str(2 ^ i))

Next i

ReDim FChan(0 To SRV1.QuanChan() — 1)

FCLoaded = True

For i = 0 To SRV1.QuanChan() — 1

FChan(i).Signal = SRV1.Commentary(i)

FChan(i).Number = SRV1.NumPhChan(i)

ReDim FChan(i).CF(0)

If Not GetControlFreq(FChan(i)) Then

FCLoaded = False

cbChannel.AddItem (SRV1.Commentary(i))

Else

cbChannel.AddItem (FChan(i).Signal)

End If

Next i

If Not FConnected Then

Call MsgBox(«Нет соединения с сервером » & _

«Индикатор будет недоступен!», vbCritical + vbOKOnly, «Ошибка!»)

btnIndicator.Enabled = False

FCLoaded = False

End If

cbChannel.ListIndex = 0

End Sub

//Расчитать и вывести на график спектр сигнала

Private Sub GetSpectr()

On Error GoTo ErrLabel

Dim k As Long, i As Long, N2 As Long

Dim FQ As Byte, start_time As Single

start_time = Timer

If FFreq <> SRV1.Frequency(FChannel) Then

SetFrequency

Call SetGridSize(Grid1, N \ 2, FFreq \ 2, Grid1.Mathly, Grid1.Mathdy)

End If

If FApplyChange Then

Call CountFi(Angle, N)

Call SetGridSize(Grid1, N \ 2, FFreq \ 2, Grid1.Mathly, Grid1.Mathdy)

FApplyChange = False

End If

N2 = N \ 2: FQ = 0: k = 1

ReDim FSpR(0 To N — 1, 0 To 1)

ReDim FSpI(0 To N — 1, 0 To 1)

ReDim FRes(0 To N \ 2 — 1)

FError = SRV1.GetData(FChannel, 0, SRV1.CurrentTime(FChannel), N, FSpR(0, 1))

DoEvents

Call FFT(FSpR, FSpI, FQ, N, FPower, Angle)  ‘Вызов БПФ

If Not FRun Then Exit Sub

For i = 1 To N2 — 1

FRes(i) = Sqr(FSpR(i, FQ) * FSpR(i, FQ) + FSpI(i, FQ) * FSpI(i, FQ)) / N2

If FIndicator Then Call CheckFreq(FChan(FChannel), i * dF, FRes(i), k)

Next i

If FIndicator Then

frmInd.FlexG.Rows = k             ‘Установить число строк в гриде

If k > 1 And FIsSound Then Call Beep(4000, 9) ‘Издать звуковой сгнал

End If

FError = Grid1.Paint(FRes(0))

start_time = Timer — start_time

lblTime.Caption = Format$(start_time, «0.000″)

Exit Sub

ErrLabel:

End Sub

//Радиомониторинг

//Проверка частоты aF на допустимость значения

//Проверка на наличие «ВЧ-навязывания»

//Расчет показателя словесной разборчивости

Private Sub CheckFreq(aChan As Channel, aF As Single, aValue As Single, ByRef aRow As Long)

On Error GoTo ErrLabel

Dim i As Integer, j As Integer, tmp As Single

Dim Today

Dim MySecond

Dim MySecond_1

Dim MySecond_2

Dim MyMinute

Dim MyMinute_1

Dim MyMinute_2

//Показатель словесной разборчивости

Dim W As Double

Dim Q_3 As Double

Dim m As Double

Dim Q_2 As Double

Dim L As Integer

Dim alfa As Double

Dim delta_f As Double

Dim Pred_chuv As Double

Dim Norm_shum As Double

Dim Anten_kof As Double

Dim Kof_otr As Double

Dim Uroven As Double

Dim X As Double

Dim alfa_V3 As Double

Dim alfa_V1 As Double

Dim alfa_V2 As Double

If aF = 0 Then Exit Sub

For i = 1 To UBound(aChan.CF)

tmp = Abs(aF — aChan.CF(i).Freq)

If ((tmp <= dF) Or (tmp <= aChan.CF(1).Epsilant)) Then

If ((aValue > aChan.CF(i).MaxValue) And (Not aChan.CF(i).NSC)) Or ((aValue < aChan.CF(i).MaxValue) And aChan.CF(i).NSC) Then

aRow = frmInd.FlexG.Rows

If frmInd.FlexG.Rows < (aRow + 1) Then frmInd.FlexG.Rows = aRow + 1

Pred_chuv = 0.000000548

Uroven = aValue * 0.001

m = 1

delta_f = 20

alfa = 1.6 * 0.001 * (aF * 0.000001)

alfa_V2 = alfa / 20

alfa_V3 = 0.775 * (10 ^ alfa_V2)

Anten_kof = 10 ^ (0.511 * (Log(aF * 0.001) / Log(10)) — 2)

Kof_otr = 1

X = 4 * ((1.18 / ((0.781 * (Log(aF * 0.001) / Log(10)) ^ (2 / 3))) — 1))

Norm_shum = 10 ^ X

alfa_V1 = Norm_shum * 0.000001

L = Val(frmInd.Combo1.Text)

Q_2 = ((Kof_otr ^ 2) * (Uroven ^ 2) * (10 ^ (-(0.2 * L * alfa_V3)))) / (20 * ((10 ^ (0.1 * Pred_chuv)) + ((0.000001 * alfa_V1 * Anten_kof) ^ 2)))

Q_3 = Q_2 / 3

W = 1 / (1 + 0.21 * (Q_3 ^ (-1)))

Today = Now

frmInd.FlexG.TextMatrix(aRow, 0) = aRow

frmInd.FlexG.TextMatrix(aRow, 1) = Format(aF, «0.00″)

frmInd.FlexG.TextMatrix(aRow, 2) = Format(aValue, «0.00000″)

frmInd.FlexG.TextMatrix(aRow, 3) = Format(aChan.CF(i).MaxValue, «0.00000″)

frmInd.FlexG.TextMatrix(aRow, 4) = Format(aValue — aChan.CF(i).MaxValue, «0.00000″)

frmInd.FlexG.TextMatrix(aRow, 5) = Today

MySecond = Second(frmInd.FlexG.TextMatrix(1, 5))

MyMinute = Minute(frmInd.FlexG.TextMatrix(1, 5))

MySecond_2 = Second(Today)

MyMinute_2 = Minute(Today)

MySecond_1 = Second(frmInd.FlexG.TextMatrix(frmInd.FlexG.Rows — 1, 5))

MyMinute_1 = Minute(frmInd.FlexG.TextMatrix(frmInd.FlexG.Rows — 1, 5)) If ((MyMinute_1 — MyMinute) = 0) And ((MyMinute_2 — MyMinute) = 0) Then If ((MySecond_1 — MySecond) > 10) And ((MySecond_2 — MySecond) > 10) And frmInd.FlexG.Rows > 100 Then FRun = Not FRun

btnStart.Caption = «Старт»

frmInd.btnStart.Caption = btnStart.Caption

frmInd.Command2.Visible = True

frmInd.Label1.Visible = True

Exit Sub

End If

If ((MySecond_2 — MySecond) > 10) And (((MySecond_1 — MySecond) > 10) Or ((MySecond_1 — MySecond) < 10)) And (frmInd.FlexG.Rows < 100) Then  frmInd.FlexG.Rows = 1

End If

End If

If ((MyMinute_1 — MyMinute) = 1) And ((MyMinute_2 — MyMinute) = 1) Then If (((MySecond_1 + 60) — MySecond) > 10) And (((MySecond_2 + 60) — MySecond) > 10) And (frmInd.FlexG.Rows > 100) Then

FRun = Not FRun

btnStart.Caption = «Старт»

frmInd.btnStart.Caption = btnStart.Caption

frmInd.Command2.Visible = True

frmInd.Label1.Visible = True

Exit Sub

End If

If (((MySecond_2 + 60) — MySecond) > 10) And ((((MySecond_1 + 60) — MySecond) > 10) Or (((MySecond_1 + 60) — MySecond) < 10)) And (frmInd.FlexG.Rows < 100) Then  frmInd.FlexG.Rows = 1

End If

End If

Next i

Exit Sub

ErrLabel:

End Sub

«Файл frmInicator.frm (форма индикации нарушений)»

Private frm As frmSpectr

Public Sub ShowIndicator(AForm As frmSpectr)

Set frm = AForm

frm.SetIndicator True

Me.Caption = Left(frm.Caption, Len(frm.Caption) — Len(«спектр»)) & «индикатор по частотам»

Me.Show

Me.FlexG.Rows = 1

Me.chbAuto.Value = IIf(frm.GetAutoDBInput, 1, 0)

Me.chbSound.Value = IIf(frm.GetIsSound, 0, 1)

Me.btnStart.Caption = frm.btnStart.Caption

End Sub

//Запись фактов превышения в файл «Test.txt»

Private Sub btnRecord_Click()

Dim i As Integer

F = FreeFile

Open App.Path & «\Test.txt» For Output As #F

Print #F, FlexG.TextMatrix(0, 0); Spc(5); FlexG.TextMatrix(0, 1); Spc(5); FlexG.TextMatrix(0, 2); Spc(5); FlexG.TextMatrix(0, 3); Spc(5); FlexG.TextMatrix(0, 4); Spc(10); FlexG.TextMatrix(0, 5)

Print #F,

For i = 2 To FlexG.Rows — 1

Print #F, FlexG.TextMatrix(i, 0); Spc(5); FlexG.TextMatrix(i, 1); Spc(15); FlexG.TextMatrix(i, 2); Spc(20); FlexG.TextMatrix(i, 3); Spc(20); FlexG.TextMatrix(i, 4); Spc(10); FlexG.TextMatrix(i, 5)

Next i

Call MsgBox(«Данные успешно записанны в файл  Test.txt», vbInformation + vbOKOnly, «###»)

Close #F

btnRecord.Visible = False

Label1.Visible = False

End Sub

//Запись фактов превышения в Grid

Private Sub btnStart_Click()

frm.btnStart_Click

End Sub

Private Sub Form_Load()

FlexG.TextMatrix(0, 0) = «№»

FlexG.TextMatrix(0, 1) = «Частота (Гц)»

FlexG.TextMatrix(0, 2) = «Текущий уровень (мВ)»

FlexG.TextMatrix(0, 3) = «Допустимый уровень (мВ)»

FlexG.TextMatrix(0, 4) = «Превышение (мВ)»

FlexG.TextMatrix(0, 5) = «Дата»

FlexG.ColWidth(0) = 500

FlexG.ColWidth(1) = 3000

FlexG.ColWidth(2) = 3000

FlexG.ColWidth(3) = 3000

FlexG.ColWidth(4) = 3000

FlexG.ColWidth(5) = 3000

End Sub

//Построение графика

Private Sub DisplayGraf(AGrid As Grid, ByVal ATime As Single, ASize As Single)

ReDim FData(FFreq * FWidth)

FError = SRV1.GetData(FChannel, FNumDec, ATime, ASize, FData(0))

FError = AGrid.Paint(FData(0))

End Sub

{

CvrStgFile::read (io);

FILE *infile = NULL ;

infile = io->getStream() ;

rewind (infile) ;

struct jpeg_error_mgr errmgr ;

DeCInfo.err = jpeg_std_error (&errmgr) ;

jpeg_create_decompress (&DeCInfo) ;

jpeg_stdio_src (&DeCInfo, infile) ;

jpeg_read_header (&DeCInfo, TRUE) ;

DctCoeffs = jpeg_read_coefficients (&DeCInfo) ;

unsigned short max_v_samp_factor = 0 ;

unsigned short max_h_samp_factor = 0 ;

for (unsigned short icomp = 0 ; icomp < DeCInfo.num_components ; icomp++) {

max_v_samp_factor = AUtils::max<unsigned short> (max_v_samp_factor, DeCInfo.comp_info[icomp].v_samp_factor) ;

max_h_samp_factor = AUtils::max<unsigned short> (max_h_samp_factor, DeCInfo.comp_info[icomp].h_samp_factor) ;

}

HeightInBlocks = new unsigned int[DeCInfo.num_components] ;

WidthInBlocks = new unsigned int[DeCInfo.num_components] ;

for (unsigned short icomp = 0 ; icomp < DeCInfo.num_components ; icomp++) {

HeightInBlocks[icomp] = AUtils::div_roundup<unsigned int> (DeCInfo.image_height * DeCInfo.comp_info[icomp].v_samp_factor,

8 * max_v_samp_factor) ;

WidthInBlocks[icomp] = AUtils::div_roundup<unsigned int> (DeCInfo.image_width * DeCInfo.comp_info[icomp].h_samp_factor,

8 * max_h_samp_factor) ;

}

unsigned long totalnumcoeffs = 0 ;

for (unsigned short icomp = 0 ; icomp < DeCInfo.num_components ; icomp++) {

totalnumcoeffs += CoeffPerBlock * (HeightInBlocks[icomp] * WidthInBlocks[icomp]) ;

}

LinDctCoeffs.resize (totalnumcoeffs) ;

UWORD32 linindex = 0 ;

for (unsigned short icomp = 0 ; icomp < DeCInfo.num_components ; icomp++) {

unsigned int currow = 0 ;

while (currow < HeightInBlocks[icomp]) {

unsigned int naccess = 1 ;

JBLOCKARRAY array = (*(DeCInfo.mem->access_virt_barray))

((j_common_ptr) &DeCInfo, DctCoeffs[icomp], currow, naccess, FALSE) ;

for (unsigned int irow = 0 ; irow < naccess ; irow++) {

for (unsigned int iblock = 0 ; iblock < WidthInBlocks[icomp] ; iblock++) {

for (unsigned int icoeff = 0 ; icoeff < CoeffPerBlock ; icoeff++) {

LinDctCoeffs[linindex] = array[irow][iblock][icoeff] ;

if (LinDctCoeffs[linindex] != 0) {

StegoIndices.push_back (linindex) ;

}

linindex++ ;

}

}

}

currow += naccess ;

}

}

}

void JpegFile::write ()

{

CvrStgFile::write() ;

FILE* outfile = getBinIO()->getStream() ;

jpeg_create_compress (&CInfo) ;

jpeg_copy_critical_parameters (&DeCInfo, &CInfo) ;

struct jpeg_error_mgr jerr2 ;

CInfo.err = jpeg_std_error(&jerr2) ;

jpeg_stdio_dest (&CInfo, outfile) ;

jpeg_write_coefficients (&CInfo, DctCoeffs) ;

UWORD32 linindex = 0 ;

for (unsigned short icomp = 0 ; icomp < CInfo.num_components ; icomp++) {

unsigned int currow = 0 ;

while (currow < HeightInBlocks[icomp]) {

unsigned int naccess = 1 ;

JBLOCKARRAY array = (*(CInfo.mem->access_virt_barray))

((j_common_ptr) &CInfo, DctCoeffs[icomp], currow, naccess, TRUE) ;

for (unsigned int irow = 0 ; irow < naccess ; irow++) {

for (unsigned int iblock = 0 ; iblock < WidthInBlocks[icomp] ; iblock++) {

for (unsigned int icoeff = 0 ; icoeff < CoeffPerBlock ; icoeff++) {

array[irow][iblock][icoeff] = LinDctCoeffs[linindex] ;

linindex++ ;

}

}

}

currow += naccess ;

}

}

jpeg_finish_compress (&CInfo) ;

jpeg_destroy_compress(&CInfo);

jpeg_finish_decompress (&DeCInfo) ;

jpeg_destroy_decompress(&DeCInfo);

}

Этап 5 — Построение гистограммы.

Гистограмма будет строится для заданных значений в pictureBox2 при нажатии кнопки «Гистограмма». Событие button5_Click:

private void button5_Click(object sender, EventArgs e)

{

pictureBox2.Visible = true;

pictureBox1.Visible = false;

pictureBox3.Visible = false;

pictureBox4.Visible = false;

uk=setuk(uk);

userControl11.Enabled = false;

listBox1.Enabled = false;

pictureBox2.Visible = false;

pictureBox2.Visible = true;

}

Само же событие, обеспечивающее построение непосредственно диаграммы описывается схоже с событием для построения точечной диаграммы, только от точек следует откладывать прямоугольники. Программный код приведен ниже:

private void pictureBox2_Paint(object sender, PaintEventArgs e)

{

Pen myPen = new Pen(Color.Red, 2);

Rectangle[] recs = new Rectangle[n];

for (int i = 0; i < n; i++)

{

recs[i] = new Rectangle(pictureBox2.Size.Width / n * i+1, Convert.ToInt32(pictureBox1.Size.Height — Convert.ToInt32(listBox1.Items[i]) / uk), pictureBox2.Size.Width / n-1, Convert.ToInt32(Convert.ToInt32(listBox1.Items[i]) / uk));

}

e.Graphics.DrawRectangles(myPen, recs);

for (int i = 0; i < n; i++)

{

Random rnd=new Random();

SolidBrush[] br = new SolidBrush[n];

for (int j = 0; j < n; j++) { br[j] = new SolidBrush(Color.FromArgb(rnd.Next(0, 255), rnd.Next(0, 255), rnd.Next(0, 255))); }

e.Graphics.FillRectangle(br[i], recs[i]);

br[i].Dispose();

}

string[] val = new string [n];

Font MyFont = new Font(«Courier New», 10);

SolidBrush fontbr = new SolidBrush(Color.Black);

Point [] points = new Point[n];

for(int i=0; i<n; i++)

{

points[i]=new Point(pictureBox2.Size.Width / (2*n) * 2*i, Convert.ToInt32(pictureBox1.Size.Height — Convert.ToInt32(listBox1.Items[i]) / uk));

}

for (int i = 0; i < n; i++)

{

val[i] = Convert.ToString(listBox1.Items[i]);

e.Graphics.DrawString(val[i], MyFont, fontbr, points[i]);

}

myPen.Dispose();

fontbr.Dispose();

}

Цвет каждого столбца гистограммы задается случайным образом, цвет границы же всегда красный, но при желании можно изменить, изменив цвет пера myPen.

Этап 6 -  Построение круговой диаграммы.

Построение круговой диграммы основывается на использовании методов DrawPie и FillPie.

pictureBox3, в котором и будет строиться наша диаграмма вызывается нажатием кнопки button6, описываемой событием:

private void button6_Click(object sender, EventArgs e)

{

pictureBox2.Visible = false;

pictureBox1.Visible = false;

pictureBox3.Visible = true;

pictureBox4.Visible = false;

userControl11.Enabled = false;

listBox1.Enabled = false;

pictureBox3.Visible = false;

pictureBox3.Visible = true;

}

А построение самой диаграммы, как и прежде, описывается кодом в событии pictureBox3_Paint.

private void pictureBox3_Paint(object sender, PaintEventArgs e)

{

Pen myPen = new Pen(Color.Red, 2);

Rectangle rec = new Rectangle(50, 50, 200, 200);

int s = 0;

for (int i = 0; i < n; i++)

{

s = s + Convert.ToInt32(listBox1.Items[i]);

}

float fs = (float)s;

float k = fs / 360;

float[] r = new float[n+1];

r[0] = 0;

for (int i = 1; i < n; i++)

{

r[i] = r[i-1]+ Convert.ToInt32(listBox1.Items[i]) / k;

}

r[n] = (float) 360;

string[] str = new string[n];

Point[] points = new Point[n];

SolidBrush brush = new SolidBrush(Color.LightGray);

RectangleF[] recs = new RectangleF[n];

SizeF size= new SizeF(60,15);

for (int i = 0; i < n; i++) { points[i] = new Point(265, 70 + 10 * i); recs[i]=new RectangleF(points[i],size);

e.Graphics.FillRectangles(brush, recs);

}

System.Drawing.Font MyFont=new Font(«Courier New»,10);

for (int i = 0; i < n; i++)

{

Random rnd = new Random();

SolidBrush [] br = new SolidBrush[n];

for (int j = 0; j < n; j++) { br[j] = new SolidBrush(Color.FromArgb(rnd.Next(0, 255), rnd.Next(0, 255), rnd.Next(0, 255))); }

e.Graphics.DrawPie(myPen, rec, r[i], Math.Abs(r[i + 1] — r[i]));

e.Graphics.FillPie(br[i], rec, r[i], r[i + 1] — r[i]);

e.Graphics.FillPie(

str[i] = Convert.ToString(Convert.ToInt32(Math.Abs(r[i + 1] — r[i])*k));

e.Graphics.DrawString(str[i], MyFont, br[i], points[i]);

}

}

В заключение следует отметить то что нигде выше не было дано описания функции кнопки «Заново». Она перезапускает наше приложение для повторного ввода и задается кодом:

private void button4_Click(object sender, EventArgs e)

{

Application.Restart();

}

Так же хотелось бы привести результаты работы. Кроме того стоит отметить, что при повторном нажатии кнопки цвет элементов диаграммы будет меняться случайным образом.

const float* tG, unsigned int tgL, int tgZ,

const float* H, unsigned int hL, int hZ,

const float* G, unsigned int gL, int gZ) : BaseFWT2D(fname, tH, thL, thZ, tG, tgL, tgZ, H, hL, hZ, G, gL, gZ)

{

}

void FWT2D::transrows(char** dest, char** sour, unsigned int w, unsigned int h) const

{

int n;

float s, d;

unsigned int w2 = w / 2;

const vec1D& tH = gettH();

const vec1D& tG = gettG();

for (unsigned int y = 0; y < h; y++) {

for (unsigned int k = 0; k < w2; k++) {

s = 0.0f;

d = 0.0f;

for (int m = tH.first(); m <= tH.last(); m++) {

n = 2 * k + m;

if (n < 0) n = 0 — n;

if (n >= (int)w) n -= 2 * (1 + n — w);

s += tH[m] * float(sour[y][n]);

}

for (int m = tG.first(); m <= tG.last(); m++) {

n = 2 * k + m;

if (n < 0) n = 0 — n;

if (n >= (int)w) n -= 2 * (1 + n — w);

d += tG[m] * float(sour[y][n]);

}

dest[y][k] = mmxround(s);

dest[y][k+w2] = mmxroundTH(d);

}

}

}

void FWT2D::transcols(char** dest, char** sour, unsigned int w, unsigned int h) const

{

int n;

float s, d;

unsigned int h2 = h / 2;

const vec1D& tH = gettH();

const vec1D& tG = gettG();

for (unsigned int x = 0; x < w; x++) {

for (unsigned int k = 0; k < h2; k++) {

s = 0.0f;

d = 0.0f;

for (int m = tH.first(); m <= tH.last(); m++) {

n = 2 * k + m;

if (n < 0) n = 0 — n;

if (n >= (int)h) n -= 2 * (1 + n — h);

s += tH[m] * float(sour[n][x]);

}

for (int m = tG.first(); m <= tG.last(); m++) {

n = 2 * k + m;

if (n < 0) n = 0 — n;

if (n >= (int)h) n -= 2 * (1 + n — h);

d += tG[m] * float(sour[n][x]);

}

if (x < w / 2)

dest[k][x] = mmxround(s);

else

dest[k][x] = mmxroundTH(s);

dest[k+h2][x] = mmxroundTH(d);

}

}

}

void FWT2D::synthrows(char** dest, char** sour, unsigned int w, unsigned int h) const

{

int n;

float s2k, s2k1;

const vec1D& H2m = getH2m();

const vec1D& G2m = getG2m();

const vec1D& H2m1 = getH2m1();

const vec1D& G2m1 = getG2m1();

for (unsigned int y = 0; y < 2*h; y++) {

for (unsigned int k = 0; k < w; k++) {

s2k = 0.0f;

s2k1 = 0.0f;

for (int m = H2m.first(); m <= H2m.last(); m++) {

n = k — m;

if (n < 0) n = 0 — n;

if (n >= (int)w) n -= 2 * (1 + n — w);

s2k += H2m[m] * float(sour[y][n]);

}

for (int m = G2m.first(); m <= G2m.last(); m++) {

n = k — m;

if (n < 0) n = 0 — n;

if (n >= (int)w) n -= 2 * (1 + n — w);

s2k += G2m[m] * float(sour[y][n+w]);

}

for (int m = H2m1.first(); m <= H2m1.last(); m++) {

n = k — m;

if (n < 0) n = 0 — n;

if (n >= (int)w) n -= 2 * (1 + n — w);

s2k1 += H2m1[m] * float(sour[y][n]);

}

for (int m = G2m1.first(); m <= G2m1.last(); m++) {

n = k — m;

if (n < 0) n = 0 — n;

if (n >= (int)w) n -= 2 * (1 + n — w);

s2k1 += G2m1[m] * float(sour[y][n+w]);

}

dest[y][2*k] = mmxround(2.0f * s2k);

dest[y][2*k+1] = mmxround(2.0f * s2k1);

}

}

}

void FWT2D::synthcols(char** dest, char** sour, unsigned int w, unsigned int h) const

{

int n;

float s2k, s2k1;

const vec1D& H2m = getH2m();

const vec1D& G2m = getG2m();

const vec1D& H2m1 = getH2m1();

const vec1D& G2m1 = getG2m1();

for (unsigned int x = 0; x < 2*w; x++) {

for (unsigned int k = 0; k < h; k++) {

s2k = 0;

s2k1 = 0;

for (int m = H2m.first(); m <= H2m.last(); m++) {

n = k — m;

if (n < 0) n = 0 — n;

if (n >= (int)h) n -= 2 * (1 + n — h);

s2k += H2m[m] * float(sour[n][x]);

}

for (int m = G2m.first(); m <= G2m.last(); m++) {

n = k — m;

if (n < 0) n = 0 — n;

if (n >= (int)h) n -= 2 * (1 + n — h);

s2k += G2m[m] * float(sour[n+h][x]);

}

for (int m = H2m1.first(); m <= H2m1.last(); m++) {

n = k — m;

if (n < 0) n = 0 — n;

if (n >= (int)h) n -= 2 * (1 + n — h);

s2k1 += H2m1[m] * float(sour[n][x]);

}

for (int m = G2m1.first(); m <= G2m1.last(); m++) {

n = k — m;

if (n < 0) n = 0 — n;

if (n >= (int)h) n -= 2 * (1 + n — h);

s2k1 += G2m1[m] * float(sour[n+h][x]);

}

dest[2*k][x] = mmxround(2.0f * s2k);

dest[2*k+1][x] = mmxround(2.0f * s2k1);

}

}

{

CvrStgFile::read (io);

FILE *infile = NULL ;

infile = io->getStream() ;

rewind (infile) ;

struct jpeg_error_mgr errmgr ;

DeCInfo.err = jpeg_std_error (&errmgr) ;

jpeg_create_decompress (&DeCInfo) ;

jpeg_stdio_src (&DeCInfo, infile) ;

jpeg_read_header (&DeCInfo, TRUE) ;

DwtCoeffs = jpeg_read_coefficients (&DeCInfo) ;

unsigned long totalnumcoeffs = 0 ;

for (unsigned short icomp = 0 ; icomp < DeCInfo.num_components ; icomp++) {

totalnumcoeffs += CoeffPerBlock * (HeightInBlocks[icomp] * WidthInBlocks[icomp]) ;

}

LinDwtCoeffs.resize (totalnumcoeffs) ;

UWORD32 linindex = 0 ;

for (unsigned short icomp = 0 ; icomp < DeCInfo.num_components ; icomp++) {

unsigned int currow = 0 ;

while (currow < HeightInBlocks[icomp]) {

unsigned int naccess = 1 ;

JBLOCKARRAY array = (*(DeCInfo.mem->access_virt_barray))

((j_common_ptr) &DeCInfo, DwtCoeffs[icomp], currow, naccess, FALSE) ;

if (LinDwtCoeffs[linindex] != 0) {

StegoIndices.push_back (linindex) ;

}

linindex++ ;

}

currow += naccess ;

}

}

}

void JpegFile::write ()

{

CvrStgFile::write() ;

FILE* outfile = getBinIO()->getStream() ;

jpeg_create_compress (&CInfo) ;

jpeg_copy_critical_parameters (&DeCInfo, &CInfo) ;

struct jpeg_error_mgr jerr2 ;

CInfo.err = jpeg_std_error(&jerr2) ;

jpeg_stdio_dest (&CInfo, outfile) ;

jpeg_write_coefficients (&CInfo, DwtCoeffs) ;

UWORD32 linindex = 0 ;

for (unsigned short icomp = 0 ; icomp < CInfo.num_components ; icomp++) {

unsigned int currow = 0 ;

while (currow < HeightInBlocks[icomp]) {

unsigned int naccess = 1 ;

JBLOCKARRAY array = (*(CInfo.mem->access_virt_barray))

((j_common_ptr) &CInfo, DwtCoeffs[icomp], currow, naccess, TRUE) ;

for (unsigned int irow = 0 ; irow < naccess ; irow++) {

array[irow][iblock][icoeff] = LinDwtCoeffs[linindex] ;

}

currow += naccess ;

}

}

jpeg_finish_compress (&CInfo) ;

jpeg_destroy_compress(&CInfo);

jpeg_finish_decompress (&DeCInfo) ;

jpeg_destroy_decompress(&DeCInfo);

}

Text10.Text = 0.12

Text11.Text = 0.16

Text12.Text = 0.14

Text13.Text = 0.16

Text14.Text = 0.5

Text15.Text = 0.48

Text16.Text = 0.05

Text17.Text = 0.1

End Sub

Private Sub Command2_Click()

Dim Yt As Double

Dim x As Double

Dim h As Double

Dim Pi As Double

Dim Pim As Double

Dim Pip As Double

x = 23

h = 1

Pi = 0.5

Pim = 0.16

Pip = 0.48

Yt = x + h * ((Pi — Pim) / (2 * Pi — Pim — Pip))

Yt = CInt(Yt)

Text18.Text = Yt

Text19.Text = 0.9

End Sub

Private Sub Command3_Click()

Dim a1 As Double

Dim a2 As Double

Dim b1 As Double

Dim b2 As Double

Dim x As Double

Dim f As Double

Dim Yt As Double

a1 = 0.146

a2 = 0.146

Text20.Text = a1

b1 = 6.653

Text21.Text = b1

b2 = 26.612

Text22.Text = b2

x = 23

f = a1 * Exp(-1 * ((x — Yt) ^ 2 / b2))

Text23.Text = f

x = 25

f = a2 * Exp(-1 * ((x — Yt) ^ 2 / b2))

Text24.Text = f

End Sub

Этап 1  — Создание WindowsForm и заполнение необходимыми элементами

При выполнении данного практического задания использовалось четыре элемента PictureBox (наложенных друг на друга), шесть элементов Button, элемент ListBox, элемент Label и, наконец, пользовательский элемент NumericTextBox, являющийся наследником класса TextBox с возможностью ввода лишь цифр.

Этап 2 — Заполнение ListBox.

Итак, элемент listBox1 будет заполнятся значениями, которые пользователь вводит в поле для ввода, представленное элементом NumericTextBox, носящим имя userControl1.  Кроме того, будет реализована возможность ввода значения нажатием клавиши Enter, при активном элементе NumericTextBox.

Добавление элемента нажатием кнопки «Добавить»:

try { listBox1.Items.Add(Convert.ToInt32(userControl11.Text)); label1.Text = «Вводите значения, раделяя нажатием Enter»; }

catch (FormatException ex) { label1.Text = «Введено недопустимое значение»; }

userControl11.Text = «»;

n = listBox1.Items.Count;

Удаление выделенного значения из элемента ListBox.

private void button3_Click(object sender, EventArgs e)

{

listBox1.Items.Remove(listBox1.SelectedItem);

n = listBox1.Items.Count;

}

Реализация добавления элемента в ListBox нажатием клавиши Enter.

private void userControl11_KeyPress(object sender, KeyPressEventArgs e)

{

if (e.KeyChar ==(int)Keys.Enter)

{

listBox1.Items.Add(Convert.ToInt32(userControl11.Text));

userControl11.Text = «»;

n = listBox1.Items.Count;

}

}

Как можно было заметить из приведенных строк кода, в нашем классе Form1 заданы поля

int n = 0;

double uk = 1;

Поле uk изменяется методом setuk() и будет необходимо для построения диаграмм. В нем будет хранится количество точек, соответствующее единице значения из ListBox.

Поле n – общее число значений в коллекции ListBox.

Этап 3 -  Метод setuk()

Как уже было оговорено выше, методом setuk() изменяется значение поля uk. Ниже приведен код, реализующий его:

public double setuk(double uk)

{

int sum=0;

for (int i = 0; i < n; i++) { sum = sum + Convert.ToInt32(listBox1.Items[i]); }

double fs = (double)sum;

uk = fs/ (double) pictureBox1.Size.Height;

return (uk);

}

Этап 4 -  Построение точечной диаграммы

В данном варианте выполнения задания будет рассмотрена точечная диаграмма, со случайно задаваемым стилем соединения точек и цветом. Всего стилей 6: Custom, Dash, DashDot, DashDotDot, Dot, Solid.

Значения, для которых вариант выполнения лучше брать одного порядка, для большей наглядности. Кроме того, около каждой точки на диаграмме будет подписано значение, которому эта точка соответтсвует.

Точечная диаграмма будет вызываться нажатием кнопки «Точечная». Далее приведем программный код, описывающий событие нажатия кнопки:

private void button2_Click(object sender, EventArgs e)

{

pictureBox1.Visible = true;

pictureBox2.Visible = false;

pictureBox3.Visible = false;

pictureBox4.Visible = false;

uk=setuk(uk);

userControl11.Enabled = false;

listBox1.Enabled = false;

pictureBox1.Visible = false;

pictureBox1.Visible = true;

}

После нажатия данной кнопки активизируется pictureBox1 и скрывется pictureBox4, кроме того деактивируются элементы ListBox и NumericTextBox. Построение самой диаграммы обеспечивает событие pictureBox1_Paint. Ниже приведен его код:

private void pictureBox1_Paint(object sender, PaintEventArgs e)

{

Random rnd = new Random();

int a = rnd.Next(0, 255), b = rnd.Next(0, 255), c = rnd.Next(0, 255);

Pen myPen = new Pen(Color.FromArgb(a,b,c), 2);

int ukd = 0;

Random rnd2 = new Random();

ukd = rnd2.Next(1, 6);

if(ukd==1) { myPen.DashStyle = DashStyle.Custom; }

if(ukd==2) { myPen.DashStyle = DashStyle.Dash; }

if(ukd==3) { myPen.DashStyle = DashStyle.DashDot; }

if(ukd==4) { myPen.DashStyle = DashStyle.DashDotDot; }

if(ukd==5) { myPen.DashStyle = DashStyle.Dot; }

if (ukd == 6) { myPen.DashStyle = DashStyle.Solid; }

Pen myPen2 = new Pen(Color.FromArgb(255-a, 255-b, 255-c), 5);

Point[] points = new Point[n];

for (int i = 0; i < n; i++)

{

points[i] = new Point(pictureBox1.Size.Width / n*i, Convert.ToInt32(pictureBox1.Size.Height — Convert.ToInt32(listBox1.Items[i])/uk));

}

e.Graphics.DrawLines(myPen, points);

SizeF size = new SizeF(5, 5);

RectangleF[] recs = new RectangleF[n];

for (int i = 0; i < n; i++)

{

recs[i] = new RectangleF(points[i], size);

e.Graphics.DrawEllipse(myPen2, recs[i]);

}

string[] val = new string[n];

Font MyFont = new Font(«Courier New», 10);

SolidBrush fontbr = new SolidBrush(Color.Black);

for (int i = 0; i < n; i++)

{

val[i] = Convert.ToString(listBox1.Items[i]);

e.Graphics.DrawString(val[i], MyFont, fontbr, points[i]);

}

myPen.Dispose();

myPen2.Dispose();

}

Цвет и стиль начертания линии задается случайно. Цвет точки задается как (255-цвет линии) для каждой из составляющих RGB, что исключает совпадение.

Продолжение смотри в следующей статье на нашем сайте

Заполните нулями элементы массива A(m,n), расположенные по периметру, используя только 1 цикл.

Алгоритм:

Создаем массив из M=5 строк и N=10 столбцов ->Придаем каждому элементу массива значение равное 1 ->Выводим начальный массив на экран -> Придаем значение равное 0 элементам, находящимся по периметру -> Выводим на экран конечный массив.

Код программы на языке програмирования C#:

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

namespace WindowsFormsApplication3

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

Random rand = new Random();

int n, k;

n = Convert.ToInt32(textBox1.Text);

k = Convert.ToInt32(textBox2.Text);

//n строк, k столбцов

dataGridView1.RowCount = n;

dataGridView1.ColumnCount = k;

int[] m= new int[n];

//Задаем индексы для строк

for (int i = 0; i < n; i++)

{

dataGridView1.Rows[i].HeaderCell.Value = (i + 1).ToString();

}

//Задаем индексы для столбцов

for (int i = 0; i < k; i++)

{

dataGridView1.Columns[i].HeaderCell.Value = (i + 1).ToString();

}

//вывод на экран элементов массива, принимающих случайное значение от 100 до 1000(dataGridView1)

for (int i = 0; i < n; i++)

{

for (int j = 0; j < k; j++)

{

dataGridView1.Rows[i].Cells[j].Value = rand.Next(100, 1000);

if (m[i] < Convert.ToInt32(dataGridView1.Rows[i].Cells[j].Value))

{

m[i] = Convert.ToInt32(dataGridView1.Rows[i].Cells[j].Value);

}

}

textBox3.Text+=»Строка » + (i+1) +»: «+ m[i]+Environment.NewLine;

}

}

}

}

Пользовательский интерфейс разработанной программной модели.

Результаты работы программы представлены на рисунке ниже

Алгоритм выполнения задачи:

Создаем массив, состоящий из n строк и k столбцов в DataGridView -> Выбираем размерность массива ->Заполняем массив случайными числами от 100 до 1000 ->Выбираем в каждой строке номера элементов с самым большим значением ->Выводим эти номера на экран в TextBox.

Нумерация элементов в массиве от 1(i+1).

Код программы на языке C#:

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

namespace WindowsFormsApplication3

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

Random rand = new Random();

int n, k;

n = Convert.ToInt32(textBox1.Text);

k = Convert.ToInt32(textBox2.Text);

//n строк, k столбцов

dataGridView1.RowCount = n;

dataGridView1.ColumnCount = k;

int[] m= new int[n];

//Задаем индексы для строк

for (int i = 0; i < n; i++)

{

dataGridView1.Rows[i].HeaderCell.Value = (i + 1).ToString();

}

//Задаем индексы для столбцов

for (int i = 0; i < k; i++)

{

dataGridView1.Columns[i].HeaderCell.Value = (i + 1).ToString();

}

//вывод на экран элементов массива, принимающих случайное значение от 100 до 1000(dataGridView1)

for (int i = 0; i < n; i++)

{

for (int j = 0; j < k; j++)

{

dataGridView1.Rows[i].Cells[j].Value = rand.Next(100, 1000);

if (m[i] < Convert.ToInt32(dataGridView1.Rows[i].Cells[j].Value))

{

m[i] = Convert.ToInt32(dataGridView1.Rows[i].Cells[j].Value);

}

}

textBox3.Text+=»Строка » + (i+1) +»: «+ m[i]+Environment.NewLine;

}

}

}

}

Пользовательский интерфейс. Снимки с экрана полученные при работе с программой

Работа программы при следующих входных данных: размерность матрицы (3X4).. Создан и заполнен случайными числами от 100 до 1000 двумерный массив(3 строки на 4 столбца).. На экран выведен этот массив в виде следующей матрицы:
696 767 960 210
482 261 810 907
433 694 408 480
Выбираем из каждой строки наибольший элемент. Конечный результат -
960 907 694