Venn Data Maker Post: 302979857

Sponsored Content

Homework and Emergencies Emergency UNIX and Linux Support Venn Data Maker Post 302979857 by RudiC on Friday 19th of August 2016 06:32:32 PM

08-19-2016

Registered User

OK, try this:

Code:

awk '
NR==1   {print "Name", $0
         CC = NF
         for (i=1; i<2^CC; i++) Set[i] = 0
         next
        }
        {for (i=1; i<=CC; i++)  {T[$i]
                                 R[$i,i] = 1
                                }
        }
END     {delete T[""]
         for (t in T)   {printf "%s", t
                         for (i=1; i<=CC; i++)  printf ",%s", R[t,i]+0
                         printf RS
                         TMP = 0
                         for (i=1; i<=CC; i++)  TMP = TMP + 2^(i-1)*R[t,i]
                         Set[TMP]++
                        }
         for (i=1; i<2^CC; i++) {printf "Set"; for (j=0; j<CC; j++) if (int(i/2^j)%2) printf "%d", j+1; printf "=%d%s", Set[i], RS }
        }
' FS=,  file
Name,Set1,Set2,Set3,Set4,S5,S6
g1,1,1,1,1,1,1
g2,1,1,0,0,1,1
g3,0,0,1,0,1,1
g4,1,0,0,1,0,0
g5,1,1,1,1,1,1
g6,1,1,0,0,1,1
g7,0,1,0,1,1,0
g8,0,0,1,1,0,0
Set1=0
Set2=0
Set12=0
Set3=0
Set13=0
Set23=0
Set123=0
Set4=0
Set14=1
Set24=0
Set124=0
Set34=1
.
.
.
Set145=0
Set245=1
Set1245=0
.
.
.
Set256=0
Set1256=2
Set356=1
Set1356=0
.
.
.
Set23456=0
Set123456=2

Lines: 63 ( = 2^6 -1 )
Sum (set-values): 8 (8 different genes)

A bit complicated as awk doesn't provide binary operations nor print formats.

Last edited by RudiC; 08-19-2016 at 07:37 PM..

These 2 Users Gave Thanks to RudiC For This Post:

RudiC

View Public Profile for RudiC

Find all posts by RudiC

2 More Discussions You Might Find Interesting

1. Programming

maker

how can i remake a program to crash a harddrive using unix:rolleyes:

2. Shell Programming and Scripting

Venn diagram results using awk

Hi, I have the following files 1.txt a 10 b 11 c 12 d 13 e 14 f 15 g 16 h 17 i 18 j 19 k 20 2.txt a 21 b 22

LEARN ABOUT DEBIAN

io::async::pid

IO::Async::PID(3pm)					User Contributed Perl Documentation				       IO::Async::PID(3pm)

NAME

       "IO::Async::PID" - event callback on exit of a child process

SYNOPSIS

	use IO::Async::PID;
	use POSIX qw( WEXITSTATUS );

	use IO::Async::Loop;
	my $loop = IO::Async::Loop->new;

	my $kid = $loop->fork(
	   code => sub {
	      print "Child sleeping..
";
	      sleep 10;
	      print "Child exiting
";
	      return 20;
	   },
	);

	print "Child process $kid started
";

	my $pid = IO::Async::PID->new(
	   pid => $kid,

	   on_exit => sub {
	      my ( $self, $exitcode ) = @_;
	      printf "Child process %d exited with status %d
",
		 $self->pid, WEXITSTATUS($exitcode);
	   },
	);

	$loop->add( $pid );

	$loop->run;

DESCRIPTION

       This subclass of IO::Async::Notifier invokes its callback when a process exits.

       For most use cases, a IO::Async::Process object provides more control of setting up the process, connecting filehandles to it, sending data
       to and receiving data from it.

EVENTS

       The following events are invoked, either using subclass methods or CODE references in parameters:

   on_exit $exitcode
       Invoked when the watched process exits.

PARAMETERS

       The following named parameters may be passed to "new" or "configure":

       pid => INT
	       The process ID to watch. Must be given before the object has been added to the containing "IO::Async::Loop" object.

       on_exit => CODE
	       CODE reference for the "on_exit" event.

       Once the "on_exit" continuation has been invoked, the "IO::Async::PID" object is removed from the containing "IO::Async::Loop" object.

METHODS

   $process_id = $pid->pid
       Returns the underlying process ID

   $pid->kill( $signal )
       Sends a signal to the process

AUTHOR

       Paul Evans <leonerd@leonerd.org.uk>

perl v5.14.2							    2012-10-24						       IO::Async::PID(3pm)