size(600,600); pen contorno=linewidth(1.5mm); pen fuerza=linewidth(1mm); pen cota=linewidth(0.75mm); path radio1=(0,0)--2.5*(0.17,0.98); pair t1,t2,r1,r2; path radio2=(0,0)--2.5*(-0.17,0.98); guide cinta1=scale(2)*unitcircle; guide cinta2=scale(1.5)*unitcircle; guide cinta3; guide cinta4; guide tension1,tension2,friccion,centrifuga,normal; guide cota1,cota2,cota3,cota4,cota5; guide velocidad; radio1=lastcut(radio1,cinta1).before; radio2=lastcut(radio2,cinta1).before;

cinta1=firstcut(cinta1,radio1).after; cinta1=firstcut(cinta1,radio2).before;

cinta2=firstcut(cinta2,radio1).after; cinta2=firstcut(cinta2,radio2).before;

cinta3=radio1; cinta3=lastcut(radio1,cinta2).after; cinta4=firstcut((0,0)--2.5*(-0.17,0.98),scale(2)*unitcircle).before; cinta4=firstcut(cinta4,scale(1.5)*unitcircle).after;

r1=dir(radio1,0); r2=dir(radio2,0); t1=rotate(-90)*dir(radio1,0); t2=rotate(90)*dir(radio2,0);

tension1=(1.75*r1--(0.25*t1+1.75*r1)); tension2=(1.75*r2--(0.5*t2+1.75*r2));

friccion=(0,1.5)--(0.5,1.5);

centrifuga=(0,1.75)--(0,2);

normal=(0,1)--(0,1.5);

cota1=arc((0,0),0.8,45,45+90);

draw(firstcut(cota1,radio1).before,cota,Arrow);

cota1=subpath(cota1,size(cota1)-1,0);

draw(firstcut(cota1,radio2).before,cota,Arrow); draw(radio1); draw(radio2);

label(scale(4)*"$d\alpha$",(0,0.8)); cota3=point(tension1,0)--point(tension1,0)+(0.8,0); cota4=point(tension1,0)--point(tension1,0)+0.8*t1;

cota5=arc(point(tension1,0),0.4,-40,40);

draw(firstcut(cota5,cota4).before,cota,Arrow);

cota5=subpath(cota5,size(cota5)-1,0);

draw(firstcut(cota5,cota3).before,cota,Arrow);

label(rotate(110)*scale(4)*"$\frac{d\alpha}{2}$",(0.6,2.1));

draw(cota4); draw(cota3); draw(cinta1, contorno); draw(cinta2,contorno); draw(cinta3,contorno); draw(cinta4,contorno); draw(scale(4)*"$\vec{t}$",tension1,fuerza+green,Arrow); draw(scale(3)*"$\vec{t}+d\vec{t}$",tension2,fuerza+green,Arrow); draw(scale(4)*"$\vec{f}$",friccion,fuerza+green,Arrow); draw(scale(3)*"$\vec{F_c}$",centrifuga,fuerza+green,Arrow); draw(scale(3)*"$\vec{N}$",normal,fuerza+green,Arrow);

velocidad=arc((0,0),0.45,45,45+90); draw(scale(3)*"$\omega$",velocidad,fuerza+blue,Arrow);

Én, e mű szerzője a művemet az alábbi licencek alatt teszem közzé:

Ez a fájl szabadon másolható, terjeszthető és/vagy módosítható a GNU Szabad Dokumentációs Licenc feltételei alapján, az 1.2 vagy későbbi, a Free Software Foundation által publikált Nem Változtatható szakaszok, Címlapszövegek és Hátlapszövegek nélküli változat szerint. E licenc egy példánya a GNU Szabad Dokumentációs Licenc című fejezetben olvasható.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

This file is licensed under the Creative Commons Attribution-Share Alike 4.0 International, 3.0 Unported, 2.5 Generic, 2.0 Generic and 1.0 Generic license.

A következőket teheted a művel:

• megoszthatod – szabadon másolhatod, terjesztheted, bemutathatod és előadhatod a művet
• feldolgozhatod – származékos műveket hozhatsz létre

Az alábbi feltételekkel:

• Nevezd meg! – A szerzőt megfelelően fel kell tüntetned, hivatkozást kell létrehoznod a licencre és jelezned kell, ha a művön változtatást hajtottál végre. Ezt bármilyen észszerű módon megteheted, kivéve oly módon, ami azt sugallná hogy a jogosult támogat téged vagy a felhasználásod körülményeit.
• Így add tovább! – Ha megváltoztatod, átalakítod, feldolgozod ezt a művet, a közreműködésedet csak az eredetivel megegyező vagy hasonló licenc alatt terjesztheted.

https://creativecommons.org/licenses/by-sa/4.0CC BY-SA 4.0 Creative Commons Attribution-Share Alike 4.0 truetrue

A mű a fenti licencek bármelyike szerint felhasználható.