Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Function FnG(x, n) As Single

Dim A_mas() As Single | Dim A_mas()As Single 1 страница | Dim A_mas()As Single 2 страница | Dim A_mas()As Single 3 страница | Dim A_mas()As Single 4 страница |


Читайте также:
  1. A PRIVATE FUNCTION
  2. A single story
  3. Anonymous function conversions
  4. Anonymous function expressions
  5. Anonymous functions
  6. Asya______karmano (function)
  7. Attitudinal Function

Dim g As Single

Dim i As Byte

g =0

For i =1 To n

g =g + (x + Faktr(i)) / (i ^ 2 - x + 1.3)

Next i

FnG =g + x * n / n ^ x

End Function

 

Function FnQ(x, n) As Single

Dim q As Single

Dim i As Byte

q =1

For i =1 To n

q =q * ((x + i) / (i ^ 2 + 2 * Faktr(i) + 3) - x ^ (1 / i))

Next i

FnQ =q

End Function

 

Function FnP(s, t) As Single

Dim g1, g2, q1, q2 As Single

g1 = Abs (FnG(1.2 * s ^ 2, t) + s / t) ^ (1 / 3)

g2 =FnG(t ^ 2 + s, t + 2) ^ 0.8

q1 =FnQ(s ^ 2 + 3.1, 2 * t)

q2 = Sqr (Abs (FnQ(2 * s ^ 2 + t, t - 2) - t / (s + 0.1)))

FnP =g1 * g2 / q1 - q2

End Function

A B C D E
  s= 3,76 t=  
         
  g1= =ABS(FnG(1,2*C109^2;E109)+C109/E109)^(1/3)    
  g2= =FnG(E109^2+C109;E109+2)^0,8    
  q1= =FnQ(C109^2+3,1;2*E109)    
  q2= =КОРЕНЬ(ABS(FnQ(2*C109^2+E109;E109-2)-E109/(C109+0,1)))    
         
  p= =C111*C112/C113-C114    
  p'= =FnP(C109;E109)    

Результати розрахунку, виконані у середовищі Excel

A B C D E
  s= 3,76 t=  
         
  g1= 5,0846    
  g2= 83,8148    
  q1= 1068,6981    
  q2= 11,0306    
         
  p= -10,6318    
  p'= -10,6318    

Задано sп=-5, sк=5, Ds=1, t=5. Відповідно до номера варіанту потрібно розробити програму для одновимірного табулювання функцій g1[x,n], g2[x,n]/q1[x,n], q2[x,n], pe[s,t] і pf[s,t] за незалежною змінною Х згідно з математичними виразами, наведеними вище. Побудувати одновимірні графіки цих функцій.

Текст програми у режимі формул – для середовища Excel

Клітина B127 à =C122 – <Enter>

Клітини B128:B137 à =B127+$G$122 – <Ctrl + Enter>

Клітини C127:C137 à =ABS(FnG(1,2*B127^2;$C$123)+B127/$C$123)^(1/3) – <Ctrl + Enter>

Клітини D127:D137à=FnG($C$123^2+B127;$C$123+2)^0,2/FnQ(B127^2+3,1;2*$C$123) – <Ctrl + Enter>

Клітини E127:E137 à =КОРЕНЬ(ABS(FnQ(2*B127^2+$C$123;$C$123-2)-$C$123/ (B127+0,1))) – <Ctrl + Enter>

Клітини F127:F137 à =C127*D127-E127 – <Ctrl + Enter>

Клітини G127:G137 à =FnP(B127;$C$123) – <Ctrl + Enter>

Результати розрахунку, виконані у середовищі Excel

A B C D E F G
  sп= -5 sк=   Ds=  
  t=          
             
  s g1[x,n] g2[x,n]/q1[x,n] q2[x,n] pe[s,t] pf[s,t]
             
  -5,0 3,685 0,001 11,8504 -11,8467 -11,7598
  -4,0 2,117 0,002 11,3277 -11,3230 -11,2066
  -3,0 2,889 0,007 9,0925 -9,0737 -8,5821
  -2,0 2,757 0,026 6,1364 -6,0646 -4,0813
  -1,0 2,199 0,121 3,1528 -2,8874 4,9655
  0,0 1,944 0,279 7,6687 -7,1261 10,9192
  1,0 2,226 0,145 4,4767 -4,1538 12,6825
  2,0 2,792 0,020 6,5321 -6,4764 -5,8180
  3,0 2,841 0,006 9,2742 -9,2563 -8,8291
  4,0 1,990 0,002 11,4376 -11,4330 -11,3092
  5,0 3,635 0,001 11,9345 -11,9306 -11,8147

Задача 7.4. Задано дійсне число s=1.32×№ (де – но­мер ва­рі­ан­ту)і додатне ціле t=3. Відповідно до номера варіанту потрібно розробити програму, яка б давала змогу отримати значення функції

,

де h[x,y] визначається за допомогою такого математичного виразу:

.

Тексти функцій і процедур – для середовища Visual Basic


Дата добавления: 2015-11-14; просмотров: 59 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Function FnZ(y, m) As Single| Function Max(a, b) As Single

mybiblioteka.su - 2015-2024 год. (0.006 сек.)