What is the equivalent of the following Python list comprehension in Fortran? -

-

i trying write following list comprehension(written in python) in fortran.

lit = [[x,y] x in [p,q,r] y in [h,k,l] if [x,y]!=[a,b]]

where a, b, p ,q ,r, h, k, l integers

how can achieve if want fill columns first in 2d fortran array?

the python code returns list. equivalent to

for x in [p,q,r]:      y in [h,k,l]:          if [x,y]!=[a,b]:              list.append([x,y])

i made 2 sublists in fortran. sublist_x , sublist_y each list contains p,q,r , h,k,l respectively.

integer :: list(0:7), sublist_x(0:2),sublist_y(0:2), count  count =-1  i=0,7    if (i%3 ==0)    count = count +1    endif    list(0,i)=sublist_x(i%3)    list(1,i)=sublist_y(count%3) enddo

i think complex way of doing things...

if understand correctly want cartesian product of 2 little lists, excluding element [a,b] ? if misunderstand, stop reading now. here's little program want ...

program test    implicit none    integer, dimension(:), allocatable :: listx, listy, bad_element   integer, dimension(:,:), allocatable :: outlist   integer :: ix, jx, alstat, n_elements    logical, dimension(:), allocatable :: rows    listx = [1,2,3]   listy = [21,22,23]   bad_element = [3,21]    n_elements = size(listx)*size(listy)   allocate(outlist(2,n_elements),stat=alstat)   if (alstat/=0)      write(*,*) "something went wrong allocating result array"      stop   else      outlist(1,:) = reshape(listx,[n_elements],listx)      outlist(2,:) = reshape(spread(listy,1,size(listx)),[n_elements])   end if    ix = 1, n_elements      if (all(outlist(:,ix)==bad_element))         outlist(:,ix:) = eoshift(outlist(:,ix:),1,dim=2)      end if   end  end program test

at end of program outlist contains cartesian product elements equal bad element replaced 0s , pushed end of outlets. hard-wired numbers above, output is:

    1    2    1    2    3    1    2    3    0    21   21   22   22   22   23   23   23    0

i guess shouldn't have difficulty trimming remove 0s, nor in packaging program routine. , hope code explains itself.


Comments

Post a Comment

Popular posts from this blog

php - Admin SDK -- get information about the group -

-
please, help. https://www.googleapis.com/admin/directory/v1/groups/106274944935548788283 sending request obtain information group id 1062 ... here link method in google https://developers.google.com/admin-sdk/directory/v1/guides/manage-groups#get_group in response error - 401 unauthorized. oauth authenticate via user has received rights necessary request, included in console admin sdk. authorization successful, there token. not can not understand. if not hard - response. requested information: file_get_contents("https://www.googleapis.com/admin/directory/v1/groups/1062749‌​44935548788283?key=aizasybruhiomdf9nlx9lx3imxwesqmcrnhh4l4"); id group - "106274944935548788283" key applications in case - "aizasybruhiomdf9nlx9lx3imxwesqmcrnhh4l4" error: failed open stream: http request failed! http/1.0 401 unauthorized
Read more

Python Error - TypeError: input expected at most 1 arguments, got 3 -

-
can explain why can not use your_name in goal variable? my_name = "bryson" my_age = 29 your_name = input ("what name? ") your_age = input ("what age? ") print ("my name is", my_name,", , am", my_age, "years old.") print ("your name is", your_name,", , are", your_age,".") print("thank buying book,", your_name,"!") goal = input ("what favorite part of book,", your_name, "?") print("awesome!") the error is: goal = input ("what favorite part of book,", your_name, "?") typeerror: input expected @ 1 arguments, got 3 you got error because in fact gave 3 arguments input function when expecting 1 (namely, string prompt). in input ("what favorite part of book,", your_name, "?") ---------------------------------------- , ---------, --- the underlined parts comma-separated arguments: st...
Read more

python - Pygame screen.blit not working -

-
in program creating in python/pygame, screen.blit not working. in other programs have made, screen.blit works. error: traceback (most recent call last): file "c:...\main.py", line 46, in <module> screen.blit(sight.image, sight.rect) attributeerror: 'int' object has no attribute 'blit' the error in question caused screen variable being allocated integer instead of pygame.surface() object.perhaps accidentally rewrote variable somewhere? from can make of doing, seems stating position of blit full rect instead of coordinate. when do: screen.blit(sight.image,sight.rect) what program seeing is: screen.blit(sight.image,(sight.rect.x,sight.rect.y,sight.rect.width,sight.rect.height)) i assuming don't intend this. remember rect object consists of position, width , height. to correct code, put (sight.rect.x,sight.rect.y) location goes instead this: screen.blit(sight.image,(sight.rect.x,sight.rect.y)) the .x , .y corres...
Read more