# HG changeset patch # User devteam # Date 1406562965 14400 # Node ID 04cdbd00dcec128f96c44690955fa2ac7dba026d Imported from capsule None diff -r 000000000000 -r 04cdbd00dcec first_matrix_generator_example_file.png Binary file first_matrix_generator_example_file.png has changed diff -r 000000000000 -r 04cdbd00dcec generate_matrix_for_pca_lda.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/generate_matrix_for_pca_lda.pl Mon Jul 28 11:56:05 2014 -0400 @@ -0,0 +1,147 @@ +#!/usr/bin/perl -w + +use strict; +use warnings; + +my $Input_Matrix = $ARGV[0]; +my $Input_Label = $ARGV[1]; + +my %Hash_X = (); +my %Hash_Y = (); +my $My_Num_X = 0; +my $My_Num_Y = 0; + +open (OUT, "> $ARGV[2]"); + +open (LABEL, "< $Input_Label") || + die "Sorry, I couldn't open the escape.txt for clone: $!\n"; + +my $Label_Index = 0; +my $X_Label; +my $input_Label; +while (defined($input_Label =