Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
01.02.2009, 18:00
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
модифицирований метод Ейлера
C:
Код:
#include <stdio.h>
#include <math.h>
#include <conio.h>
#define n 2
#define pi 3.14159265
void main(void)
{
int i;
double x,a,b,h,y[n],yn[n],yz[n];
double dy(int i,double x,double y[n]);
double modyficEYLER(int i,double h,double x,double y[n],double yz[n]);
a=pi/4;
b=pi/3;
h=0.026;
x=a;
y[0]=0.0;
y[1]=2.0;
printf("x= %lf\ty[1]= %lf\ty[2]= %lf\n",x,y[0],y[1]);
do
{
printf("x= %lf\t",x+h);
for(i=0;i<=n-1;i++)
{
yz[i]=y[i];
yn[i]=modyficEYLER(i,h,x,y,yz);
printf("y[%d]= %lf\t",i+1,yn[i]);
}
printf("\n");
for(i=0;i<=n-1;i++)
y[i]=yn[i];
x+=h;
}
while(x<=(b-h));
printf("\n");
getch();
}
double dy(int i,double x,double y[n])
{
if(i==0)
return y[1];
else
return -4*y[0]+8*(1/tan(2*x));
}
double modyficEYLER(int i,double h,double x,double y[n],double yz[n])
{
yz[i]=yz[i]+h*dy(i,x,yz);
return y[i]+0.5*h*( dy(i,x,y)+dy(i,x+h,yz) );
}
|
|
|
01.02.2009, 18:01
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
интегрирование функции методо прямоугольников
pascal:
Код:
program lab4_11v;
uses Crt;
const a = 0;
b = 3;
E = 0.001;
function arcsin(x:real):real;
begin
if x=1.0 then
arcsin := Pi/2.0
else
arcsin := arctan(x/sqrt(1-x*x));
end;
function f(x:double):double;
begin
f:= arcsin(sqrt(x/(1+x)));
end;
var
S, h,n,M, x,Xn,I : double;
begin
ClrScr;
M := 0.05413; {max|f''(x)|}
h := sqrt( (24*E) / ((b-a)*M) ); {krok}
n := (b-a)/h; {4aCTuH}
S := 0;
x := a;
repeat
begin
Xn := x+h;
S := S + f((x+Xn)/2);
x := Xn;
end;
until (Xn <= (b-h));
I:= h * S;
writeln('I = ',I:5:5);
readln;
end.
|
|
|
|
01.02.2009, 18:24
|
|
Познавший АНТИЧАТ
Регистрация: 01.06.2008
Сообщений: 1,047
Провел на форуме:
5321514
Репутация:
3313
|
|
eLWAux, double объявляй как static или global... В стэке нельзя большие массивы хранить, а то будет stack overflow!
|
|
|
|
01.02.2009, 18:37
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
Сообщение от Chaak
В стэке нельзя большие массивы хранить, а то будет stack overflow!
спасибо за ошибку (:
// программа расчитана на небольшие системи уравнений
// т.е. и на небольшие массиви
// если у вас >100 уравнений, тогда всюда перед обьявлением массива допишите global ..или static
|
|
|
|
01.02.2009, 21:45
|
|
Познавший АНТИЧАТ
Регистрация: 01.12.2006
Сообщений: 1,769
Провел на форуме:
3718311
Репутация:
1118
|
|
Просили накатать лабу по генератору пассвордов
Вот ложу еще и сюда исходники, вдруг кому надо будет.
Написано с ходу и без особого энтузиазма, кому что не нравиться переделывайте сами 
http://depositfiles.com/files/uc1fnf6qt
С сохранением в файл (попросили дописать)
http://depositfiles.com/files/tcqqnia0d
2Модераторы
Звыняюсь если нарушаю но задолбали ПМ-ить , поступайте как знаете.
Последний раз редактировалось POS_troi; 02.02.2009 в 00:57..
|
|
|
|
02.02.2009, 11:16
|
|
Познавший АНТИЧАТ
Регистрация: 19.07.2005
Сообщений: 1,000
Провел на форуме:
5868159
Репутация:
950
|
|
Просили написать софт по решению нелинейных уравнений методом итерации.
С меня +
|
|
|
|
03.02.2009, 05:24
|
|
Новичок
Регистрация: 18.01.2009
Сообщений: 23
Провел на форуме:
31952
Репутация:
9
|
|
Помогите с курсачом.
Прога на Си.
Имеется граф надо найти количество компонент связанности в дополнениии заданного графа.
Ребра графа дополнения я уже нашел осталось тольок найти сколько в графе который состоит из найденных ребер компонент связанности.
Вот такой вот сломаймозг.
-----------------------------------
to cardons:
http://slil.ru/26609953
К обеду мож прога буит.
-----------------------------вот прога к методичке
/* Lab3 28203 */
#include <stdio.h>
#include <math.h>
#include <conio.h>
main()
{
int n=0;
float x,y,z,c,a,b,x0=1,y0=1,eps=0.001;
x=x0; y=y0;
textcolor(90+1);
clrscr();
puts("n x(k) x(k+1) X(k+1)-X(k) y(k) y(k+1) |Y(k+1)-Y(k)|");
do
{
a=x+(x*x+y-6)-(x+y-4);
b=y+(x*x+y-6)-2*(x+y-4);
//a=(2*x-3*x+2)/1-2*x;
//b=(2*x*x*x-13*x)/1-2*x;
z=x; c=y;
printf("|%d| %.4f| %.4f| %.4f| %.4f| %.4f| %.4f| \n",n++,x,a,fabs(a-x),y,b,fabs(b-y));
x=a; y=b;}
while(fabs(z-x)>eps || fabs(c-y)>eps);
getch();
return 0;
}
Последний раз редактировалось venom_aerocore; 10.02.2009 в 01:06..
|
|
|
|
07.02.2009, 19:35
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
venom_aerocore, тебе нужен обычный DFS (depth first search - поиск в глубину). Посмотри - реализаций в сети (должно быть) полно
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
09.02.2009, 15:05
|
|
Новичок
Регистрация: 29.12.2008
Сообщений: 12
Провел на форуме:
32412
Репутация:
1
|
|
Помогите пожалуйста решить однородный массив в паскале!
Имеется список запасов на складе типа:
наименование пр. / количество кг/ стоимость ед
Вывести наименование продукта, общая стоимость которого максимальна.
|
|
|
|
10.02.2009, 17:49
|
|
Новичок
Регистрация: 29.12.2008
Сообщений: 12
Провел на форуме:
32412
Репутация:
1
|
|
Помогите пожалуйста! очень нужно!
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
