Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  asdfasdfad
Language: C/C++
Code:
C ******** PROGRAMA QUE CALCULA ************ C ******** LA FUERZA MAGNETICA ************* C ********  EN SUS TRES CASOS ************** C ==========================================       PROGRAM fisica       REAL x, q, v, b, i, l, n, o, theta, fb, a        PRINT*, 'Calcular la magnitud de la fuerza magnetica para: '       PRINT*, '1. Particulas en movimiento'       PRINT*, '2. Conductores'       PRINT*, '3. Solenoides'       PRINT*, '4+. Salir'       READ(*,*) x       IF (x.EQ.1) THEN          PRINT*, 'Dame la carga de la particula (Columb) '          READ(*,*) q          PRINT*, 'Dame la velocidad de la particula (Metros x seg.)'          READ(*,*) v          PRINT*, 'Dame la magnitud del campo magnetico (Teslas) '          READ(*,*) b          PRINT*, 'Dame el angulo de los vectores V X B (grados)'          READ(*,*) o          theta = ( o * 3.14159 ) / 180          fb = abs(q)*v*b*sin(theta)          PRINT*, 'La fueza magnetica para esta particula es',fb,'N'       ENDIF       IF (x.EQ.2) THEN          PRINT*, 'Dame la intensidad de la corriente (Amperes)'          READ(*,*) i          PRINT*, 'Dame la longitud del conductor (metros)'          READ(*,*) l          PRINT*, 'Dame la magnitud del campo magnetico (Teslas)'          READ(*,*) b          PRINT*, 'Dame el angulo de los vectores I X B (Grados)'          READ(*,*) o          theta = ( o * 3.14159 ) / 180          fb = i*l*b*sin(theta)          PRINT*, 'La fuerza magnetica para este conductor es',fb,'N'       ENDIF       IF (x.EQ.3) THEN          PRINT*, 'Dame el numero de vueltas del solenoide'          READ(*,*) n          PRINT*, 'Dame la intensidad de la corriente (Amperes)'          READ(*,*) i          PRINT*, 'Dame el area del solenoide (metros cuadrados)'          READ(*,*) a          PRINT*, 'Dame la magnitud del campo magnetico (Teslas)'          READ(*,*) b          PRINT*, 'Dame el angulo de los vectores V X B (Grados)'          READ(*,*) o          theta = ( o * 3.14159 ) / 180          fb = n*i*a*b*(sin(theta))          PRINT*, 'La fuerza magnetica para este solenoide es',fb,'N'       ENDIF       IF (x.GT.3) THEN          PRINT*, 'Saliendo . . . . .'       ENDIF       STOP       END     
Comments: