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

Function FnZ(y, m) 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 страница | Function Max(a, b) As Single |


Читайте также:
  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 z1, z2, z3, z4, z5 As Single

z1 =FnT(y + 0.1, m ^ 0.2 - 1) ^ 2

z2 =FnT(m + y ^ 2, y + 3)

z3 =FnT(y ^ 2 + 1.1, y * m ^ 0.3) ^ (2 / 3)

z4 =1.23 + z1 - Abs (y * z2) ^ (2 / m)

z5 =2.6 + z3 + Abs (y / m) ^ (1 / 3)

FnZ =z4 / z5

End Function

 

Function FnT(i, j) As Single

Dim c As Single

c =j * Log (Abs (i + j) ^ 0.56) ^ 2

c = Abs (i) ^ 0.13 - c / (i * 3.6 + 0.25)

If (i >= j) And (i < 2 * j) Then

c =3 * Cos (i ^ 2 - j / 6) ^ 2

c =c / Log (Abs (i + j - 0.11) ^ 1.3) ^ 2

End If

If i < j Then c =1 + i * j ^ 2 + Sin (i ^ 3) ^ 2

FnT =c

End Function

або

Function FnT1(i, j) As Single

Dim c As Single

If (i >= j) And (i < 2 * j) Then

c =3 * Cos (i ^ 2 - j / 6) ^ 2

FnT1 =c / Log (Abs (i + j - 0.11) ^ 1.3) ^ 2

ElseIf i < j Then FnT1 =1 + i * j ^ 2 + Sin (i ^ 3) ^ 2

Else

c =j * Log (Abs (i + j) ^ 0.56) ^ 2

FnT1 = Abs (i) ^ 0.13 - c / (i * 3.6 + 0.25)

End If

End Function

A B C D E
  y= 4,65 m=  
         
  z1= =FnT(C65+0,1;E65^0,2-1)^2    
  z2= =FnT(E65+C65^2;C65+3)    
  z3= =FnT(C65^2+1,1;C65*E65^0,3)^(2/3)    
  z4= =1,23+C67-Abs(C65*C68)^(2/E65)    
  z5= =2,6+C69+Abs(C65/E65)^(1/3)    
         
  z= =C70/C71    
  z'= =FnZ(C65;E65)    

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

A B C D E
  y= 4,65 m=  
         
  z1= 1,4549    
  z2= 1,2202    
  z3= 1,1078    
  z4= 0,6825    
  z5= 4,6839    
         
  z= 0,1457    
  z'= 0,1457    

Задано yп=-5, yк=5, Dy=1, m=5. Відповідно до номера варіанту потрібно розробити програму для одновимірного табулювання функцій t1[i,j], t2[i,j], t3[i,j], ze[y,m] і zf[y,m] за незалежною змінною Х згідно з математичними виразами, наведеними вище. Побудувати одновимірні графіки цих функцій.

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

Клітина B84 à =C79 – <Enter>

Клітини B85:B94 à =B84+$G$79 – <Ctrl + Enter>

Клітини C84:C94 à =1,23+FnT(B84+0,1;$C$80^0,2-1)^2 – <Ctrl + Enter>

Клітини D81:D94à =Abs(B84*FnT($C$80+B84^2;B84+3))^(2/$C$80) – <Ctrl + Enter>

Клітини E81:E94 à =2,6+FnT(B84^2+1,1;B84*$C$80^0,3)^(2/3)+ABS(B84/$C$80)^(1/3) – <Ctrl + Enter>

Клітини F81:F94 à (C84-D84)/E84 – <Ctrl + Enter>

Клітини G81:G94 à =FnZ(B84;$C$80) – <Ctrl + Enter>

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

A B C D E F G
  yп= -5 yк=   Dy=  
  m=          
             
  y t1[i,j] t2[i,j] t3[i,j] ze[y,m] zf[y,m]
             
  -5,0 2,837 2,309 5,0541 0,1045 0,1045
  -4,0 1,554 2,060 4,9133 -0,1030 -0,1030
  -3,0 2,312 1,780 4,7333 0,1124 0,1124
  -2,0 2,276 1,456 4,5015 0,1820 0,1820
  -1,0 2,956 1,053 4,2738 0,4453 0,4453
  0,0 2,259 0,000 3,6083 0,6261 0,6261
  1,0 2,246 0,495 3,6488 0,4800 0,4800
  2,0 2,415 0,076 3,8389 0,6093 0,6093
  3,0 2,535 1,598 4,4738 0,2094 0,2094
  4,0 2,631 1,850 4,6054 0,1694 0,1694
  5,0 2,712 2,081 4,7240 0,1336 0,1336

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

,

де g[x,n] і q[x,n] визначаються за допомогою таких математичних виразів:

і .

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


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


<== предыдущая страница | следующая страница ==>
Dim A_mas()As Single 4 страница| Function FnG(x, n) As Single

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