Recent content by Galizius

Yes, I already did. Thank You again!

That solved my problem! Thank You so much, I do not know how could I miss that...

Hello I am trying to exchange following code into two functions which I will need to use in further programs. The code is as follows: do i=0,k do j=0,k if (i/=j) then lj(i)=lj(i)*((xx-x(i))/(x(j)-x(i))) end if enddo l(i)=l(i)+y(i)*lj(i) write(2,*) x(i),y(i),l(i) enddo I would...

I was trying to make n random numbers in the selected a side length but I do not know how to make sure that the point-to-point distance between every of the n points will be always bigger than 1.

I am wondering how can I solve following problem. I would like to see how can it be solved.

Thank You so much it works :)

Hello I am wondering how can I make sure that every number which I am losing will be different? I am using the following code: program lottery implicit none real(kind=4) :: x real(kind=8) :: y integer :: i, seed= 64256 call srand(seed) do i=1,6 x=rand() ! to make the lossing interval...

when I am using Euler equation for Fourier transform integrals of type \int_{-\infty}^{\infty} dx f(x) exp[ikx] I am getting following integrals: \int_{-\infty}^{\infty} dx f(x) cos(kx) (for the real part) and i* \int_{-\infty}^{\infty} dx f(x) sin(kx) (for its imaginary part) I am...

I have already fixed that. I just had one additional bracket in this formula. Thank you for help. It works properly now

Yes, I know and I strongly support such a position. I have done following code for counting values of my function. I do not really know what to do further. How to force a program to count the transform of that function? I would be really grateful for any further suggestions. The code is ...

I do not really know how I should pass that array as the fourth argument. Could you help me?

I was told to do a Fourier transform of function by using a Filon's method. I have found the code but I don't know how to include any function to the subroutine. I would be grateful for any example of how to use this code. SUBROUTINE FILONC ( DT, DOM, NMAX, C, CHAT ) C...

By a root of an integrand i mean the place where the total_calka = 0. There is the variable module. I just forgotten to add it, because i thought it would be unnecessary module variables implicit none real(10) :: r, u, r6, tempred, f, r2, r1, calka,beta real :: start, finish integer:: i,k...

Hello, I was told to find the root of an integrand with using the bisection method. I am kind of new to such a stuff so I am kind of confused why I am not getting the expected result. Here is my bisection code: tl=3.0 tup=4.0 tempred=0.0 s=-0.234726128709272990292 do while (abs(total_calka)...