کد فرترن وگزارش حل  معادله موج یکبعدی به روش upwind با شرط مرزی پریودیک , پله و سینوسی 21 ص pdf