Похожие работы на «Решение задачи Дирихле для уравнения Лапласа методом сеток»

Решение задачи Дирихле для уравнения Лапласа методом сеток
Математика, Решение задачи Дирихле для уравнения Лапласа методом сеток, Курсовая ... FillF(void) // calc function F(x,y) at area Dh_ { for(i=0;i<13;i++) for(j=0;j<33;j++) if (arrayP[i][j].BelongsToDh_==1) arrayP[i][j].F=arrayP[i][j].xx ...
... of F { for(i=0;i<13;i++) for(j=0;j<33;j++) { if (arrayP[i][j].BelongsToDh==1) arrayP[i][j].F_=(arrayP[i-1][j].F+arrayP[i+1][j].F+ arrayP[i][j-1].F


Разработка алгоритмов и программ выполнения операций над последовательными и связанными представлениями структур данных [нестрогое соответствие]
Программирование и комп-ры, Разработка алгоритмов и программ выполнения операций над последовательными и связанными представлениями структур данных, ... asm{ mov ah,1 mov ch,0x20 int 0x10 } } / / Spisok **GenSeY(int Mas_y,int & Counter) { Counter=0; Spisok **Y = new Spisok* [Mas_y]; for (int i = 0; i< ...
... int *Pro = new int [Mas_y]; for (int j = 0; j< Mas_y; j++){ int k = random(Mas_y); int flag = 0; for (int j = 0; j< m; j++)if (k==Pro[j]) flag = 1; if ...


Передача информации из ультразвуковой медицинской диагностической установки ALOCA SSD650 [нестрогое соответствие]
Программирование и комп-ры, Передача информации из ультразвуковой медицинской диагностической установки ALOCA SSD650 , Рефераты ... p->neg) p->neg = 0; else p->neg = 1; if(!ExistWindow(H3d_view)) { udc = h_data(MainControl); udc->inv_prn = p->neg; } } SetupLUT(ud->dw); redraw_cw(w) ...
... 1) {h_mfree(s); return;} f_write(fin, &nx, sizeof(int)); f_write(fin, &ny, sizeof(int)); for(y=r.y0; y<=r.y1; y++) { for(x=r.x0,k=0; x<=r.x1; x++,k+ ...


Классификация сейсмических сигналов на основе нейросетевых технологий [нестрогое соответствие]
Кибернетика, Классификация сейсмических сигналов на основе нейросетевых технологий, Диплом ... char *defvalue(DEF **deflist, const char *name); int defclose(FILE *fp); void defdestroy(DEF **, int); void getvalues(void); void Debug (char *fmt, ...
... RavnRaspr(float A, float B); float NormRaspr(float B,float A); void ShufflePat(int *INP,int Koll_El); float F_Act(float x); float Forward (PAT src) ...


Передача информации из компьютерного рентгеновского томографа TOMOSCAN SR7000 [нестрогое соответствие]
Программирование и комп-ры, Передача информации из компьютерного рентгеновского томографа TOMOSCAN SR7000 , Рефераты ... t >= tmax) break; if (t > tmin) { tmin = t; c = p->c; } } else if (u > 0.0) { if (t <= tmin) break; if (t > tmax) { tmax = t; tmin = -100000; } } else ...
... x,double y,double z) { int i, j; getij(x,y,z,&i,&j); if (iimax) imax = i; if (jjmax) jmax = j; } static void set_tags(void) { int i; for (i=0; i<4; i+ ...


Динамическое распределение памяти [нестрогое соответствие]
Программирование и комп-ры, Динамическое распределение памяти , Работа Курсовая ... matr,double M[3][3]) { for (int i=0;im;i++) { for (int j=0;jn;j++) (matr->ptr[i][j])=M[i][j]; } } double OctNorm(Matr *matr) { double max=0; double a= ...
... pf=fopen(name,"wt"))) return 0; for (int i=0;i<=n;i++) { for (int j=0;j<=m;j++) { fprintf (pf,"%f ",ptr[i][j]); } fprintf (pf," "); } fclose (pf


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... readkey; wri_val(manual[j],j,true); case a of rightarrow, downarrow : j:=j+1; leftarrow, uparrow : j:=j-1; end; if j>10 then j:=10; if j<0 then j:=0; ...
... to 30 do with cell[i] do begin for j:=2 to 100 do begin z:=round(sqrt((x[j]-x[j-1])*(x[j]-x[j-1])+(y[j]-y[j-1])*(y[j]-y[j- 1]))); shift[z]:=shift[z]+1 ...


Алгоритм компактного хранения и решения СЛАУ высокого порядка [нестрогое соответствие]
Математика, Алгоритм компактного хранения и решения СЛАУ высокого порядка , Рефераты ... i = 0; i < ntr; i++) for (j = 0; j < (DWORD)type; j++) { DWORD out = tr[i][j]; Out.write((const char*)&out,sizeof(DWORD)); if (Out.fail()) { Out.close ...
... BoundList[k][m] = 1; } } for (i = 0; i < NumTr; i++) for (j = 0; j < (DWORD)Num1; j++) if (BoundList[i][j] == 0) { if (CurrentType == BASE3D_4) { cx ...


Кинематический анализ механизма транспортирования ткани [нестрогое соответствие]
Технология, Кинематический анализ механизма транспортирования ткани, Диплом ... постоянных */ #define pi M_PI #define RAD M_PI/180 /* Описание функций */ void elips(); void raschet(float); void draw(float); void stoyka(float,float ...
... fi>=360) fi=0; } while(1==1); getch(); setgraphmode(1); return; } void osi(float x, float y, float l_x, float l_y, int color) { int i; char buffer [80 ...


Трехмерная графика [нестрогое соответствие]
Программирование и комп-ры, Трехмерная графика, Контрольная ... d != 1.0 ) { for ( int j = 0; j < 4; j++ ) { Out.x [i][j] /= d; x [i][j] /= d; } } for ( int j = 0; j < 4; j++ ) { if ( j != i ) { if ( x[j][i] != 0.0 ...
... 0; i < 4; i++ ) for ( j = 0; j < 4; j++ ) if ( i != j ) { t = x [i][j]; x [i][j] = x [j][i]; x [j][i] = t; } } Matrix& Matrix :: operator += ( const ...