Matematika/Kreiviniai integralai

Iš testwiki.
Pereiti į navigaciją Jump to search

Šis straipsnis yra apie pirmojo ir antrojo tipo kreivinius integralus.

Pirmojo tipo kreivinis integralas

Pirmojo tipo kreivinis integralas naudojamas dvimačio ar trimačio lanko masės apskaičiavimui. Galima apskaičiuoti masę, kai ji pastovi ar kai kinta pagal tam tikrą funkciją. Jeigu masė pastovi, tai jos skaičiavimas sutampa su lanko ilgio skaičiavimu.

  • ds=1+y'2dx, kai kreivė L apibrėžta lygtimi y=y(x), o a≤x≤b.
∫Lf(x,y)ds=∫abf(x,y(x))1+(y′(x))2dx.
  • Kai kreivė L apibrėžta parametrinėmis lygtimis x=x(t), y=y(t), t∈[t0;T], tai ds=xt'2+yt'2dt, todėl
∫Lf(x,y)ds=∫t0Tf(x(t),y(t))xt'2+yt'2dt.
  • Kai prametrinėmis lygtimis x=x(t), y=y(t), z=z(t), t∈[t0;T] apibrėžta erdvinė kreivė L, tai
∫Lf(x,y,z)ds=∫t0Tf(x(t),y(t),z(t))xt'2+yt'2+zt'2dt.
  • Kai kreivė L polinėje koordinačių sistemoje apibrėžta lygtimi ρ=ρ(ϕ), ϕ∈[α;β] tai ds=ρ2+ρ'2dϕ ir
∫Lf(x,y)ds=∫αβf(ρcos⁡ϕ,ρsin⁡ϕ)ρ2+ρ'2dϕ.

Pavyzdžiai

  • Apskaičiuokime integralą ∫L(x+y)ds, kai L - prabolės y=12x2 lankas nuo taško (0; 0) iki taško (1; 1/2).
Remdamiesi sąlyga y=12x2, randame y'=x, ds=1+x2. Pritaikę pirmą formulę, gauname

∫L(x+y)ds=∫01(x+12x)1+x2dx=(1+12)∫01x1+x2dx= =2+12∫011+x2d(1+x2)2=2+132(1+x2)3|01=2+132(22−1)=4−1+22−232=3+232=16(2+32),

kur d(1+x2)=2xdx; dx=d(1+x2)2x.


  • Apskaičiuosime kreivinį integralą ∫ABydl, kur AB - parabolės y2=2x lankas nuo taško (0; 0) iki taško (2; 2).
Turime

y=2x,y′=12x,dl=1+y'2dx=1+12xdx. Pagal pirmą formulę gauname ∫ABydl=∫022x1+12xdx=∫022x+1dx=∫022x+1d(2x+1)2=(2x+1)323|02=55−13.


  • Apskaičiuokime kreivės y2=49x3, (x∈[3;8]) lanko L masę, kai tankis kreivės taške yra tiesiog proporcingas to taško ordinatei (y) ir atvirkščiai proporcingas kvadratinei šakniai iš to taško abscisės (1/x1/2), be to, taške (4;163) jo (tankio) reikšmė lygi 8 g/cm.
Kreivės lanko masę, kai to lanko tankis lygus γ(x,y), apskaičiuosime pagal formulę m=∫Lγ(x,y)ds.
Pagal uždavinio sąlyga, tankis lygus γ(x,y)=kyx; čia k - proporcingumo koeficientas. Kadangi γ=8, kai x=4, y=163, tai iš lygybės 8=k1634=8k3 gauname: k=3. Tuomet, pagal formule,
m=∫Lγ(x,y)ds=3∫Lyxds.
Norėdami apskaičiuoti šį integralą, taikysime pirmą formulę. Iš sąlygos y=23xx turime y′=x ir ds=1+(y′)2dx=1+xdx.
Tuomet
m=3∫3823xxx1+xdx=2∫38x1+xdx=4∫23(t2−1)t2dt=4(t55−t33)|23=
=4[2435−9−(325−83)]=4(2115−193)=215215(g)=143.4(6)(g),
kur 1+x=t, 1+x=t2, x=t2−1, dx=2tdt, t1=2, t2=3.
Arba galėjome apskaičiuoti integruodami dalimis:
m=2∫38x1+xdx=2x⋅23(1+x)32|38−2∫3823(1+x)32dx=
=43x(1+x)1+x|38−43⋅25(1+x)52|38=(323⋅9⋅3−4⋅4⋅2)−(815⋅35−815⋅25)=
=(288−32)−(199415−25615)=256−168815=215215(g)=143.4(6)(g),
kur u=x, dv=1+x, du=dx, v=∫(1+x)0.5dx=23(1+x)32.
cikloidė
  • Apskaičiuokime integralą ∫Lxds, kai L - pirmoji cikloidės x=a(t−sin⁡t), y=a(1−cos⁡t) arka.

Taikome antrą formulę. Randame: xt′=a(1−cos⁡t), yt′=asin⁡t, ds=xt'2+yt'2dt=a2(1−cos⁡t)2+a2sin2tdt=a1−2cos⁡t+cos2+sin2tdt= =a2−2cos⁡tdt=a2−2(1−2sin2t2)dt=2asin⁡t2dt. Tuomet ∫Lds=2a2∫02π(t−sin⁡t)sin⁡t2dt=2a2(∫02πtsin⁡t2dt−∫02πsin⁡tsin⁡t2dt).

Pirmąjį integralą integruojame dalimis, pažymėdami u=t, dv=sin⁡t2dt, du=dt, v=∫sin⁡t2dt=−2cos⁡t2, gauname

∫02πtsin⁡t2dt=−2(tcos⁡t2)|02π+2∫02πcos⁡t2dt=−2(2π(−1))+4sin⁡t2|02π=4π.

Antrąjį integralą apskaičiuojame taikydami formulę sin⁡tsin⁡t2=(2sin⁡t2cos⁡t2)sin⁡t2=2sin2t2cos⁡t2, d(sin⁡t2)=cos⁡t2d(t2),d(t2)=12dt,dt=2d(t2), reiškia

∫02πsin⁡tsin⁡t2dt=∫02π2sin2t2cos⁡t22d(t2)=4∫02πsin2t2d(sin⁡t2)=43sin3t2|02π=0.

Todėl bendras integralas lygus:
∫Lxds=2a2(4π−0)=8πa2.


  • Reikia apskaičiuoti integralą ∫AB(x2+y2+z2)ds pagal vieną viją susuktos linijos: x=cos⁡t, y=sin⁡t, z=t, 0≤t≤2π.

