i think i got it, it seems to have worked now:
[code/]
program cleanAudio
implicit none
integer:: n = 0, i = 0
character:: dummy
integer, parameter:: max = 40000.
real, dimension(max):: array1, array2
real, dimension(max):: array1Out, array2Out
read(*,*)dummy, n
do i = 1, n...
i now have this and it doesnt show any compiling errors:
[code/]
program cleanAudio
implicit none
integer:: n = 0, i = 0
character:: dummy
integer, parameter:: max = 40000.
real, dimension(max):: array1, array2
real, dimension(max):: array1Out, array2Out
read(*,*)dummy, n
do i = 1, n...
here is what i have so far, still getting some error messages:
[code/]
subroutine cleanUp(arrayIn, n, arrayOut)
implicit none
integer, intent(in):: n
real, intent(in), dimension(n):: arrayIn
real, intent(out), dimension(n):: arrayOut
integer:: i = 0
do i = 1, n
arrayOut(i) = arrayIn(i)...
i am needing to write a program to clean up an audio signal where it is clamped to a negative value using the equation
A(i) = A(2), if i = 1
A(i-1)+A(i+1)/2, if 1<i<N
A(N-1), if i = N
where N is the total number of audio samples in 1 channel (there are 2 channels)
i need to...
sorry, here:
[code/]
program testVectors
implicit none
integer:: n = 0, i = 0
character:: dummy
read(*,*)dummy, n
real, dimension(n):: array1, array2
do i = 1, n
read(*,*)array1(i), array2(i)
end do
end program
real function innerProd(array1, array2, n)...
now i have modified it to read a .dat file in the form:
# numberOfArrayValues
array1(1) array2(1)
array1(2) array2(2)
.
.
.
.
.
array1(n) array2(n)
and the code is as follows:
[code/]
program testVectors
implicit none
integer:: n = 0, i = 0
character:: dummy
read(*,*)dummy, n...
here is my code so far, please tell me what i am doing wrong:
[code/]
program testVectors
implicit none
integer:: n
integer:: i = 0
real:: innerProd
real, dimension(n):: array1, array2
write(*,*)"Enter number of elements to each array: "
read(*,*)n
do i = 1, n
if(i == 1) then...
i am supposed to write a function that computes the dot product of 2 vectors where the dot product equals the sum of Xi and Yi when i goes from 0 to n-1. then i have to write a test program to test it. we had one day of instruction on arrays and the assignment is due the next day (tomorrow) and...
i actually fixed it yesterday, but thanks... also, the formula is correct, the one you put in goes from 0 to infinity where mine goes from 1 to infinity, they are in fact equal formulas though
hello, i am a new fortran user in college... our teacher is a first year teacher and has assigned us 3 programs to write, none of which she explained how to do. i read the entire book up to where we are but apparently i still do not grasp the full concept yet. we are supposed to write a program...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.