Una fibra multimodo es aquella en la que los haces de luz pueden circular por más de un modo o camino. Esto supone que no llegan todos a la vez. Una fibra multimodo puede tener más de mil modos de propagación de luz. Las fibras multimodo se usan comúnmente en aplicaciones de corta distancia, menores a 1 km; es simple de diseñar y económico.
Su distancia máxima es de 2 km y usan diodos láser de baja intensidad.
El núcleo de una fibra multimodo tiene un índice de refracción superior, pero del mismo orden de magnitud, que el revestimiento. Debido al gran tamaño del núcleo de una fibra multimodo, es más fácil de conectar y tiene una mayor tolerancia a componentes de menor precisión.
Dependiendo el tipo de índice de refracción del núcleo, tenemos dos tipos de fibra multimodo:
* Índice escalonado: en este tipo de fibra, el núcleo tiene un índice de refracción constante en toda la sección cilíndrica, tiene alta dispersión modal.
* Índice gradual: mientras en este tipo, el índice de refracción no es constante, tiene menor dispersión modal y el núcleo se constituye de distintos materiales.
Además, según el sistema ISO 11801 para clasificación de fibras multimodo según su ancho de banda las fibras pueden ser OM1, OM2 u OM3.
* OM1: Fibra 62.5/125 µm, soporta hasta Gigabit Ethernet (1 Gbit/s), usan LED como emisores
* OM2: Fibra 50/125 µm, soporta hasta Gigabit Ethernet (1 Gbit/s), usan LED como emisores
* OM3: Fibra 50/125 µm, soporta hasta 10 Gigabit Ethernet(300 m), usan láser como emisores.
Fibra multimodo
Historia Redes
Las redes de ordenadores aparecieron en los años setenta muy ligadas a los fabricantes de ordenadores, como por ejemplo la red EARN (European Academic & Research Network) y su homóloga americana BITNET e IBM, o a grupos de usuarios de ordenadores con unas necesidades de intercambio de información muy acusadas, como los físicos de altas energías con la red HEPNET (High Energy Physics Network).
El Departamento de Defensa de los Estados Unidos mediante DARPA (Deffiense Advanced Research Projects Agency) inició a finales de los años sesenta un proyecto experimental que permitiera comunicar ordenadores entre sí, utilizando diversos tipos de tecnologías de transmisión y que fuera altamente flexible y dinámico. El objetivo era conseguir un sistema informático geográficamente distribuido que pudiera seguir funcionando en el caso de la destrucción parcial que provocaría un ataque nuclear.
En 1969 se creó la red ARPANET, que fue creciendo hasta conectar unos 100 ordenadores a principios de los años ochenta. En 1982 ARPANET adoptó oficialmente la familia de protocolos de co-municaciones TCP/IP.
Surgieron otras redes que también utilizaban los protocolos TCP/IP para la comunicación entre sus equipos, como CSNET (Computer Science Network) y MILNET (Departamento de Defensa de Estados Unidos). La unión de ARPANET, MILNET y CSNET en l983 se considera como el momento de creación de Internet.
En 1986 la National Science Foundation de los Estados Unidos decidió crear una red propia, NS Fnet, que permitió un gran aumento de las conexiones a la red, sobre todo por parte de universidades y centros de investigación, al no tener los impedimentos legales y burocráticos de ARPANET para el acceso generalizado a la red. En 1995 se calcula que hay unos 3.000.000 de ordenadores conectados a Internet.
Fibra óptica
La fibra óptica es un medio de transmisión empleado habitualmente en redes de datos; un hilo muy fino de material transparente, vidrio o materiales plásticos, por el que se envían pulsos de luz que representan los datos a transmitir. El haz de luz queda completamente confinado y se propaga por el núcleo de la fibra con un ángulo de reflexión por encima del ángulo límite de reflexión total, en función de la ley de Snell. La fuente de luz puede ser láser o un LED.
Las fibras se utilizan ampliamente en telecomunicaciones, ya que permiten enviar gran cantidad de datos a una gran distancia, con velocidades similares a las de radio y/o cable. Son el medio de transmisión por excelencia al ser inmune a las interferencias electromagneticas, también se utilizan para redes locales, en donde se necesite una alta confiabilidad y fiabilidad.
Genera Numeros Aleatorios
Breve Descripción del Programa:
"Genera numeros aleatorios, segun los deseados"
Private Sub generar_Click()
Dim List As String
For i = 1 To Val(num)
num = Int((100 * Rnd) + 1)
List = Format(num, "0000")
List1.AddItem (List)
Next
End Sub
Private Sub clean_Click()
num = ""
List1.Clear
num.SetFocus
End Sub
Numeros Aleatorios "Filas de 10"
Breve Descripción del Programa:
"Captura, ordena ascendente y descendente mente numeros aleatorios"
Dim arreglo(99) As Integer
Dim I As Integer
Private Sub generar_Click()
For I = 0 To 99
arreglo(I) = CInt(Rnd(100) * 100)
lista.AddItem arreglo(I)
Next I
End Sub
Private Sub mascendente_Click()
lista.Clear
For I = 0 To 99 Step 1
lista.AddItem arreglo(99 - I)
Next I
End Sub
Private Sub mdescendente_Click()
lista.Clear
For I = 0 To 99
lista.AddItem arreglo(I)
Next I
End Sub
Promedio De 3°C Informatica
Breve Descripción del Programa:
"Este programa realiza el promedio individual de cada alumno, y lo almacena en una lista"
Private Sub clean_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text8 = ""
nombre = ""
Label3 = ""
clean.SetFocus
End Sub
Private Sub p1_Click(Index As Integer)
Dim n1 As Double, n2 As Double, n3 As Double, n4 As Double, n5 As Double, n6 As Double
Dim promedio As Integer
n1 = Val(Text1)
n2 = Val(Text2)
n3 = Val(Text3)
n4 = Val(Text4)
n5 = Val(Text5)
n6 = Val(Text6)
promedio = ((n1 + n2 + n3 + n4 + n5 + n6) / 6)
Label3 = (promedio)
If promedio > 9.5 Then
Text8 = "Exelente"
End If
If promedio > 9 And promedio < 9.5 Then
Text8 = "Muy Bien"
End If
If promedio > 8.5 And promedio < 9 Then
Text8 = "Bien"
End If
If promedio >= 8 And promedio < 8.5 Then
Text8 = "Regular"
End If
If promedio < 8 Then
Text8 = "Mal"
End If
End Sub
Private Sub salir_Click()
Unload Me
End
End Sub
Private Sub save_Click()
Dim item As String
Dim item2 As Integer
item = UCase(nombre)
item2 = UCase(Label3)
List1.AddItem (nombre)
List2.AddItem (Label3)
End Sub
Temperatura "Celcius a Farenheit"
Breve Descripción del Programa:
"Convierte temperaturas de Grados Centigrados °C > Grados Farenheit °F"
Private Sub convert_Click()
cent = (9 / 5) * (Text1)
po = cent + 32
Label1 = po
Text1 = ""
Text1.SetFocus
End Sub
Private Sub exit_Click()
End
End Sub
