уравненице - Помощь студентам

Vitek.i · 21.02.2011, 12:13

, не знаю даже с чего начать

x=15
xcr=244.6356
sigma=110.8464

kaljan775 · 21.02.2011, 12:23

что такое П ?

Vitek.i · 21.02.2011, 12:57

произведение

Vitek.i · 21.02.2011, 13:32

Dim sigma As Single = 110.8464
Dim xcr As Single = 244.6356
Dim sum, proizv, x1, x2 As Double
sum = 0
proizv = 1
x=15

For n = 0 To 100
x1 = x * Math.Sqrt(1 / (2 * sigma ^ 2)) - xcr * Math.Sqrt(1 / (2 * sigma ^ 2))
If n = 0 Then
sum = sum + (x1 / (4 * n + 2)) * 1
Else
x2 = -(x * Math.Sqrt(1 / (2 * sigma ^ 2)) - xcr * Math.Sqrt(1 / (2 * sigma ^ 2))) ^ 2
proizv = x2 / n
sum = sum + (x1 / (4 * n + 2)) * proizv
End If
Next n
sum = (sum * 2 / Math.PI ^ 0.5) + 0.5

вот как то так получилось но не правильно ка то считает

Vitek.i · 21.02.2011, 13:38

Dim sigma As Single = 110.8464
Dim xcr As Single = 244.6356
Dim sum, proizv, x1, x2 As Double
sum = 0
proizv = 1
x=15

For n = 0 To 100
x1 = x * Math.Sqrt(1 / (2 * sigma ^ 2)) - xcr * Math.Sqrt(1 / (2 * sigma ^ 2))
If n = 0 Then
sum = sum + (x1 / (4 * n + 2)) * 1
Else
x2 = -(x * Math.Sqrt(1 / (2 * sigma ^ 2)) - xcr * Math.Sqrt(1 / (2 * sigma ^ 2))) ^ 2
proizv = proizv* (x2 / n)
sum = sum + (x1 / (4 * n + 2)) * proizv
End If
Next n
sum = (sum * 2 / Math.PI ^ 0.5) + 0.5

а теперь всё правильно, всем спасибо

21.02.2011, 12:23	#2
kaljan775 :D Форумчанин Регистрация: 26.09.2010 Сообщений: 570	что такое П ? Пишу ПО, создаю сайты, делаю курсовые работы, за деньги C#, .NET, MS SQL, AngularJS, HTML, jQuery

21.02.2011, 12:57	#3
Vitek.i Пользователь Регистрация: 06.12.2010 Сообщений: 28	произведение

21.02.2011, 13:32	#4
Vitek.i Пользователь Регистрация: 06.12.2010 Сообщений: 28	Dim sigma As Single = 110.8464 Dim xcr As Single = 244.6356 Dim sum, proizv, x1, x2 As Double sum = 0 proizv = 1 x=15 For n = 0 To 100 x1 = x * Math.Sqrt(1 / (2 * sigma ^ 2)) - xcr * Math.Sqrt(1 / (2 * sigma ^ 2)) If n = 0 Then sum = sum + (x1 / (4 * n + 2)) * 1 Else x2 = -(x * Math.Sqrt(1 / (2 * sigma ^ 2)) - xcr * Math.Sqrt(1 / (2 * sigma ^ 2))) ^ 2 proizv = x2 / n sum = sum + (x1 / (4 * n + 2)) * proizv End If Next n sum = (sum * 2 / Math.PI ^ 0.5) + 0.5 вот как то так получилось но не правильно ка то считает

21.02.2011, 13:38	#5
Vitek.i Пользователь Регистрация: 06.12.2010 Сообщений: 28	Dim sigma As Single = 110.8464 Dim xcr As Single = 244.6356 Dim sum, proizv, x1, x2 As Double sum = 0 proizv = 1 x=15 For n = 0 To 100 x1 = x * Math.Sqrt(1 / (2 * sigma ^ 2)) - xcr * Math.Sqrt(1 / (2 * sigma ^ 2)) If n = 0 Then sum = sum + (x1 / (4 * n + 2)) * 1 Else x2 = -(x * Math.Sqrt(1 / (2 * sigma ^ 2)) - xcr * Math.Sqrt(1 / (2 * sigma ^ 2))) ^ 2 *proizv = proizv (x2 / n)** sum = sum + (x1 / (4 * n + 2)) * proizv End If Next n sum = (sum * 2 / Math.PI ^ 0.5) + 0.5 а теперь всё правильно, всем спасибо