Postlab03_Task1_rfelde

Postlab03_Task1_rfelde - ! Lab #3: Conditional Statements...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
! Lab #3: Conditional Statements and Looping ! File: Postlab03_Task1_rfelde.f95 ! Date: 29 January 2008 ! By: Ryan Robert Felde ! rfelde ! Section: 02/01, 11:30, and ENAD 138 ! Team: 16 ! ! ELECTRONIC SIGNATURE ! Ryan Robert Felde ! ! The electronic signature above indicates the program submitted for ! evaluation is my individual work and I have a general understanding ! of all aspects of its development and execution. ! ! A BRIEF DESCRIPTION OF WHAT THE PROGRAM OR FUNCTION DOES ! This program has the user input the indices for refraction, the entry angle, and the distances through the media and then ! calculates the distance the light travels. program refraction implicit none ! Initialize variables real :: Index_1, Index_2, Angle_In, Angle2, Angle3, D1, D2, D3, D4, DH1, DH2, DH3 ! Prompt for input of the indices of refraction write(*,*) 'Input the two indices of refraction for the 2nd and 3rd media: ' read(*,*) Index_1, Index_2 ! Prompt for input of the entry angle write(*,*) 'Input the incoming angle in degrees: '
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 2

Postlab03_Task1_rfelde - ! Lab #3: Conditional Statements...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online