y=e^-bt * sin( at+B )/>-sqrt(|bt+a|)
s=b*sin(at^2*cos2t)-1
тесты для проверки: а=-0,5;b=1,7;t=0,44
думаю что пиво или сок будет по требованию)))
Отправлено 09 августа 2013 - 14:39
Отправлено 09 августа 2013 - 14:58
Отправлено 09 августа 2013 - 15:36
C:\>echo a=-0.5; b=1.7; t=0.44; e(-b*t)*s(a*t+B) / -sqrt(sqrt((b*t+a)*(b*t+a))) | bc -l -.94651884707427292064 C:\>echo a=-0.5; b=1.7; t=0.44; b*s(a*t*t*c(2*t))-1 | bc -l -1.10478313103357901093
Отправлено 09 августа 2013 - 15:44
import math a = -0.5 b = 1.7 t = 0.44 def s_calc(a,b,t): s = b * math.sin(math.pow((a * t), 2) * math.cos(2 * t))-1 return s def y_calc(a,b,t): y = math.pow(2.7, (-b*t)) * math.sin(a*t + B) - math.sqrt(abs(b * t + a)) return y
Отправлено 09 августа 2013 - 15:50
Отправлено 09 августа 2013 - 16:01
Отправлено 09 августа 2013 - 16:05
Andreios (09 августа 2013 - 16:01) писал:
Отправлено 09 августа 2013 - 16:53
Uses DOS,CRT; Function y(inA,inB,inT: Real) :Real; Begin y:=Exp(-inB*inT)*Sin(inA*inT+inB)-Sqrt(Abs(inB*inT+inA)); End; Function s(inA,inB,inT: Real) :Real; Begin s:=inB*Sin(inA*Sqr(inT)*Cos(2*inT))-1; End; Var a,b,t: Real; Begin Write('a='); ReadLn(a); Write('b='); ReadLn(B)/>; Write('t='); ReadLn(t); WriteLn; WriteLn('y=',y(a,b,t):15:12); WriteLn('s=',s(a,b,t):15:12); End.
C:\>calcs a=-0.5 b=1.7 t=0.44 y=-0.026633399372 s=-1.104783131034
Отправлено 16 августа 2013 - 12:13