Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

Homework Help: Finite difference method in fortran

  1. Feb 22, 2010 #1
    1. I have problem numerical solving of PDE with finite difference method in fortran. it is about optical fibers. At the begining of the fiber the delta impuls is inserted, and I need function at the end of the fiber.



    2. The equation is given in attachement as the code in fortran



    3. The problem is that I know that the function at the end of the fiber should drift towards 0 (on X axis) for lenghts of fiber over 30m, but it does not. The problem is in the code but I cannot find where.

    If someone could help me I would appreciate it

    1. The problem statement, all variables and given/known data



    2. Relevant equations



    3. The attempt at a solution
     

    Attached Files:

  2. jcsd
Share this great discussion with others via Reddit, Google+, Twitter, or Facebook

Can you offer guidance or do you also need help?
Draft saved Draft deleted