Pagal trečią formulę gauname: ∫AB(x2+y2+z2)ds=∫02π(cos2t+sin2t+t2)(−sin⁡t)2+(cos⁡t)2+1dt=2∫02π(1+t2)dt= =2(t+t33|02π=22π(1+4π23).


  • Apskaičiuosime integralą ∫ABx2ds, kur AB - dalis logoritminės kreivės y=ln⁡x nuo x=1 iki x=2.

Pagal pirmą formulę ∫ABx2ds=∫12x21+1x2dx=∫12xx2+1dx=∫12xx2+1d(x2+1)2x=13(1+x2)32|x=1x=2= =13(55−22), kur d(x2+1)=2xdx.


  • Apskaičiuosime kreivinį integralą ∫ABy2dl, kur AB - dalis apskritimo x=acos⁡t, y=asin⁡t, 0≤t≤π2.
Kadangi

y2=a2sin2t, dl=a2sin2t+a2cos2tdt=adt, tai pagal antrą formulę gauname ∫ABy2dl=∫0π/2a2sin2t⋅adt=a32∫0π2(1−cos⁡(2t))dt=a32(t−sin⁡(2t)2)|0π2=a3π4.


  • Apskaičiuokime ∫L(x+y)ds, kai L - apskritimas x2+y2=ay, (a>0).
Integralą apskaičiuokime, Dekatro koordinates pakeitę polinėmis. Kreivės L lygtis šioje koordinačių sistemoje yra ρ=asin⁡ϕ, ϕ∈[0;π]. Randame ρ′=acos⁡ϕ, ds=ρ2+ρϕ'2dϕ=asin2ϕ+acos2ϕdϕ=adϕ.

Tuomet ∫L(x+y)ds=a∫0π(ρsin⁡ϕ+ρcos⁡ϕ)dϕ=a2∫0π(sin2ϕ+sin⁡ϕcos⁡ϕ)dϕ= =a2∫0π(1−cos⁡(2ϕ)2+sin⁡(2ϕ)2)dϕ=a2π2−a24sin⁡(2ϕ)|0π−a24cos⁡(2ϕ)|0π=a2π2−0−0=πa22.

Kreivės lanko ilgis

Kreivės lanko ilgis randamas pagal šitas formules:

  • ds=1+y'2dx, kai kreivė L apibrėžta lygtimi y=y(x), o a≤x≤b.
∫Lds=∫ab1+(f′(x))2dx=∫ab1+(y′)2dx.(2)
  • Kai kreivė L apibrėžta parametrinėmis lygtimis x=x(t), y=y(t), t∈[t0;T], tai ds=xt'2+yt'2dt, todėl
∫Lds=∫t0T(xt′)2+(yt′)2dt.
Elementariausias pavyzdis, kai reikia perrašyti funkcija y=x2 parametrinėmis lygtimis. Tuomet pasirenkame (suteikiame parametrus iksui ir igrikui) x=t;y=t2. Gauname išvestines xt′=t′=1;yt′=(t2)′=2t. Vadinasi integralas atrodys taip:
∫t0T(xt′)2+(yt′)2dt=∫t0T12+(2t)2dt=∫t0T1+4⋅t2dt.
  • Kai prametrinėmis lygtimis x=x(t), y=y(t), z=z(t), t∈[t0;T] apibrėžta erdvinė kreivė L, tai
∫Lds=∫t0T(xt′)2+(yt′)2+(zt′)2dt.
  • Kai kreivė L polinėje koordinačių sistemoje apibrėžta lygtimi ρ=ρ(ϕ), ϕ∈[α;β] tai ds=ρ2+ρ'2dϕ ir
∫Lds=∫αβρ2+(ρ′)2dϕ.


Kreivės lanko ilgio formulių išvedimas
  • Rasime dabar kreivės lanko ilgį tuo atveju, kai kreivės užrašyta paramtetrinėmis lygtimis:
x=ϕ(t),y=ψ(t)(α≤t≤β)(4),
čia ϕ(t) ir ψ(t) - netrūkios funkcijos su netrūkiomis išvestinėmis, be to ϕ′(t) užduotoje srityje nevirsta nuliu. Šituo atveju lygtys (4) nusako tam tikrą funkciją y=f(x), netrūkią ir turinčią netrūkią išvestinę
dydx=ψ′(t)ϕ′(t).
Tegu a=ϕ(α),b=ϕ(β). Tada, įstatę integrale (2) keitinį
x=ϕ(t),dx=ϕ′(t)dt,
gausime:
s=∫αβ1+[ψ′(t)ϕ′(t)]2ϕ′(t)dt=∫αβ[ϕ′(t)]2+[ψ′(t)]2dt.(5)


  • Kreivės lanko ilgis polinėse koordinatėse.
Tegu polinėse koordinatėse kreivės lygtis apibūdinama
ρ=f(θ),(8)
kur ρ - poliarinis spindulys, θ - poliarinis kampas.
Užrašysime perėjimo formules iš poliarinių koordinačių į dekarto koordinates:
x=ρcos⁡θ,y=ρsin⁡θ.
Jeigu čia vietoje ρ įstatyti jo išraišką (8) per θ, tai gausime lygtis
x=f(θ)cos⁡θ,y=f(θ)sin⁡θ.
Šias lygtis galima nagrinėti kaip kreivės parametrines lygtis ir kreivės lanko ilgio apskaičiavimui pritaikyti (5) formulę. Tam rasime išvestines nuo x ir y per parametrą θ:
dxdθ=f′(θ)cos⁡θ−f(θ)sin⁡θ;dydθ=f′(θ)sin⁡θ+f(θ)cos⁡θ.
Tada
(dxdθ)2+(dydθ)2=[f′(θ)]2+[f(θ)]2=ρ'2+ρ2.
Todėl,
s=∫θ0θρ'2+ρ2dθ.
Čia patiems mažiausiems (nes matematikai sudaugina ir sudeda mintyse):
(dxdθ)2=(f′(θ)cos⁡θ−f(θ)sin⁡θ)2=[f′(θ)]2cos2θ−2f′(θ)cos⁡θf(θ)sin⁡θ+[f(θ)]2sin2θ;
(dydθ)2=(f′(θ)sin⁡θ+f(θ)cos⁡θ)2=[f′(θ)]2sin2θ+2f′(θ)sin⁡θf(θ)cos⁡θ+[f(θ)]2cos2θ.


Baigdami išspręsime pavyzdį, kai ρ=θ2, surasdami spiralės lanko ilgį:
l=∫Lds=∫02πρ2+(ρ′)2dθ=∫02π(θ2)2+(2θ)2dθ=∫02πθ4+4θ2dθ=
=∫02πθθ2+4dθ=13(θ2+4)32|02π=13((2π)2+4)32−13(02+4)32=
=13(4(π2+1))32−83=(286.6887126−8)/3=92.896237521771263212813630524448;
l=∫Lds=∫02πρ2+(ρ′)2dθ=∫02π(θ2)2+(2θ)2dθ=∫02πθ4+4θ2dθ=
=∫02πθθ2+4dθ=12∫02πθ2+4d(θ2+4)=12⋅(θ2+4)3/232|02π=(θ2+4)3/23|02π=92.89623752;
l=∫Lds=∫02πρ2+(ρ′)2dθ=∫02π(θ2)2+(2θ)2dθ=∫02πθ4+4θ2dθ=
=∫02πθθ2+4dθ=12∫02πθ2+4d(θ2)=12(2⋅43+2θ23)θ2+4|02π=
=12(83+2⋅(2π)23)(2π)2+4−12(83+2⋅023)02+4=(43+4π23)4π2+4−83=
=8+8π23π2+1−83=8(π2+1)3π2+1−83=8(π2+1)323−83=
=95,562904188437929879480297191115-2,6(6)=92,896237521771263212813630524448;
čia d(θ2+4)=2θdθ,dθ=d(θ2+4)2θ ir ∫xx2±a2dx=13(x2±a2)32 arba ∫ax+bdx=(2b3a+2x3)ax+b.
Va čia "Free Pascal" kodas:
   var
   a:longint;
   c:real;
   begin
   for a:=1 to 628318531  do
   c:=c+0.00000001*sqrt(sqr(sqr(a*0.00000001))+sqr(a*2.0/100000000));
   writeln(c);
   readln;
   end.
kuris duoda atsakymą 92,8962378457359 po 16 sekundžių su 2,6 GHz procesoriumi. Optimizuotas šio kodo variantas:
   var
   a:longint;
   c,b:real;
   begin
   for a:=1 to 628318531  do
   c:=c+sqrt(sqr(sqr(a*0.00000001))+sqr(a*0.00000002));
   b:=c*0.00000001;
   writeln(b);
   readln;
   end.
duoda atsakymą 92,8962378457489 po 11 sekundžių su 2,6 GHz procesoriumi.
Šis kodas:
   var
   a:longint;
   c,b:real;
   begin
   for a:=1 to 62831853  do
   c:=c+sqrt(sqr(sqr(a*0.0000001))+sqr((sqr(a*0.0000001)-sqr((a-1)*0.0000001))/0.0000001));
   b:=c*0.0000001;
   writeln(b);
   readln;
   end.
duoda atsakymą 92,8962389233553 po dviejų sekundžių. Tikslesnė (ne daug tikslesnė, nes kaip tik 2π⋅108=628318530.7179586476925286766559 ir kur reikia apvalint ten 0) šio kodo versija:
   var
   a:longint;
   c,b:real;
   begin
   for a:=1 to 628318531  do
   c:=c+sqrt(sqr(sqr(a*0.00000001))+sqr((sqr(a*0.00000001)-sqr((a-1)*0.00000001))*100000000));
   b:=c*0.00000001;
   writeln(b);
   readln;
   end.
duoda atsakymą 92,8962378085099 po 15 sekundžių su 2,6 GHz procesoriumi.
Labiausiai teoriją atitinkantis kodas yra šis:
   var
   a:longint;
   c,b:real;
   begin
   for a:=1 to 1000000000  do
   c:=c+sqrt(sqr(sqr(a*0.0000000062831853))+sqr((sqr(a*0.0000000062831853)-sqr((a-1)*0.0000000062831853))/0.0000000062831853));
   b:=c*0.0000000062831853;
   writeln(b);
   readln;
   end.
duodantis atsakymą 92,8962373310520 po 30 sekundžių su 2,6 GHz procesoriumi. Su patikslinta 2π reikšme panaudojus kodą:
   var
   a:longint;
   c,b:real;
   begin
   for a:=1 to 1000000000  do
   c:=c+sqrt(sqr(sqr(a*0.000000006283185307179586))+sqr((sqr(a*0.000000006283185307179586)-sqr((a-1)*0.000000006283185307179586))/0.000000006283185307179586));
   b:=c*0.000000006283185307179586;
   writeln(b);
   readln;
   end
gauname atsakymą 92,8962376285006 po 31 sekundės su 2,6 GHz procesoriumi.
Panaudojus vietoje dalybos daugybą (12π109=159154943.09189533576888376337251) šiame kode:
   var
   a:longint;
   c,b:real;
   begin
   for a:=1 to 1000000000  do
   c:=c+sqrt(sqr(sqr(a*0.0000000062831853))+sqr((sqr(a*0.0000000062831853)-sqr((a-1)*0.0000000062831853))*159154943.0918953));
   b:=c*0.0000000062831853;
   writeln(b);
   readln;
   end.
gauname atsakymą 92,8962373100457 po 24 sekundžių su 2,6 GHz procesoriumi. Pastebime, kad kodas (dviem kodais aukščiau ir duodantis atsakymą 92,8962378085099), kuris skaičiavo 15 sekundžių turi tokį ryši su šiuo kodu: 24/15=1.6 ir 1000000000/628318531=1.59154943.


Pavyzdžiai

  • Apskaičiuokime kreivės y=x32,0≤x≤4 lanko ilgį.
Randame y′=32x12,1+y'2=1+94x. Tuomet

L=∫041+94xdx=49∫04(1+94x)12d(1+94x)=49⋅23(1+94x)32|04=827(1010−1)≈9,0734. Palyginimui, atkarpos ilgis iš taško (0; 0) iki taško (4; 432) yra pagal pitagoro teoremą: c=a2+b2=42+(432)2=16+43=80≈8,94427.

  • Apskaičiuosime lanko ilgį pusiaukūbinės parabolės y=x3/2, jei 0≤x≤5. Iš lygties y=x3/2 randame: y′=32x12. Iš pirmos formulės gausime

L=∫ab1+(f′(x))2dx=∫051+y'2dx=∫051+9x4dx=49∫051+9x4d(1+9x4)=

=49(1+9x4)3232|05=827(1+9x4)32|05=827[(44+454)32−(1+0)32]=827[(72)3−1]=33527≈12,4074;

kur d(1+9x4)=94dx; dx=49d(1+9x4). Palyginimui, atkarpos ilgis nuo taško (0; 0) iki taško (5; 532) yra: c=a2+b2=52+(532)2=25+53=150=12,2474487.

  • Apskaičiuosime lanko ilgį pusiaukūbinės parabolės y=x32, jei 1≤x≤5. Iš lygties y=x3/2 randame: y′=(x32)′=32x12. Gausime

L=∫151+y'2dx=∫151+(3x2)2dx=∫151+9x4dx=49∫151+9x4d(1+9x4)=

=49⋅(1+9x4)3232|15=827(1+9x4)32|15=827[(44+454)32−(1+94)32]=827[(72)3−(1+2,25)3]=
=827⋅3438−827⋅34,328125≈12,7037037−1,73600617≈10,96769753;

kur d(1+9x4)=94dx; dx=49d(1+9x4). Palyginimui, linijos ilgis nuo taško (1; 1) iki taško (5; 53/2) yra c=(5−1)2+(53/2−1)2=16+(125−1)2=16+10,180339892=119,6393202=

=10,093797606.
  • Apskaičiuosime parabolės y=x2 lanko ilgį, kai 0≤x≤5.

Randame y′=(x2)′=2x. Gauname

L=∫051+(2x)2dx=∫051+4x2dx=14(2x4x2+1+arsinh⁡(2x))|05=
=14(2⋅54⋅52+1+arsinh⁡(2⋅5))−14(2⋅0⋅4⋅02+1+arsinh⁡(2⋅0))=
=14(104⋅25+1+arsinh⁡(10))−14⋅(0+0)=14(10101+ln⁡(10+102+1))−0=
=14(10101+ln⁡(10+101))=
=14(10⋅10.4987562+ln⁡(20,04987562))=
=14(100.498756+2.99822295)=103.49697924=25.87424479,

čia arsinh⁡x=ln⁡(x+x2+1).

ln⁡(x+x2+1)=ln⁡(10+102+1)=ln⁡(10+101)=ln⁡(10+10.04987562)=2.99822295.
Iš kompiuterio kalkuliatoriaus reikšmės (hiperbolinio arksinuso):
arsinh⁡10=2,9982229502979697388465955375965;
arsinh⁡0=0.
Palyginimui, linijos ilgis nuo taško (0; 0) iki taško (5; 25) yra:

c=a2+b2=52+252=25+625=650=25.49509757.

  • Apskaičiuosime parabolės y=x2 lanko ilgį, kai 1≤x≤5.

Randame y′=(x2)′=2x. Gauname L=∫151+(2x)2dx=∫151+4x2dx=14(2x4x2+1+sinh−1(2x))|15=

=14(2x4x2+1+arsinh⁡(2x))|15=
=14(104⋅25+1+arsinh⁡(10))−14(24⋅1+1+arsinh⁡(2))=
=14(10101+ln⁡(10+102+1))−14(25+ln⁡(2+22+1))=
=14(10101+ln⁡(10+101))−14(25+ln⁡(2+5))≈
≈14(100,4987562+ln⁡(20,04987562))−14(4,472135955+ln⁡(4,236067978))≈
≈14(100,4987562+2.99822295)−14(4,472135955+1.44363547)=
=25,87424479−1,478942858=24.39530193,

čia arsinh⁡x=ln⁡(x+x2+1).

Iš kompiuterio kalkuliatoriaus reikšmės (hiperbolinio arksinuso):
arsinh⁡10=2,9982229502979697388465955375965;
arsinh⁡2=1,44363547517881.

Palyginimui, tiesės ilgis nuo taško (1; 1) iki taško (5; 25) yra: c=a2+b2=(5−1)2+(25−1)2=42+242=16+576=592=24.33105012. Čia taip išintegravo Wolfram Research integratorius, kad ∫1+4x2dx=14(2x4x2+1+sinh−1(2x)). Štai nuoroda: http://integrals.wolfram.com/index.jsp?expr=%281%2B4x%5E2%29%5E%281%2F2%29&random=false .

Toks būdas neteisingas:

L=∫151+(2x)2dx=∫151+4x2dx=14(2x4x2+1+sinh−1(2x))|15=

=14(2x4x2+1+(e2x−e−2x2)−1)|15=14(2x4x2+1+2e2x−e−2x)|15=
=14(10100+1+2e10−e−10)−14(24+1+2e2−e−2)≈
≈25,12471175−14(4,472135955+27,389056099−0,135335283)≈

≈25,12471175−14(4,472135955+27,253720816)≈

≈25,12471175−14(4,472135955+0,275720564)≈
≈25,12471175−1,18696413≈23,93774762.
Patikriname atsakymą kitu budu:
L=∫151+y'2dx=∫151+(2x)2dx=∫151+4x2dx=4∫1514+x2dx=
=2(x214+x2+142ln⁡|x+x2+14|)|15=

=2(520,25+52+0,252ln⁡|5+52+0,25|)−2(120,25+12+0,252ln⁡|1+12+0,25|)= =2(2,525,25+0,125ln⁡|5+25,25|)−2(121,25+0,125ln⁡|1+1,25|)≈ ≈2(2,5⋅5,024937811+0,125ln⁡|5+5,024937811|)−2(1,1180339892+0,125⋅ln⁡|1+1,118033989|)≈

≈2(12,56234453+0,125⋅2,30507577)−2(0,559016994+0,125⋅0,750488294)=
=2(12,56234453+0,288134471)−2(0,559016994+0,093811036)=25,700958−1,30565606=24,39530194.
  • Apskaičiuosime parabolės y=x2 lanko ilgį, kai 0≤x≤4.

Randame y′=(x2)′=2x. Gauname

L=∫041+(2x)2dx=∫041+4x2dx=14(2x4x2+1+arsinh⁡(2x))|04=
=14(2⋅44⋅42+1+arsinh⁡(2⋅4))−14(2⋅0⋅4⋅02+1+arsinh⁡(2⋅0))=
=14(84⋅16+1+arsinh⁡(8))−14⋅(0+0)=14(864+1+ln⁡(8+82+1))−0=
=14(865+ln⁡(8+65))=14(8⋅8.062257748+ln⁡(8+8.062257748))=
=14(64.49806199+ln⁡(16.06225775))=14(64.49806199+2.776472281)=67.274534274=16.81863357,

čia arsinh⁡x=ln⁡(x+x2+1).

ln⁡(x+x2+1)=ln⁡(8+82+1)=ln⁡(8+65)=ln⁡(8+8.062257748)=ln⁡(16.06225775)=2.776472281.
Iš kompiuterio kalkuliatoriaus reikšmės (hiperbolinio arksinuso):
arsinh⁡8=2,7764722807237176735308040270285;
arsinh⁡0=0.


  • Apskaičiuosime parabolės y=x2 lanko ilgį, kai 0≤x≤4.

Randame y′=(x2)′=2x. Pasinaudodami integralų lentele ∫x2+a𝖽x=x2a+x2+a2ln⁡|x+x2+a|, gauname

L=∫041+y'2dx=∫041+(2x)2dx=∫041+4x2dx=4∫0414+x2dx=
=2(x20,25+x2+0,252ln⁡|x+x2+0,25|)|04=

=2(420,25+42+0,252ln⁡|4+42+0,25|)−2(020,25+02+0,252ln⁡|0+02+0,25|)=

=2(216,25+0,125ln⁡|4+16,25|)−2(0+0,125ln⁡|0+0,25|)=
≈2(2⋅4,031128874+0,125ln⁡|8,031128874|)−2(0,125⋅ln⁡|0,5|)≈
≈2(8,062257748+0,125⋅2,0833251)−2(0,125⋅(−0,69314718))=
=2(8,062257748+0,260415637)−2(−0,086643397)=16,64534677+0,173286795=16,81863357.

Palyginimui, tiesios linijos ilgis nuo taško (0; 0) iki taško (4; 16) yra c=x2+y2=42+162=272=16,4924225.

Patikrinsime parbolės lanko ilgį padalindami parabolės šaką į 10 atkarpų-tiesių, kai 0<x<4. Kiekvienos atkarpos projekcijos į Ox ašį ilgis yra 0,4. Todėl reikia gauti visas x reikšmes:
x0=0;
x1=0.4;
x2=2⋅0.4=0.8;
x3=3⋅0.4=1.2;
x4=4⋅0.4=1.6;
x5=5⋅0.4=2;
x6=6⋅0.4=2.4;
x7=7⋅0.4=2.8;
x8=8⋅0.4=3.2;
x9=9⋅0.4=3.6;
x10=10⋅0.4=4.

Dabar toliau reikia surasti visas y reikšmes, įstačius x reikšmes:

y0=x02=02=0;
y1=x12=0.42=0.16;
y2=x22=0.82=0.64;
y3=x32=1.22=1.44;
y4=x42=1.62=2.56;
y5=x52=22=4;
y6=x62=2.42=5.76;
y7=x72=2.82=7.84;
y8=x82=3.22=10.24;
y9=x92=3.62=12.96;
y10=x102=42=16.

Dabar belieka surasti atkarpu ilgius kaip nuo taško (0; 0) iki taško (0,4; 0,16); nuo taško (0,4; 0,16) iki (0,8; 0,64) ir taip toliau:

a1=(x1−x0)2+(y1−y0)2=(0.4−0)2+(0.16−0)2=0.16+0.0256=0.1856=0.430813184;
a2=(x2−x1)2+(y2−y1)2=(0.8−0.4)2+(0.64−0.16)2=0.16+0.2304=0.3904=0.624819974;
a3=(x3−x2)2+(y3−y2)2=(1.2−0.8)2+(1.44−0.64)2=0.16+0.64=0.8=0.894427191;
a4=(x4−x3)2+(y4−y3)2=(1.6−1.2)2+(2.56−1.44)2=0.16+1.2544=1.4144=1.1892855;
a5=(x5−x4)2+(y5−y4)2=(2−1.6)2+(4−2.56)2=0.16+2.0736=2.2336=1.494523335;
a6=(x6−x5)2+(y6−y5)2=(2.4−2)2+(5.76−4)2=0.16+3.0976=3.2576=1.804882268;
a7=(x7−x6)2+(y7−y6)2=(2.8−2.4)2+(7.84−5.76)2=0.16+4.3264=4.4864=2.118112367;
a8=(x8−x7)2+(y8−y7)2=(3.2−2.8)2+(10.24−7.84)2=0.16+5.76=5.92=2.433105012;
a9=(x9−x8)2+(y9−y8)2=(3.6−3.2)2+(12.96−10.24)2=0.16+7.3984=7.5584=2.749254444;
a10=(x10−x9)2+(y10−y9)2=(4−3.6)2+(16−12.96)2=0.16+9.2416=9.4016=3.066202863.

Toliau reikia sudėti visų atkarpų ilgį, kad gauti parabolės šakos ilgį, kai x kinta nuo 0 iki 4. Gauname:

L=a1+a2+a3+a4+a5+a6+a7+a8+a9+a10=
=0.430813184+0.624819974+0.894427191+1.1892855+1.494523335+1.804882268+2.118112367+2.433105012+2.749254444+3.066202863=16.80542614.
Padalinus į daugiau dalių atsakymas taptų panašesnis į atsakymą gautą integravimo budu.


  • Apskaičiuosime parabolės y=x2 lanko ilgį, kai 1≤x≤4.

Randame y′=(x2)′=2x. Pasinaudodami integralų lentele gauname

L=∫141+y'2dx=∫141+(2x)2dx=∫141+4x2dx=4∫1414+x2dx=
=2(x20,25+x2+0,252ln⁡|x+x2+0,25|)|14=

=2(420,25+42+0,252ln⁡|4+42+0,25|)−2(120,25+12+0,252ln⁡|1+12+0,25|)=

=2(216,25+0,125ln⁡|4+16,25|)−2(121,25+0,125ln⁡|1+1,25|)=

≈2(2⋅4,031128874+0,125ln⁡|8,031128874|)−(1,118033989+0,25⋅ln⁡|1+1,118033989|)≈

≈2(8,062257748+0,125⋅2,0833251)−(1,118033989+0,25⋅0,750488294)=
=2(8,062257748+0,260415637)−(1,118033989+0,187622073)=16,64534677−1,305656063=15,33969071.

Palyginimui, tiesios linijos ilgis nuo taško (1; 1) iki taško (4; 16) yra c=32+152=234=15,29705854.

  • Apskaičiuosime parabolės y=(x+1)3 lanko ilgį, kai 4≤x≤12.

Randame y′=32x+1,ds=1+(dydx)2dx=1+94(x+1)dx=134+94xdx. Tada iš integralų lentelės L=∫Lds=∫412134+94xdx=∫41214⋅13+9xdx=19⋅12∫41213+9xd(13+9x)= =118⋅(13+9x)12+132|412= =218⋅3(13+9x)3|412=127[(13+9⋅12)3−(13+9⋅4)3]= =127[1771561−117649]=127⋅(1331−343)=98827=≈36,59259259. Palyginimui, atkrapos ilgis nuo taško (4; (4+1)3/2) iki taško (12; (12+1)3/2) yra c=(12−4)2+[(12+1)3−(4+1)3]2=

=82+(2197−125)2=64+1273,906493=36,57740413.
  • Apskaičiuosime kreivės y=x lanko ilgį, kai 1≤x≤16.

Randame y′=(x12)′=12⋅1x. Gauname

L=∫1161+(y′)2dx=∫1161+(12x)2dx=∫1161+14xdx=12∫1164+1xdx=
=12[x1x+4+14ln⁡(4x(1x+4+2)+1)]|116=
=12[16116+4+14ln⁡(4⋅16(116+4+2)+1)]−12[111+4+14ln⁡(4(11+4+2)+1)]=
=12[16⋅2,015564437+14ln⁡(64(2,015564437+2)+1)]−12[5+14ln⁡(4(5+2)+1)]=
=12[32,24903099+14ln⁡(256,996124+1)]−12[2,236067978+14ln⁡(17,94427191)]=
=12[32,24903099+14⋅5,552944561]−12[2,236067978+2,887270954]=
=16,81863357−1,478942858=15,33969071.

Palyginimui, tiesės ilgis nuo taško (1; 1) iki taško (16; 4) yra c=(16−1)2+(4−1)2=225+9=15,29705854.


  • Apskaičiuosime kreivės lanko ilgį , kai y=1−ln⁡(cos⁡x); 0≤x≤π3. Randame funkcijos išvestinę y′=(1−ln⁡(cos⁡x))′=−−sin⁡(x)cos⁡(x)=sin⁡xcos⁡x. Randame kreivės lanko ilgį:

l=∫0π31+sin2xcos2xdx=∫0π3dxcos⁡x=ln⁡|tan⁡(x2+π4)||0π3=ln⁡|tan⁡5π12|−ln⁡|tan⁡π4|=1,316957897.


  • Apskaičiuokime cikloidės x=a(t−sin⁡t), y=a(1−cos⁡t) (a>0) pirmosios arkos ilgį.
Pirmoji cikloidės arka gaunama, kai parametras t kinta nuo 0 iki 2π. Randame:
xt′=a(1−cos⁡t), yt′=asin⁡t,
xt'2+yt'2=a2(1−2cos⁡t+cos2t)+a2sin2t=2a2(1−cos⁡t)=
=4a2sin2tt2=2a|sin⁡t2|=2asin⁡t2, nes sin⁡t2≥0, kai t∈[0;2π]. Tuomet
L=2a∫02πsin⁡t2dt=4a∫02πsin⁡t2d(t/2)=−4acos⁡t2|02π=8a.
Kaip atrodo cikloidė galima pažiūrėti čia https://lt.wikipedia.org/wiki/Cikloidė


  • Rasime lanko AB ilgį susuktos linijos

x=cos⁡t, y=sin⁡t, z=2t, 0≤t≤π. Pagal trečią formulę: s=∫0πsin2t+cos2t+4dt=5π.


  • Rasime lanko ilgį kardiodės ρ=a(1−cos⁡ϕ), a>0. Pagal ketvirtą formulę turime:

s=∫αβρ2+ρ'2dϕ=2a∫0π(1−cos⁡ϕ)2+sin2ϕdϕ= =2a∫0π1−2cos⁡ϕ+cos2ϕ+sin2ϕdϕ=2a∫0π2(1−cos⁡ϕ)dϕ=2a∫0π4sin2ϕ2dϕ= =4a∫0πsin⁡ϕ2=−8acos⁡ϕ2|0π=−8a(0−1)=8a.

Kaip atrodo kardioidė galima pažiūrėti čia https://en.wikipedia.org/wiki/Cardioid


  • Rasti kardiodės ρ=a(1+cos⁡θ) ilgį.
Keisdami poliarinį kampą θ nuo 0 iki π, gausime pusę ieškomo ilgio. Čia ρ′=−asin⁡θ. Taigi,
s=2∫0πa2(1+cos⁡θ)2+a2sin2θdθ=2a∫0π1+2cos⁡θ+cos2θ+sin2θdθ=
=2a∫0π2+2cos⁡θdθ=22a∫0π1+cos⁡θdθ=22a∫0π2cos⁡θ2dθ=
=4a∫0πcos⁡θ2dθ=8asin⁡θ2|0π=8a.


  • Rasime kreivės lanko ilgį, kai ρ=sin3ϕ3,0≤ϕ≤π2. Pagal ketvirtą formulę:

l=∫0π3(sin3ϕ3)2+(3sin2ϕ3⋅13cos⁡ϕ3)2dϕ=∫0π3sin6ϕ3+sin4ϕ3⋅cos2ϕ3dϕ=∫0π2sin2ϕ3sin2ϕ3+cos2ϕ3dϕ= =12∫0π2(1+cos⁡2ϕ3)dϕ=12⋅π2+12⋅32sin⁡2ϕ3|0π2=π4+34⋅32=π4+338.


Archimedo spiralė.
  • Apskaičiuosime ilgį pirmos vijos Archimedo spiralės: ρ=aϕ.
Pirma vija spiralės pasidaro, keičiantis poliariniui kampui ϕ nuo 0 iki 2π. Todėl pagal ketvirtą formulę ieškomas ilgis lanko yra

L=∫αβρ(ϕ)+ρ'2(ϕ)dϕ=∫02πa2ϕ2+a2dϕ=a∫02πϕ2+1dϕ= =a[π4π2+1+12ln⁡(2π+4π2+1)]=

=a[19,9876454+1,268648751]=a21,25629415.


  • Apskaičiuosime vienos vijos linijos ilgį: x=cos⁡t, y=sin⁡t, z=t, 0≤t≤2π. Tai yra linija apsukta vieną kartą aplink cilindrą, kurio aukštis yra t. Gauname:
dx=−sin⁡(t)dt, dy=cos⁡(t)dt, dz=dt, dzdt=1;
(xt′)2+(yt′)2+(zt′)2=(−sin⁡t)2+(cos⁡t)2+1.

Randame vienos vijos ilgį:

L=∫02π(−sin⁡t)2+(cos⁡t)2+1dt=2∫02πdt=2t|02π=22π.


  • Apskaičiuoti ilgį hipocikloidės (astroidės):
x=acos3t,y=asin3t.
Sprendimas. Kadangi kreivė simetriška dviejų koordinačių ašių atžvilgiu, tai iš pradžių apskaičiuosime ketvirtadalį jos dalies, esančios pirmame ketvirtyje. Randame:
dxdt=−3acos2tsin⁡t,dydt=3asin2tcos⁡t.
Parametras t kis nuo 0 iki π/2. Taigi,
14s=∫0π/29a2cos4tsin2t+9a2sin4tcos2tdt=3a∫0π/2cos2tsin2t(cos2t+sin2t)dt=
=3a∫0π/2cos⁡tsin⁡tdt=3a∫0π/2sin⁡td(sin⁡t)=3asin2t2|0π/2=3a2;s=6a.
Kaip atrodo astroidė galima pažiūrėti čia https://en.wikipedia.org/wiki/Astroid

Kreivės masė

Kreivės masė nustatoma pagal formulę
m=∫γ1+(y′)2dx,
čia γ kokia nors funkcija.

Pavyzdžiai

  • Nustatyti tiesės y=3−3x5 masę tik pirmame ketvirtyje. Tiesės tankis γ tolstant tiesės taškams nuo centro (koordinačių pradžios taško O) didėja proporcingai, t. y. γ=x2+y2.
Sprendimas. Pasinaudosime masės skaičiavimo formule
m=∫Lγ1+[y′]2dx=∫05x2+y21+[y′]2dx=
=∫05x2+(3−3x5)21+(−35)2dx=
=∫05x2+9−18x5+9x2251+925dx=
=∫059−18x5+34x2253425dx=
=345∫053425x2−185x+9dx=
=345∫051.36x2−3.6x+9dx=
=345(−3.6+2⋅1.36x4⋅1.361.36x2−3.6x+9+4⋅1.36⋅9−(−3.6)28⋅1.363/2ln⁡|2⋅1.36x−3.6+21.36(1.36x2−3.6x+9)|)|05=
=345(−3.6+2.72x5.441.36x2−3.6x+9+48.96−12.968⋅2.5154561/2ln⁡|2.72x−3.6+21.36(1.36x2−3.6x+9)|)|05=
=345(−3.6+2.72x5.441.36x2−3.6x+9+3612.68815132ln⁡|2.72x−3.6+21.36(1.36x2−3.6x+9)|)|05=
=345(−3.6+2.72⋅55.441.36⋅25−3.6⋅5+9+2.8372927689ln⁡|2.72⋅5−3.6+21.36(1.36⋅25−3.6⋅5+9)|)−
−345(−3.6+2.72⋅05.441.36⋅02−3.6⋅0+9+2.8372927689ln⁡|2.72⋅0−3.6+21.36(1.36⋅02−3.6⋅0+9)|)=
=345(105.4434−18+9+2.8372927689ln⁡|13.6−3.6+21.36(34−18+9)|)−
−345(−3.65.449+2.8372927689ln⁡|−3.6+21.36⋅9|)=
=345(105.4425+2.8372927689ln⁡|10+21.36⋅25|)−345(−3.65.44⋅3+2.8372927689ln⁡|−3.6+212.24|)=
=345(505.44+2.8372927689ln⁡|10+234|)−345(−10.85.44+2.8372927689ln⁡|−3.6+212.24|)=
=345(9.191176471+2.8372927689ln⁡|21.66190379|)−345(−10.85.44+2.8372927689ln⁡|−3.6+212.24|)=
=345(9.191176471+8.726250336)−345(−1.985294118+3.469823414)=
=345⋅17.91742681−345⋅1.484529296=16.43289751345=19.16388698.
Kad tą patį apskaičiuoti su programa "Free Pascal" reikia surasti tiesės ilgį, kai x kinta nuo 0 iki 5 (tai yra tiesės ilgis tik pirmame ketviryje):
l=52+32=25+9=34=5.830951895.
Todėl "Free Pascal" kodas yra toks:
  var
  a:longint;
  c:real;
  begin
  for a:=1 to 1000000000  do
  c:=c+sqrt(sqr(a*0.000000003)+sqr((1000000001-a)*0.000000005));
  writeln(sqrt(sqr(3)+sqr(5))*c/1000000000);
  readln;
  end.
duodantis rezultatą 19,163886990613093 po 18 sekundžių su 2,6 GHz procesoriumi.


  • Nustatyti parabolės y=x2 masę pirmame ketvirtyje, kai x kinta nuo 0 iki 5. Tiesės tankis γ tolstant tiesės taškams nuo centro (koordinačių pradžios taško O) didėja proporcingai, t. y. γ=x2+y2.
Sprendimas.
Pasirodo, integruojant taip ir taip gauname tokį patį rezultatą, kuris yra labai sudetingas ir ilgas. Net didžiausioje integralų lentelėje nėra kaip išintegruoti ∫x1+x21+4x2dx. Yra tik ∫a+bxc+pxdx, bet ir tai integravimas gaunasi su dar dviais pažiūrėjimais į integralų lentelę. Todėl pasinaudojame Free Pascal kodu. Free Pascal kodas, kuris skaičiuoja pagal formulę m=∫05x2+y21+[y′]2dx=∫05x2+(x2)21+(2x)2dx, yra toks:
var
a:longint;
c:real;
begin
for a:=1 to 1000000000  do
c:=c+sqrt(1+sqr(2*5.0*a/1000000000))*sqrt(sqr(5.0*a/1000000000)+sqr(sqr(5.0*a/1000000000)));
writeln(5*c/1000000000);
readln;
end
ir duoda atsakymą m=327.860390075605 po 48 sekundžių su 2,6 GHz procesoriumi. Optimizuotas šito kodo variantas:
var
a:longint;
c:real;
begin
for a:=1 to 1000000000  do
c:=c+sqrt(1+sqr(0.00000001*a))*sqrt(sqr(0.000000005*a)+sqr(sqr(0.000000005*a)));
writeln(0.000000005*c);
readln;
end.
duoda atsakymą m=327.86039007560539 po 33 sekundžių su 2,6 GHz procesoriumi.
Kitoks kreivės masės apskaičiavimo Free Pascal kodas yra:
var
a:longint;
c:real;
begin
for a:=1 to 1000000000  do
c:=c+sqrt(sqr(0.000000005*a-0.000000005*(a-1))+sqr(sqr(0.000000005*a)-sqr(0.000000005*(a-1))))*sqrt(sqr(0.000000005*a)+sqr(sqr(0.000000005*a)));
writeln(c);
readln;
end.
kuris duoda atsakymą m=327.860389859764 po 41 sekundės su 2,6 GHz procesoriumi. Optimizuotas šito kodo variantas yra kodas:
var
a:longint;
c:real;
begin
for a:=1 to 1000000000  do
c:=c+sqrt(sqr(0.000000005)+sqr(sqr(0.000000005*a)-sqr(0.000000005*(a-1))))*sqrt(sqr(0.000000005*a)+sqr(sqr(0.000000005*a)));
writeln(c);
readln;
end
kuris duoda atsakymą m=327.860389859763 po 38 sekundžių su 2,6 GHz procesoriumi. Dar labiau optimizuotas šito kodo variantas yra:
var
a:longint;
c:real;
begin
for a:=1 to 1000000000  do
c:=c+sqrt(0.000000000000000025+sqr(sqr(0.000000005*a)-sqr(0.000000005*(a-1))))*sqrt(sqr(0.000000005*a)+sqr(sqr(0.000000005*a)));
writeln(c);
readln;
end.
kuris duoda atsakymą m=327.860389859763 po 38 sekundžių su 2,6 GHz procesoriumi (vadinasi, Free Pascal automatiškai optimizuoja kodą pakeldamas konstantą 0,000000005 kvadratu ir visoms iteracijoms naudodamas gautą 0,000000000000000025 reikšmę).


  • Nustatyti parabolės y=x2 masę pirmame ketvirtyje, kai x kinta nuo 0 iki 10. Tiesės tankis γ tolstant tiesės taškams nuo centro (koordinačių pradžios taško O) didėja proporcingai tik Ox kryptimi, t. y. γ=x.
Sprendimas. Greičiausias būdas apskaičiuoti, tai ko reikalauja sąlyga (uždavinys) yra toks:
m=∫010xdx=x22|010=1022−022=50.
Kitas būdas yra toks:
m=∫010γ1+[y′]2dx=∫010x1+(2x)2dx=∫010x1+4x2dx=
=∫0102x14+x2dx=23(x2+14)3/2|010=
=23(102+14)3/2−23(02+14)3/2=
=23⋅100.253/2−23(12)3=
=669,16822851623458973388183928978 - (2/3)*(1/8)=
=669,16822851623458973388183928978 - 1/12=
=669,08489518290125640054850595645;
čia pasinaudojome integralų lentele ∫xx2±a2dx=13(x2±a2)3/2.
Tuo atveju, jeigu x kinta nuo 0 iki 5 tada:
m=∫05γ1+[y′]2dx=∫05x1+4x2dx=2∫05x14+x2dx=
=23(52+14)3/2−23(02+14)3/2=
=23⋅25.253/2−23(12)3=
=84,586453144434159774345479682393-1/12=
=84,50311981110082644101214634906.
Free Pascal kodas duodą tokį patį rezultatą (kai x kinta nuo 0 iki 5):
var
a:longint;
c:real;
begin
for a:=1 to 1000000000  do
c:=c+sqrt(sqr(0.000000005)+sqr(sqr(0.000000005*a)-sqr(0.000000005*(a-1))))*0.000000005*a;
writeln(c);
readln;
end.
m=84,5031198757743 po 25 sekundžių su 2,6 GHz procesoriumi.
Alternatyvus Free Pascal kodas, skaičiuojantis pagal formulę m=∫05γ1+[y′]2dx=∫05x1+4x2dx yra šitas:
var
a:longint;
c:real;
begin
for a:=1 to 1000000000  do
c:=c+sqrt(1+4*sqr(5.0*a/1000000000))*a*5/1000000000;
writeln(c*5/1000000000);
readln;
end.
duodantis atsakymą m=84,5031199367086 po 25 sekundžių su 2,6 GHz procesoriumi. Optimizuotas jo variantas:
var
a:longint;
c:real;
begin
for a:=1 to 1000000000  do
c:=c+sqrt(1+4*sqr(5.0*a/1000000000))*a;
writeln(c*sqr(5/1000000000));
readln;
end.
duoda atsakymą m=84,503119936731021 po 23 sekundžių su 2,6 GHz procesoriumi. Dar labiau optimizuotas jo variantas:
var
a:longint;
c:real;
begin
for a:=1 to 1000000000  do
c:=c+sqrt(1+4*sqr(0.000000005*a))*a;
writeln(c*sqr(5/1000000000));
readln;
end.
duoda atsakymą m=84,503119936731021 po 17 sekundžių su 2,6 GHz procesoriumi (vadinasi, 1000000000 dalybos operacijų padaroma per 23-17=6 sekundes su 2,6 GHz procesoriumi; tačiau panaudojus šį kodą:
var
a:longint;
c:real;
begin
for a:=1 to 1000000000  do
c:=c+1/a;
writeln(c);
readln;
end.
gauname atsakymą 21,3004815025070 po 8 sekundžių su 2,6 GHz procesoriumi (beje, ∫11091xdx=ln⁡(109)−ln⁡(1)=9ln⁡(10)−0=20.7232658369464)).


  • Nustatyti parabolės y=x2 masę pirmame ketvirtyje, kai x kinta nuo 0 iki 5. Tiesės tankis γ tolstant tiesės taškams nuo centro (koordinačių pradžios taško O) didėja proporcingai Ox kryptimi ir Oy kryptimi, t. y. γ=x+y.
Sprendimas.
y′=(x2)′=2x;
m=∫05γ1+[y′]2dx=∫05(x+y)1+[y′]2dx=∫05(x+x2)1+4x2dx=2∫05x(1+x)14+x2dx;
Toliau pasinaudodami Wolframo internetiniu integratoriumi gauname, kad:
m=∫05(x+x2)1+4x2dx=(1964x2+1(24x3+32x2+3x+8)−164arcsinh(2x))|05=
=(1964⋅52+1(24⋅53+32⋅52+3⋅5+8)−164arcsinh(2⋅5))−(1964⋅02+1(24⋅03+32⋅02+3⋅0+8)−164arcsinh(2⋅0))=
=(196101(24⋅125+32⋅25+15+8)−164arcsinh(10))−(1961⋅8−164arcsinh(0))=
=(196101(3000+800+15+8)−164arcsinh(10))−(112−164arcsinh(0))=
=(382396101−164arcsinh(10))−(112−164arcsinh(0))=
=(400,21535937026211982341926834875-0,04684723359840577716947805527494)-(0,08333333333333333333333333333333-0)=
=400,16851213666371404624979029348-0,08333333333333333333333333333333=400,08517880333038071291645696014.
Free Pascal kodas:
 var
 a:longint;
 c:real;
 begin
 for a:=1 to 1000000000  do
 c:=c+sqrt(sqr(0.000000005)+sqr(sqr(0.000000005*a)-sqr(0.000000005*(a-1))))*(0.000000005*a+sqr(0.000000005*a));
 writeln(c);
 readln;
 end.
duoda atsakymą m=400,085179290551 po 27 sekundžių su 2,6 GHz procesoriumi.


  • Nustatyti parabolės y=x2 masę pirmame ketvirtyje, kai x kinta nuo 0 iki 5. Tiesės tankis γ tolstant tiesės taškams nuo centro (koordinačių pradžios taško O) didėja pagal formulę γ=(x+y)2.
Sprendimas. Pasinaudodami internetiniu integratoriumi, gauname:
m=∫05γ1+[y′]2dx=∫05(x+y)21+[y′]2dx=∫05(x+x2)21+4x2dx=
=17680(24x2+1(640x5+1536x4+1000x3+128x2+105x−64)−105arcsinh(2x))|05=

=17680(2101(640⋅3125+1536⋅625+1000⋅125+128⋅25+105⋅5−64)−105arcsinh(10))−17680(21⋅(−64)−105arcsinh(0))=

=17680(2101(2000000+960000+125000+3200+525−64)−105arcsinh(10))−17680(−128−0)=
=17680(2101⋅3088661−105arcsinh(10))+1287680=
=17680(62081317,771613740125811409969418−314,81340978128682257889253144763)+1287680=
=(62081002,958203958838988831076887+128)/7680=8083,4805935161404738266707131363.
Panaudojus Free Pascal kodą:
 var
 a:longint;
 c:real;
 begin
 for a:=1 to 1000000000  do
 c:=c+sqrt(sqr(0.000000005*a-0.000000005*(a-1))+sqr(sqr(0.000000005*a)-sqr(0.000000005*(a-1))))*sqr(0.000000005*a+sqr(0.000000005*a));
 writeln(c);
 readln;
 end.
gauname atsakymą m=8083,48061127561 po 30 sekundžių su 2,6 GHz procesoriumi.
Alternatyvus Free Pascal kodas, skaičiuojantis pagal formulę m=∫05γ1+[y′]2dx=∫05(x+x2)21+4x2dx yra toks:
 var
 a:longint;
 c:real;
 begin
 for a:=1 to 1000000000  do
 c:=c+sqrt(1+sqr(2*0.000000005*a))*sqr(0.000000005*a+sqr(0.000000005*a));
 writeln(c*0.000000005);
 readln;
 end.
ir duoda atsakymą m=8083,4806161241980 po 22 sekundžių su 2,6 GHz procesoriumi.

Sukimo paviršiaus plotas

Plotas sukant kokia nors funkcija (pavyzdžiui, parabolę) aplink Ox ašį apskaičiuojamas pagal formule:

S=2π∫abf(x)1+(f′(x))2dx.

Jeigu paviršius gaunamas sukimu aplink ašį Ox kreive AB, nusakomos parametrinėmis lygtimis x=x(t), y=y(t), α≤t≤β, ir y(t)≥0, x(t) keičiasi nuo a iki b, keičiantis t nuo α iki β, x(α)=a, x(β)=b, tai, pirmoje lygtyje pakeite x=x(t), gauname

S=2π∫αβy(t)1+(dydx)2dx=2π∫αβy(t)x'2(t)+y'2(t)dt.

Pagaliau, jeigu kreivė užduota lygtimi poliarinėse koordinatėse: ρ=ρ(ϕ), α≤ϕ≤β, kur ρ(ϕ) turi netrūkią išvestine ant [α,β], tai šis atvejis susiveda į parametrinį uždavima kreivės x=ρ(ϕ)cos⁡ϕ, y=ρ(ϕ)sin⁡ϕ, α≤ϕ≤β, ir antra formulė priima pavidalą

S=2π∫αβρ(ϕ)sin⁡ϕρ2(ϕ)+ρ'2(ϕ)dϕ.
Sukimo paviršiaus ploto skaičiavimo esmė yra C=2π⋅R, kur R apskirtimo spindulys (R=f(x)). Tai tiesiog, tarsi, vidutinis kreivės [trumpas] atkarpos ilgis (lk+1−lk=Δl) padauginamas iš apskritimo ilgio, kuris yra spindulio R=y ir 2π sandauga (C=2πR=2πy). Ir gaunamas ritinio (arba tiksliau nupjautinio kūgio, kurio sudaromoji Δl) su labai trumpa aukštine h=Δl šoninio paviršiaus plotas Δl⋅2πy=h⋅2πf(x), t. y. vienas apsukimas aplink Ox ašį. Toliau gaunama nauja funkcija 2π⋅f(x)1+(f′(x))2, kuri ir yra integruojama nuo a iki b. Čia ∫ab1+(f′(x))2dx yra kreivės lanko ilgis kokiame nors intervale, kai x kinta nuo a iki b.

Pavyzdžiai

  • Apskaičiuosime plotą S paviršiaus rutulinio pusiaujo, atsiradusio dėl sukimo pusiauapskritimio, f(x)=R2−x2,−R<a≤x≤b<R, aplink ašį Ox. Pagal pirmą formulę gauname

S=2π∫abR2−x21+x2R2−x2dx=2π∫abR2−x2R2R2−x2dx=2π∫abRdx=2πRx|ab=2πR(b−a)=2πRh.

  • Apskaičiuosime 1/2 rutulio paviršiaus ploto, atsiradusio dėl sukimo pusiauapskritimio (sukama 1/4 apskritimo aplink Ox ašį), f(x)=R2−x2,0≤x≤R, aplink ašį Ox, kai R=3. Pagal pirmą formulę gauname

S=2π∫abR2−x21+x2R2−x2dx=2π∫0RR2−x2R2R2−x2dx=2π∫0RRdx=2πR⋅x|0R=2πR(R−0)=2πR2=2π⋅32=18π=56.54866776.

Išvada yra paprasta ir akį režianti: kokį atstuma neimsi kiekviename intervale, ar tai būtų R-2=3-2=1 ar tai būtų 2-1=1, kai R=3, bet paviršiaus plotas visada bus toks pat ir kas svarbiausia teisingas. Nes kai tolstama nuo centro (kai 2 taškai kurie sudaro kreivę link R artėja) tai nuožulnesnis paviršius gaunamas (ilgesnė kreivė-linija, kuri bus sukama aplink Ox ašį), bet trumpesnio ilgio apskritimas c=2πR gaunasi apsukus aplink Ox ašį. Ir vienas kitą kompensuoja ir visada gaunasi vienodai, nepriklausomai nuo to kokioje srityje paimsi reikšmes (b-a), kurios yra 2 taškai ant Ox ašies.
  • Apskaičiuosime rutulio paviršiaus plotą, atsiradusio dėl sukimo pusiauapskritimio, f(x)=R2−x2,1≤x≤3, aplink ašį Ox, kai R=3. Pagal pirmą formulę gauname

S=2π∫abR2−x21+x2R2−x2dx=2π∫13R2−x2R2R2−x2dx=2π∫13Rdx=2πR(3−1)=4πR=2π⋅3⋅2=12π=37.69911184.

Patikriname, kad jei visas rutlio paviršiaus plotas yra 4πR2=4π⋅32=36π, tai dalis 14 rutlio paviršiaus ploto yra 14⋅4π32=π9. Matosi, kad čia nereikia net integruoti ir tas plotas yra kaip arbuzo išpjauta skiltis, tai tos skilties žievė. Ir kad x negali būti daugiau už vieną ir mažiau už -1.
  • Apskaičiuosime rutulio paviršiaus plotą, atsiradusio dėl sukimo pusiauapskritimio, f(x)=R2−x2,0≤x≤2, aplink ašį Ox, kai R=3. Pagal pirmą formulę gauname

S=2π∫abR2−x21+x2R2−x2dx=2π∫01R2−x2R2R2−x2dx=2π∫02Rdx=2πR(2−0)=4π3=12π=37.69911184.

  • Apskaičiuosime visą rutulio paviršiaus plotą, atsiradusio dėl sukimo pusiauapskritimio, f(x)=R2−x2,−3≤x≤3, aplink ašį Ox, kai R=3. Pagal pirmą formulę gauname

S=2π∫abR2−x21+x2R2−x2dx=2π∫−33R2−x2R2R2−x2dx=2π∫−33Rdx=2πRx|−33=2πR(3−(−3))=2π⋅3⋅6=36π=113.0973355.

  • Apskaičiuoti paraboloido paviršiaus plotą, atsiradusio dėl sukimo aplink Ox ašį parabolės y2=2px, atitinkančiai x kitimosi nuo x=0 iki x=k:
y=2px,y′=2p2x,1+(y′)2=1+2p4x=2x+p2x.
S=2π∫abf(x)1+(f′(x))2dx=2π∫0k2px1+(2p2x)2dx=2π∫0k2px1+2p4xdx=2π∫0k2px2x+p2xdx=
=2πp∫0k2x+pdx=πp∫0k2x+pd(2x+p)=πp⋅(2x+p)33/2|0k=2πp3⋅[(2k+p)32−p32],

kur d(2x+p)=2dx; dx=(d(2x+p))/2.

  • Apskaičiuoti paraboloido paviršiaus plotą, atsiradusio dėl sukimo aplink Ox ašį parabolės y2=x, atitinkančiai x kitimosi nuo x=0 iki x=4:
y=x,y′=12x.
S=2π∫abf(x)1+(f′(x))2dx=2π∫04x1+(12x)2dx=2π∫04x1+14xdx=2π∫04x4x+14xdx=
=2π∫044x+14dx=2π∫0412⋅4x+1dx=π∫044x+1dx=π∫044x+1d(2x+p)2=π2⋅(4x+1)332|04=
=π2⋅23⋅((4⋅4+1)3−(4⋅0+1)3)=π3⋅(173−1)=π3⋅(4913−1)=π3⋅69.09279564=72.35380639,

kur d(4x+1)=4*dx; dx=(d(4x+1))/2.

  • Apskaičiuoti paraboloido paviršiaus plotą, atsiradusio dėl sukimo aplink Ox ašį parabolės y2=x, atitinkančiai x kitimosi nuo x=0 iki x=16:
y=x,y′=12x.
S=2π∫abf(x)1+(f′(x))2dx=2π∫016x1+(12x)2dx=2π∫016x1+14xdx=2π∫016x4x+14xdx=
=2π∫0164x+14dx=2π∫01612⋅4x+1dx=π∫0164x+1dx=π∫0164x+1d(4x+1)4=π4⋅(4x+1)332|016=
=π4⋅23⋅((4⋅16+1)3−(4⋅0+1)3)=π6⋅((64+1)3−1)=π6⋅(653−1)=π6⋅(274625−1)=π6⋅523.0467536=273.8666398,

kur d(4x+1)=4*dx; dx=(d(4x+1))/4.


S=2π∫abf(x)1+(f′(x))2dx=2π∫04x21+(2x)2dx=2π∫04x21+4x2dx=
=2π64(24x2+1(8x3+x)−sinh−1(2x))|04=
=π32(265⋅516−sinh−18)−π32(21⋅0−sinh−10)=
=π32(8320.24999624410324−2.77647228072371767)−π32(0−0)=
=π32⋅8317.47352396337952−0=816.5660537284675687=
=816.56605372846756868187758913704 (visiškai tiksliai).
Šitą plotą apskaičiavus su "Free Pascal 3.2.0" naudojant tokį kodą:
var a:longint; c:real;
begin
for a:=1 to 1000000000  do
c:=c+sqrt(sqr(0.000000004)+sqr(sqr(0.000000004*a)-sqr(0.000000004*(a-1))))*sqr(0.000000004*a);
writeln(6.283185307179586477*c);
readln;
end.
gauname rezultatą "8.16566054823987990563E+0002", kuris reiškia 816.566054823987990563 (šiaip "FP 3.2.0" duoda rezultatą 64 bitų t. y. 17 skaitmenų tikslumu, bet dėl to, kad padauginta tik vieną kartą iš 19 skaitmenų turinčios 2π reikšmės, atsakymas duotas 21 skaitmens tikslumu). Šitas rezultatas gautas po 16 sekundžių su 4 GHz procesoriumi, kuris, kaip rodo "Task Manager", skaičiuojant šitą kodą pakelia dažnį iki pastovios 4.16 GHz reikšmės.


  • Apskaičiuosime plotą S, paviršiaus, gauto sukimu vienos arkos cikloidės x=a(t−sin⁡t), y=a(1−cos⁡t), 0≤t≤2π, aplink ašį Ox. Pagal antrą formulę turime

S=2π∫02πa(1−cos⁡t)(a(1−cos⁡t))2+(asin⁡t)2dt= =2π∫02πa(1−cos⁡t)a2(1−2cos⁡t+cos2t)+a2sin2tdt=2π∫02πa(1−cos⁡t)a2(2−2cos⁡t)dt= =22πa2∫02π(1−cos⁡t)32dt=22πa2∫02π(2sin2t2)32dt=8πa2∫02πsin3t2dt= =32πa2∫0π2sin3t2d(t2)=32πa2⋅2!!3!!=643πa2,

kur pasinaudojome dvigubu faktorialu.

Arba galima buvo šį integralą sudorot paprastai:

S=8πa2∫02πsin3t2dt=8πa2∫02π3sin⁡t2−sin⁡3t24dt=2πa2∫02π(3sin⁡t2−sin⁡3t2)dt= =4πa2∫02π3sin⁡t2d(t2)−43πa2∫02πsin⁡3t2d(3t2)=−12πa2cos⁡t2|02π+43πa2cos⁡3t2|02π= =−12πa2⋅(−2)+43πa2⋅(−2)=643πa2.

Sukimo kūno tūris

V=π∫aby2dx=π∫ab[f(x)]2dx.

Funkcija sukama aplink Ox ašį.

Pavyzdžiai

  • Apskaičiuosime paraboloido y=x tūrį, kai 0<x<16. Pagal formulę:

V=π∫aby2dx=π∫016(x)2dx=π∫016xdx=π∫016xdx=π⋅x22|016=π(1622−022)=π⋅2562=128π=402.1238597.

  • Apskaičiuosime kubinio paraboloido y=x3 tūrį, kai 0<x<16. Kreivė y=x3 sukama aplink Ox ašį ir tokiu budu gaunamas kubinio paraboloido tūris.
V=π∫aby2dx=π∫016(x3)2dx=π∫016x23dx=π⋅x2+3353|016=π⋅35⋅x53|016=π⋅35⋅(1653−053)=
=π⋅35⋅10485763=π⋅35⋅101.5936673=60.9562004π=191.4995514.
  • Apskaičiuosime funkcijos y=x2 sukimo tūrį, kai x kinta nuo 0 iki 4.
V=π∫aby2dx=π∫04(x2)2dx=π∫04x4dx=π⋅x55|04=π(455−055)=π⋅10245=204.8π=643.3981755.
  • Apskaičiuosime funkcijos y=x3 sukimo tūrį, kai x kinta nuo 0 iki 4.
V=π∫aby2dx=π∫04(x3)2dx=π∫04x6dx=π⋅x77|04=π(477−077)=π⋅163847=2340.571429π=7353.122005.