#!C:/perl/bin/perl.exe use CGI::Carp qw(fatalsToBrowser); use CGI; $query = new CGI; $behaviors_attitudes= $query->param('behaviors_attitudes'); $beliefs_attitudes= $query->param('beliefs_attitudes'); $beliefs_behaviors= $query->param('beliefs_behaviors'); $body_attitudes= $query->param('body_attitudes'); $body_behaviors= $query->param('body_behaviors'); $body_beliefs= $query->param('body_beliefs'); $brain_attitudes= $query->param('brain_attitudes'); $brain_behaviors= $query->param('brain_behaviors'); $brain_beliefs= $query->param('brain_beliefs'); $brain_body= $query->param('brain_body'); $conscience_attitudes= $query->param('conscience_attitudes'); $conscience_behaviors= $query->param('conscience_behaviors'); $conscience_beliefs= $query->param('conscience_beliefs'); $conscience_body= $query->param('conscience_body'); $conscience_brain= $query->param('conscience_brain'); $consciousness_attitudes= $query->param('consciousness_attitudes'); $consciousness_behaviors= $query->param('consciousness_behaviors'); $consciousness_beliefs= $query->param('consciousness_beliefs'); $consciousness_body= $query->param('consciousness_body'); $consciousness_brain= $query->param('consciousness_brain'); $consciousness_conscience= $query->param('consciousness_conscience'); $desires_attitudes= $query->param('desires_attitudes'); $desires_behaviors= $query->param('desires_behaviors'); $desires_beliefs= $query->param('desires_beliefs'); $desires_body= $query->param('desires_body'); $desires_brain= $query->param('desires_brain'); $desires_conscience= $query->param('desires_conscience'); $desires_consciousness= $query->param('desires_consciousness'); $emotions_attitudes= $query->param('emotions_attitudes'); $emotions_behaviors= $query->param('emotions_behaviors'); $emotions_beliefs= $query->param('emotions_beliefs'); $emotions_body= $query->param('emotions_body'); $emotions_brain= $query->param('emotions_brain'); $emotions_conscience= $query->param('emotions_conscience'); $emotions_consciousness= $query->param('emotions_consciousness'); $emotions_desires= $query->param('emotions_desires'); $essence_attitudes= $query->param('essence_attitudes'); $essence_behaviors= $query->param('essence_behaviors'); $essence_beliefs= $query->param('essence_beliefs'); $essence_body= $query->param('essence_body'); $essence_brain= $query->param('essence_brain'); $essence_conscience= $query->param('essence_conscience'); $essence_consciousness= $query->param('essence_consciousness'); $essence_desires= $query->param('essence_desires'); $essence_emotions= $query->param('essence_emotions'); $feelings_attitudes= $query->param('feelings_attitudes'); $feelings_behaviors= $query->param('feelings_behaviors'); $feelings_beliefs= $query->param('feelings_beliefs'); $feelings_body= $query->param('feelings_body'); $feelings_brain= $query->param('feelings_brain'); $feelings_conscience= $query->param('feelings_conscience'); $feelings_consciousness= $query->param('feelings_consciousness'); $feelings_desires= $query->param('feelings_desires'); $feelings_emotions= $query->param('feelings_emotions'); $feelings_essence= $query->param('feelings_essence'); $genes_attitudes= $query->param('genes_attitudes'); $genes_behaviors= $query->param('genes_behaviors'); $genes_beliefs= $query->param('genes_beliefs'); $genes_body= $query->param('genes_body'); $genes_brain= $query->param('genes_brain'); $genes_conscience= $query->param('genes_conscience'); $genes_consciousness= $query->param('genes_consciousness'); $genes_desires= $query->param('genes_desires'); $genes_emotions= $query->param('genes_emotions'); $genes_essence= $query->param('genes_essence'); $genes_feelings= $query->param('genes_feelings'); $heart_attitudes= $query->param('heart_attitudes'); $heart_behaviors= $query->param('heart_behaviors'); $heart_beliefs= $query->param('heart_beliefs'); $heart_body= $query->param('heart_body'); $heart_brain= $query->param('heart_brain'); $heart_conscience= $query->param('heart_conscience'); $heart_consciousness= $query->param('heart_consciousness'); $heart_desires= $query->param('heart_desires'); $heart_emotions= $query->param('heart_emotions'); $heart_essence= $query->param('heart_essence'); $heart_feelings= $query->param('heart_feelings'); $heart_genes= $query->param('heart_genes'); $love_attitudes= $query->param('love_attitudes'); $love_behaviors= $query->param('love_behaviors'); $love_beliefs= $query->param('love_beliefs'); $love_body= $query->param('love_body'); $love_brain= $query->param('love_brain'); $love_conscience= $query->param('love_conscience'); $love_consciousness= $query->param('love_consciousness'); $love_desires= $query->param('love_desires'); $love_emotions= $query->param('love_emotions'); $love_essence= $query->param('love_essence'); $love_feelings= $query->param('love_feelings'); $love_genes= $query->param('love_genes'); $love_heart= $query->param('love_heart'); $memories_attitudes= $query->param('memories_attitudes'); $memories_behaviors= $query->param('memories_behaviors'); $memories_beliefs= $query->param('memories_beliefs'); $memories_body= $query->param('memories_body'); $memories_brain= $query->param('memories_brain'); $memories_conscience= $query->param('memories_conscience'); $memories_consciousness= $query->param('memories_consciousness'); $memories_desires= $query->param('memories_desires'); $memories_emotions= $query->param('memories_emotions'); $memories_essence= $query->param('memories_essence'); $memories_feelings= $query->param('memories_feelings'); $memories_genes= $query->param('memories_genes'); $memories_heart= $query->param('memories_heart'); $memories_love= $query->param('memories_love'); $mind_attitudes= $query->param('mind_attitudes'); $mind_behaviors= $query->param('mind_behaviors'); $mind_beliefs= $query->param('mind_beliefs'); $mind_body= $query->param('mind_body'); $mind_brain= $query->param('mind_brain'); $mind_conscience= $query->param('mind_conscience'); $mind_consciousness= $query->param('mind_consciousness'); $mind_desires= $query->param('mind_desires'); $mind_emotions= $query->param('mind_emotions'); $mind_essence= $query->param('mind_essence'); $mind_feelings= $query->param('mind_feelings'); $mind_genes= $query->param('mind_genes'); $mind_heart= $query->param('mind_heart'); $mind_love= $query->param('mind_love'); $mind_memories= $query->param('mind_memories'); $morality_attitudes= $query->param('morality_attitudes'); $morality_behaviors= $query->param('morality_behaviors'); $morality_beliefs= $query->param('morality_beliefs'); $morality_body= $query->param('morality_body'); $morality_brain= $query->param('morality_brain'); $morality_conscience= $query->param('morality_conscience'); $morality_consciousness= $query->param('morality_consciousness'); $morality_desires= $query->param('morality_desires'); $morality_emotions= $query->param('morality_emotions'); $morality_essence= $query->param('morality_essence'); $morality_feelings= $query->param('morality_feelings'); $morality_genes= $query->param('morality_genes'); $morality_heart= $query->param('morality_heart'); $morality_love= $query->param('morality_love'); $morality_memories= $query->param('morality_memories'); $morality_mind= $query->param('morality_mind'); $personality_attitudes= $query->param('personality_attitudes'); $personality_behaviors= $query->param('personality_behaviors'); $personality_beliefs= $query->param('personality_beliefs'); $personality_body= $query->param('personality_body'); $personality_brain= $query->param('personality_brain'); $personality_conscience= $query->param('personality_conscience'); $personality_consciousness= $query->param('personality_consciousness'); $personality_desires= $query->param('personality_desires'); $personality_emotions= $query->param('personality_emotions'); $personality_essence= $query->param('personality_essence'); $personality_feelings= $query->param('personality_feelings'); $personality_genes= $query->param('personality_genes'); $personality_heart= $query->param('personality_heart'); $personality_love= $query->param('personality_love'); $personality_memories= $query->param('personality_memories'); $personality_mind= $query->param('personality_mind'); $personality_morality= $query->param('personality_morality'); $self_attitudes= $query->param('self_attitudes'); $self_behaviors= $query->param('self_behaviors'); $self_beliefs= $query->param('self_beliefs'); $self_body= $query->param('self_body'); $self_brain= $query->param('self_brain'); $self_conscience= $query->param('self_conscience'); $self_consciousness= $query->param('self_consciousness'); $self_desires= $query->param('self_desires'); $self_emotions= $query->param('self_emotions'); $self_essence= $query->param('self_essence'); $self_feelings= $query->param('self_feelings'); $self_genes= $query->param('self_genes'); $self_heart= $query->param('self_heart'); $self_love= $query->param('self_love'); $self_memories= $query->param('self_memories'); $self_mind= $query->param('self_mind'); $self_morality= $query->param('self_morality'); $self_personality= $query->param('self_personality'); $soul_attitudes= $query->param('soul_attitudes'); $soul_behaviors= $query->param('soul_behaviors'); $soul_beliefs= $query->param('soul_beliefs'); $soul_body= $query->param('soul_body'); $soul_brain= $query->param('soul_brain'); $soul_conscience= $query->param('soul_conscience'); $soul_consciousness= $query->param('soul_consciousness'); $soul_desires= $query->param('soul_desires'); $soul_emotions= $query->param('soul_emotions'); $soul_essence= $query->param('soul_essence'); $soul_feelings= $query->param('soul_feelings'); $soul_genes= $query->param('soul_genes'); $soul_heart= $query->param('soul_heart'); $soul_love= $query->param('soul_love'); $soul_memories= $query->param('soul_memories'); $soul_mind= $query->param('soul_mind'); $soul_morality= $query->param('soul_morality'); $soul_personality= $query->param('soul_personality'); $soul_self= $query->param('soul_self'); $spirit_attitudes= $query->param('spirit_attitudes'); $spirit_behaviors= $query->param('spirit_behaviors'); $spirit_beliefs= $query->param('spirit_beliefs'); $spirit_body= $query->param('spirit_body'); $spirit_brain= $query->param('spirit_brain'); $spirit_conscience= $query->param('spirit_conscience'); $spirit_consciousness= $query->param('spirit_consciousness'); $spirit_desires= $query->param('spirit_desires'); $spirit_emotions= $query->param('spirit_emotions'); $spirit_essence= $query->param('spirit_essence'); $spirit_feelings= $query->param('spirit_feelings'); $spirit_genes= $query->param('spirit_genes'); $spirit_heart= $query->param('spirit_heart'); $spirit_love= $query->param('spirit_love'); $spirit_memories= $query->param('spirit_memories'); $spirit_mind= $query->param('spirit_mind'); $spirit_morality= $query->param('spirit_morality'); $spirit_personality= $query->param('spirit_personality'); $spirit_self= $query->param('spirit_self'); $spirit_soul= $query->param('spirit_soul'); $thoughts_attitudes= $query->param('thoughts_attitudes'); $thoughts_behaviors= $query->param('thoughts_behaviors'); $thoughts_beliefs= $query->param('thoughts_beliefs'); $thoughts_body= $query->param('thoughts_body'); $thoughts_brain= $query->param('thoughts_brain'); $thoughts_conscience= $query->param('thoughts_conscience'); $thoughts_consciousness= $query->param('thoughts_consciousness'); $thoughts_desires= $query->param('thoughts_desires'); $thoughts_emotions= $query->param('thoughts_emotions'); $thoughts_essence= $query->param('thoughts_essence'); $thoughts_feelings= $query->param('thoughts_feelings'); $thoughts_genes= $query->param('thoughts_genes'); $thoughts_heart= $query->param('thoughts_heart'); $thoughts_love= $query->param('thoughts_love'); $thoughts_memories= $query->param('thoughts_memories'); $thoughts_mind= $query->param('thoughts_mind'); $thoughts_morality= $query->param('thoughts_morality'); $thoughts_personality= $query->param('thoughts_personality'); $thoughts_self= $query->param('thoughts_self'); $thoughts_soul= $query->param('thoughts_soul'); $thoughts_spirit= $query->param('thoughts_spirit'); $will_attitudes= $query->param('will_attitudes'); $will_behaviors= $query->param('will_behaviors'); $will_beliefs= $query->param('will_beliefs'); $will_body= $query->param('will_body'); $will_brain= $query->param('will_brain'); $will_conscience= $query->param('will_conscience'); $will_consciousness= $query->param('will_consciousness'); $will_desires= $query->param('will_desires'); $will_emotions= $query->param('will_emotions'); $will_essence= $query->param('will_essence'); $will_feelings= $query->param('will_feelings'); $will_genes= $query->param('will_genes'); $will_heart= $query->param('will_heart'); $will_love= $query->param('will_love'); $will_memories= $query->param('will_memories'); $will_mind= $query->param('will_mind'); $will_morality= $query->param('will_morality'); $will_personality= $query->param('will_personality'); $will_self= $query->param('will_self'); $will_soul= $query->param('will_soul'); $will_spirit= $query->param('will_spirit'); $will_thoughts= $query->param('will_thoughts'); $you_attitudes= $query->param('you_attitudes'); $you_behaviors= $query->param('you_behaviors'); $you_beliefs= $query->param('you_beliefs'); $you_body= $query->param('you_body'); $you_brain= $query->param('you_brain'); $you_conscience= $query->param('you_conscience'); $you_consciousness= $query->param('you_consciousness'); $you_desires= $query->param('you_desires'); $you_emotions= $query->param('you_emotions'); $you_essence= $query->param('you_essence'); $you_feelings= $query->param('you_feelings'); $you_genes= $query->param('you_genes'); $you_heart= $query->param('you_heart'); $you_love= $query->param('you_love'); $you_memories= $query->param('you_memories'); $you_mind= $query->param('you_mind'); $you_morality= $query->param('you_morality'); $you_personality= $query->param('you_personality'); $you_self= $query->param('you_self'); $you_soul= $query->param('you_soul'); $you_spirit= $query->param('you_spirit'); $you_thoughts= $query->param('you_thoughts'); $you_will= $query->param('you_will'); $title01= $query->param('title01'); $title02= $query->param('title02'); $title03= $query->param('title03'); @condition= $query->param('condition'); @comparison= $query->param('comparison'); $pass= $query->param('pass'); if($pass < 1) { $pass = 0; } ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year = 1900 + $year; $mon= $mon+1; $hour = $hour - 1; $date1= "$mon/$mday/$year"; $date2= "$hour:$min:$sec"; print $query->header; print $query->start_html(-title=>'Similarity Ratings'); print ""; if ($pass == 0) { print "
"; print "
Welcome to the experiment!


"; print "Overview

The purpose of this research is to learn more about your personality and the way you view different objects in your world. This research is being conducted by Dr. Jesse Preston, professor of psychology at the University of Illinois at Urbana-Champaign.

You must be 18 years or older to participate. If you are not 18 years or older, you should not participate.

Purpose

In the first part of this experiment, you will be asked to read a few paragraphs of information and answer a few simple questions about the information. In the second part of this experiment, you will be asked to make a series of comparisons, in which you tell us how similar two different objects are to each other.

We hope to gain information about how people consider certain objects to be similar vs. different from each other. The benefit for you directly is that the program will analyze your responses and give you a personalized summary of the information you provide. Specifically, you will be given a visual representation of your self-concept!

Confidentiality

The researchers will keep the information you provide confidential. However, the service hosting this survey may have access to the data you submit and your IP number. We cannot guarantee that this service will keep information you submit confidential.

It is important that you answer the questions as truthfully and honestly as possible, but please note that you are free to skip any questionnaire item you wish, as well as free to withdraw from the study at any time without fear of penalty.

Your participation in the study is completely voluntary. Not participating or stopping the study will not affect your current or future relationship with the University of Illinois at Urbana-Champaign in any way.

Details

This study takes about 15 minutes to complete. There are no known risks associated with this study.

If you have any questions, Dr. Jesse Preston can be reached at jlp\@uiuc.edu.

If you have any questions about your rights as a participant in this study contact the UIUC Institutional Review Board (IRB) at 217-333-2670 (collect calls accepted) or email the IRB at irb\@uiuc.edu. The Institutional Review Board is the office at the University of Illinois responsible for protecting the rights of human subjects involved in studies conducted by University of Illinois researchers.

By clicking the below button, you certify that you are 18 years or older and that you agree to participate in this study.

You should print a copy of this form for your records.

PLEASE NOTE: This project is NOT currently IRB approved, and thus any data collected will NOT be used for research purposes. Feel free to take the quiz for fun though!

Let's get started!

Click here to begin

"; print ""; @condition = &randomize(0,1); @comparison = &randomize( 0, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25, 26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50, 51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75, 76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100, 101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125, 126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150, 151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175, 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198,199,200, 201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,225, 226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249,250, 251,252,253,254,255,256,257,258,259,260,261,262,263,264,265,266,267,268,269,270,271,272,273,274,275); &passhidden(); print "
"; } if ($pass == 1) { print "
"; print "
Welcome to the first part of the experiment!


Instructions: We will now give you a brief measure of verbal ability. Please read through the following paragraphs of information. After reading each paragraph, please write a short title (no more than 15 words) that BEST captures the meaning of the paragraph. After you have come up with a title for each paragraph, press the submit button at the bottom of the page. You will then be taken to the second part of the experiment."; print "



PARAGRAPH 1

"; print "Using brain scanning techniques, scientists have shown that people experience a feeling of FREE WILL in response to electrical activity in the brain. For example, when a person must respond to a question by moving a body part (such as a finger), electrical activity in the motor cortex occurs even before the person is aware of the intention to act. This is the most advanced neural research that has been done on the topic of free will. Neuroscientists say that "; if ($condition[0] == 0) { print "these results have answered many important questions about free will. For example, it can explain what creates the feeling of free will, and the true causes behind human action."; } elsif ($condition[0] == 1) { print "much has been left unanswered, however, including how this activity creates the feeling of free will, and the true source behind human action."; } print "

The BEST title to summarize this information is:
"; print ""; print "



PARAGRAPH 2

"; print "Neuroscientists have found that when a person is in LOVE, certain areas of the midbrain are activated. Specifically, when thinking about the loved one, areas in the brain associated with reward and motivation (the ventral tegmental area and the medial caudate nucleus) become activated. This research has produced the most up to date analysis on the neuroscience of love. "; if ($condition[0] == 0) { print "Neuroscientists note that these results can answer almost all the scientific questions we have about love. For example, it can explain when and with whom we fall in love, and explains what creates the feeling of love itself."; } elsif ($condition[0] == 1) { print "However, neuroscientists note that these results only raise more questions than they answer. For instance it does not explain when or with whom we fall in love, and cannot explain what creates the feeling of love itself."; } print "

The BEST title to summarize this information is:
"; print ""; print "



PARAGRAPH 3

"; print "Neuroscientists have discovered that when contemplating MORAL issues, there is particular pattern of activation in the medial prefrontal cortex, dorsal cingulate cortex, and superior temporal sulcus. These areas are related to self-knowledge, and social perspective taking. Scientists say this particular pattern shows how empathy and self-concept are crucial elements in moral reasoning. This is the most important neuroscience research conducted on human morality to date. "; if ($condition[0] == 0) { print "Scientists say that this neural activity can fully explain many key questions about human morality, such as how we distinguish right and wrong, make moral decisions, and make moral judgments of others."; } elsif ($condition[0] == 1) { print "However, the research still does not explain many key questions, such as how we distinguish right and wrong, make moral decisions, and make moral judgments of others."; } print "

The BEST title to summarize this information is:
"; print ""; print "

"; print ""; print ""; &passhidden(); print "
"; } if ($pass == 2) { print "
"; print "
Welcome to the second part of the experiment!


"; print " In this part, you will make a series of comparisons between a bunch of objects.

There are quite a few comparisons to make (276 to be exact!), but we want you to respond to each one as quickly as possible. That is, just answer based on your initial gut reaction, and don't overthink it too much. If you do this, each comparison should only take about a second.

Therefore, this whole part shouldn't take more than 5-10 minutes. When you are done, you will get a personalized feedback map of your self-concept! So hang in there, and when you are ready to begin, please respond to each comparison below.



"; &compare(); print ""; print ""; &passhidden(); print "
"; } if ($pass == 3) { #Saves the participant's data &save(); #Opens jQuery files print " "; #Retrieves data open(INFO, "$ENV{'DOCUMENT_ROOT_OLD'}/www/heplerlabs.com/P593/similarity_ratings.txt"); @data = ; close(INFO); #Stores the current participant's data in two arrays and creates a label array $participant_new = $data[-1]; @participant = split (/,/,$participant_new); @youarray = @participant[258,259,260,261,262,263,264,265,266,267,268,269,270,271,272,273,274,275,277,278,279,280]; @selfarray = @participant[158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,194,213,233,254]; @wordarray = ('attitudes', 'behaviors', 'beliefs', 'body', 'brain', 'conscience', 'consciousness', 'desires', 'emotions', 'essence', 'feelings', 'genes', 'heart', 'love', 'memories', 'mind', 'morality', 'personality', 'soul', 'spirit', 'thoughts', 'will'); print "
The results!


"; print " Below is a map of how YOU view YOURSELF. Use your mouse to hover over each point and see what concept it represents.
On this map, the closer a concept is to the bottom left, the more central it is to your self-concept.
The closer the concept is to the top right, the less central it is to your self-concept.


"; #Opens a placeholder that will contain the flot graphic later print "
"; #Begins flot print " "; print "

You can use the following map to see how your self-concept compares to the average self-concept of people who have taken this quiz!

"; #Stores the average of the group data in two arrays @yougroup = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); @selfgroup = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); @counter = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0); foreach $row (@data) { @participant = split(/,/,$row); if ($participant[258] > 0 && $participant[158] > 0) { $yougroup[0] = $yougroup[0] + $participant[258]; $selfgroup[0] = $selfgroup[0] + $participant[158]; $counter[0]++; } if ($participant[259] > 0 && $participant[159] > 0) { $yougroup[1] = $yougroup[1] + $participant[259]; $selfgroup[1] = $selfgroup[1] + $participant[159]; $counter[1]++; } if ($participant[260] > 0 && $participant[160] > 0) { $yougroup[2] = $yougroup[2] + $participant[260]; $selfgroup[2] = $selfgroup[2] + $participant[160]; $counter[2]++; } if ($participant[261] > 0 && $participant[161] > 0) { $yougroup[3] = $yougroup[3] + $participant[261]; $selfgroup[3] = $selfgroup[3] + $participant[161]; $counter[3]++; } if ($participant[262] > 0 && $participant[162] > 0) { $yougroup[4] = $yougroup[4] + $participant[262]; $selfgroup[4] = $selfgroup[4] + $participant[162]; $counter[4]++; } if ($participant[263] > 0 && $participant[163] > 0) { $yougroup[5] = $yougroup[5] + $participant[263]; $selfgroup[5] = $selfgroup[5] + $participant[163]; $counter[5]++; } if ($participant[264] > 0 && $participant[164] > 0) { $yougroup[6] = $yougroup[6] + $participant[264]; $selfgroup[6] = $selfgroup[6] + $participant[164]; $counter[6]++; } if ($participant[265] > 0 && $participant[165] > 0) { $yougroup[7] = $yougroup[7] + $participant[265]; $selfgroup[7] = $selfgroup[7] + $participant[165]; $counter[7]++; } if ($participant[266] > 0 && $participant[166] > 0) { $yougroup[8] = $yougroup[8] + $participant[266]; $selfgroup[8] = $selfgroup[8] + $participant[166]; $counter[8]++; } if ($participant[267] > 0 && $participant[167] > 0) { $yougroup[9] = $yougroup[9] + $participant[267]; $selfgroup[9] = $selfgroup[9] + $participant[167]; $counter[9]++; } if ($participant[268] > 0 && $participant[168] > 0) { $yougroup[10] = $yougroup[10] + $participant[268]; $selfgroup[10] = $selfgroup[10] + $participant[168]; $counter[10]++; } if ($participant[269] > 0 && $participant[168] > 0) { $yougroup[11] = $yougroup[11] + $participant[269]; $selfgroup[11] = $selfgroup[11] + $participant[169]; $counter[11]++; } if ($participant[270] > 0 && $participant[170] > 0) { $yougroup[12] = $yougroup[12] + $participant[270]; $selfgroup[12] = $selfgroup[12] + $participant[170]; $counter[12]++; } if ($participant[271] > 0 && $participant[171] > 0) { $yougroup[13] = $yougroup[13] + $participant[271]; $selfgroup[13] = $selfgroup[13] + $participant[171]; $counter[13]++; } if ($participant[272] > 0 && $participant[172] > 0) { $yougroup[14] = $yougroup[14] + $participant[272]; $selfgroup[14] = $selfgroup[14] + $participant[172]; $counter[14]++; } if ($participant[273] > 0 && $participant[173] > 0) { $yougroup[15] = $yougroup[15] + $participant[273]; $selfgroup[15] = $selfgroup[15] + $participant[173]; $counter[15]++; } if ($participant[274] > 0 && $participant[174] > 0) { $yougroup[16] = $yougroup[16] + $participant[274]; $selfgroup[16] = $selfgroup[16] + $participant[174]; $counter[16]++; } if ($participant[275] > 0 && $participant[175] > 0) { $yougroup[17] = $yougroup[17] + $participant[275]; $selfgroup[17] = $selfgroup[17] + $participant[175]; $counter[17]++; } if ($participant[277] > 0 && $participant[194] > 0) { $yougroup[18] = $yougroup[18] + $participant[277]; $selfgroup[18] = $selfgroup[18] + $participant[194]; $counter[18]++; } if ($participant[278] > 0 && $participant[213] > 0) { $yougroup[19] = $yougroup[19] + $participant[278]; $selfgroup[19] = $selfgroup[19] + $participant[213]; $counter[19]++; } if ($participant[279] > 0 && $participant[233] > 0) { $yougroup[20] = $yougroup[20] + $participant[279]; $selfgroup[20] = $selfgroup[20] + $participant[233]; $counter[20]++; } if ($participant[280] > 0 && $participant[254] > 0) { $yougroup[21] = $yougroup[21] + $participant[280]; $selfgroup[21] = $selfgroup[21] + $participant[254]; $counter[21]++; } } for ($i = 0; $i <= 21; $i++) { $yougroup[$i] = sprintf("%.2f",($yougroup[$i] / $counter[$i])); $selfgroup[$i] = sprintf("%.2f",($selfgroup[$i] / $counter[$i])); } #Group data into flot #Opens a placeholder that will contain the flot graphic later print "
"; #Begins flot print " "; #Outro print "

Thanks for participating!

"; print " Return to Hepler Labs\n "; } #Randomizes the elements of an array and returns the new array sub randomize { srand; my(@new) = (); while (@_) { push(@new, splice(@_, rand @_,1)); } return @new; } #This subroutine automates the comparison-questionnaire generation sub compare { #Stores comparison items @item1 = ( "Behaviors", "Beliefs", "Beliefs", "Body", "Body", "Body", "Brain", "Brain", "Brain", "Brain", "Conscience", "Conscience", "Conscience", "Conscience", "Conscience", "Consciousness", "Consciousness", "Consciousness", "Consciousness", "Consciousness", "Consciousness", "Desires", "Desires", "Desires", "Desires", "Desires", "Desires", "Desires", "Emotions", "Emotions", "Emotions", "Emotions", "Emotions", "Emotions", "Emotions", "Emotions", "Essence", "Essence", "Essence", "Essence", "Essence", "Essence", "Essence", "Essence", "Essence", "Feelings", "Feelings", "Feelings", "Feelings", "Feelings", "Feelings", "Feelings", "Feelings", "Feelings", "Feelings", "Genes", "Genes", "Genes", "Genes", "Genes", "Genes", "Genes", "Genes", "Genes", "Genes", "Genes", "Heart", "Heart", "Heart", "Heart", "Heart", "Heart", "Heart", "Heart", "Heart", "Heart", "Heart", "Heart", "Love", "Love", "Love", "Love", "Love", "Love", "Love", "Love", "Love", "Love", "Love", "Love", "Love", "Memories", "Memories", "Memories", "Memories", "Memories", "Memories", "Memories", "Memories", "Memories", "Memories", "Memories", "Memories", "Memories", "Memories", "Mind", "Mind", "Mind", "Mind", "Mind", "Mind", "Mind", "Mind", "Mind", "Mind", "Mind", "Mind", "Mind", "Mind", "Mind", "Morality", "Morality", "Morality", "Morality", "Morality", "Morality", "Morality", "Morality", "Morality", "Morality", "Morality", "Morality", "Morality", "Morality", "Morality", "Morality", "Personality", "Personality", "Personality", "Personality", "Personality", "Personality", "Personality", "Personality", "Personality", "Personality", "Personality", "Personality", "Personality", "Personality", "Personality", "Personality", "Personality", "Self", "Self", "Self", "Self", "Self", "Self", "Self", "Self", "Self", "Self", "Self", "Self", "Self", "Self", "Self", "Self", "Self", "Self", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Soul", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Spirit", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Thoughts", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "Will", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You", "You" ); @item2 = ( "Attitudes", "Attitudes", "Behaviors", "Attitudes", "Behaviors", "Beliefs", "Attitudes", "Behaviors", "Beliefs", "Body", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Feelings", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Feelings", "Genes", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Feelings", "Genes", "Heart", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Feelings", "Genes", "Heart", "Love", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Feelings", "Genes", "Heart", "Love", "Memories", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Feelings", "Genes", "Heart", "Love", "Memories", "Mind", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Feelings", "Genes", "Heart", "Love", "Memories", "Mind", "Morality", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Feelings", "Genes", "Heart", "Love", "Memories", "Mind", "Morality", "Personality", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Feelings", "Genes", "Heart", "Love", "Memories", "Mind", "Morality", "Personality", "Self", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Feelings", "Genes", "Heart", "Love", "Memories", "Mind", "Morality", "Personality", "Self", "Soul", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Feelings", "Genes", "Heart", "Love", "Memories", "Mind", "Morality", "Personality", "Self", "Soul", "Spirit", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Feelings", "Genes", "Heart", "Love", "Memories", "Mind", "Morality", "Personality", "Self", "Soul", "Spirit", "Thoughts", "Attitudes", "Behaviors", "Beliefs", "Body", "Brain", "Conscience", "Consciousness", "Desires", "Emotions", "Essence", "Feelings", "Genes", "Heart", "Love", "Memories", "Mind", "Morality", "Personality", "Self", "Soul", "Spirit", "Thoughts", "Will" ); @variables = ( "behaviors_attitudes", "beliefs_attitudes", "beliefs_behaviors", "body_attitudes", "body_behaviors", "body_beliefs", "brain_attitudes", "brain_behaviors", "brain_beliefs", "brain_body", "conscience_attitudes", "conscience_behaviors", "conscience_beliefs", "conscience_body", "conscience_brain", "consciousness_attitudes", "consciousness_behaviors", "consciousness_beliefs", "consciousness_body", "consciousness_brain", "consciousness_conscience", "desires_attitudes", "desires_behaviors", "desires_beliefs", "desires_body", "desires_brain", "desires_conscience", "desires_consciousness", "emotions_attitudes", "emotions_behaviors", "emotions_beliefs", "emotions_body", "emotions_brain", "emotions_conscience", "emotions_consciousness", "emotions_desires", "essence_attitudes", "essence_behaviors", "essence_beliefs", "essence_body", "essence_brain", "essence_conscience", "essence_consciousness", "essence_desires", "essence_emotions", "feelings_attitudes", "feelings_behaviors", "feelings_beliefs", "feelings_body", "feelings_brain", "feelings_conscience", "feelings_consciousness", "feelings_desires", "feelings_emotions", "feelings_essence", "genes_attitudes", "genes_behaviors", "genes_beliefs", "genes_body", "genes_brain", "genes_conscience", "genes_consciousness", "genes_desires", "genes_emotions", "genes_essence", "genes_feelings", "heart_attitudes", "heart_behaviors", "heart_beliefs", "heart_body", "heart_brain", "heart_conscience", "heart_consciousness", "heart_desires", "heart_emotions", "heart_essence", "heart_feelings", "heart_genes", "love_attitudes", "love_behaviors", "love_beliefs", "love_body", "love_brain", "love_conscience", "love_consciousness", "love_desires", "love_emotions", "love_essence", "love_feelings", "love_genes", "love_heart", "memories_attitudes", "memories_behaviors", "memories_beliefs", "memories_body", "memories_brain", "memories_conscience", "memories_consciousness", "memories_desires", "memories_emotions", "memories_essence", "memories_feelings", "memories_genes", "memories_heart", "memories_love", "mind_attitudes", "mind_behaviors", "mind_beliefs", "mind_body", "mind_brain", "mind_conscience", "mind_consciousness", "mind_desires", "mind_emotions", "mind_essence", "mind_feelings", "mind_genes", "mind_heart", "mind_love", "mind_memories", "morality_attitudes", "morality_behaviors", "morality_beliefs", "morality_body", "morality_brain", "morality_conscience", "morality_consciousness", "morality_desires", "morality_emotions", "morality_essence", "morality_feelings", "morality_genes", "morality_heart", "morality_love", "morality_memories", "morality_mind", "personality_attitudes", "personality_behaviors", "personality_beliefs", "personality_body", "personality_brain", "personality_conscience", "personality_consciousness", "personality_desires", "personality_emotions", "personality_essence", "personality_feelings", "personality_genes", "personality_heart", "personality_love", "personality_memories", "personality_mind", "personality_morality", "self_attitudes", "self_behaviors", "self_beliefs", "self_body", "self_brain", "self_conscience", "self_consciousness", "self_desires", "self_emotions", "self_essence", "self_feelings", "self_genes", "self_heart", "self_love", "self_memories", "self_mind", "self_morality", "self_personality", "soul_attitudes", "soul_behaviors", "soul_beliefs", "soul_body", "soul_brain", "soul_conscience", "soul_consciousness", "soul_desires", "soul_emotions", "soul_essence", "soul_feelings", "soul_genes", "soul_heart", "soul_love", "soul_memories", "soul_mind", "soul_morality", "soul_personality", "soul_self", "spirit_attitudes", "spirit_behaviors", "spirit_beliefs", "spirit_body", "spirit_brain", "spirit_conscience", "spirit_consciousness", "spirit_desires", "spirit_emotions", "spirit_essence", "spirit_feelings", "spirit_genes", "spirit_heart", "spirit_love", "spirit_memories", "spirit_mind", "spirit_morality", "spirit_personality", "spirit_self", "spirit_soul", "thoughts_attitudes", "thoughts_behaviors", "thoughts_beliefs", "thoughts_body", "thoughts_brain", "thoughts_conscience", "thoughts_consciousness", "thoughts_desires", "thoughts_emotions", "thoughts_essence", "thoughts_feelings", "thoughts_genes", "thoughts_heart", "thoughts_love", "thoughts_memories", "thoughts_mind", "thoughts_morality", "thoughts_personality", "thoughts_self", "thoughts_soul", "thoughts_spirit", "will_attitudes", "will_behaviors", "will_beliefs", "will_body", "will_brain", "will_conscience", "will_consciousness", "will_desires", "will_emotions", "will_essence", "will_feelings", "will_genes", "will_heart", "will_love", "will_memories", "will_mind", "will_morality", "will_personality", "will_self", "will_soul", "will_spirit", "will_thoughts", "you_attitudes", "you_behaviors", "you_beliefs", "you_body", "you_brain", "you_conscience", "you_consciousness", "you_desires", "you_emotions", "you_essence", "you_feelings", "you_genes", "you_heart", "you_love", "you_memories", "you_mind", "you_morality", "you_personality", "you_self", "you_soul", "you_spirit", "you_thoughts", "you_will" ); #Prints each questionnaire item separately with radio buttons from 1 - 7 print "
"; foreach $variable (@comparison) { print " "; } print "
$item1[$variable]       $item2[$variable]
Very similar      Very different




"; } #Saves the data to a file sub save { open(INFO, ">>$ENV{'DOCUMENT_ROOT_OLD'}/www/heplerlabs.com/P593/similarity_ratings.txt"); print INFO "$date1,$date2,$title01,$title02,$title03,$behaviors_attitudes,$beliefs_attitudes,$beliefs_behaviors,$body_attitudes,$body_behaviors,$body_beliefs,$brain_attitudes,$brain_behaviors,$brain_beliefs,$brain_body,$conscience_attitudes,$conscience_behaviors,$conscience_beliefs,$conscience_body,$conscience_brain,$consciousness_attitudes,$consciousness_behaviors,$consciousness_beliefs,$consciousness_body,$consciousness_brain,$consciousness_conscience,$desires_attitudes,$desires_behaviors,$desires_beliefs,$desires_body,$desires_brain,$desires_conscience,$desires_consciousness,$emotions_attitudes,$emotions_behaviors,$emotions_beliefs,$emotions_body,$emotions_brain,$emotions_conscience,$emotions_consciousness,$emotions_desires,$essence_attitudes,$essence_behaviors,$essence_beliefs,$essence_body,$essence_brain,$essence_conscience,$essence_consciousness,$essence_desires,$essence_emotions,$feelings_attitudes,$feelings_behaviors,$feelings_beliefs,$feelings_body,$feelings_brain,$feelings_conscience,$feelings_consciousness,$feelings_desires,$feelings_emotions,$feelings_essence,$genes_attitudes,$genes_behaviors,$genes_beliefs,$genes_body,$genes_brain,$genes_conscience,$genes_consciousness,$genes_desires,$genes_emotions,$genes_essence,$genes_feelings,$heart_attitudes,$heart_behaviors,$heart_beliefs,$heart_body,$heart_brain,$heart_conscience,$heart_consciousness,$heart_desires,$heart_emotions,$heart_essence,$heart_feelings,$heart_genes,$love_attitudes,$love_behaviors,$love_beliefs,$love_body,$love_brain,$love_conscience,$love_consciousness,$love_desires,$love_emotions,$love_essence,$love_feelings,$love_genes,$love_heart,$memories_attitudes,$memories_behaviors,$memories_beliefs,$memories_body,$memories_brain,$memories_conscience,$memories_consciousness,$memories_desires,$memories_emotions,$memories_essence,$memories_feelings,$memories_genes,$memories_heart,$memories_love,$mind_attitudes,$mind_behaviors,$mind_beliefs,$mind_body,$mind_brain,$mind_conscience,$mind_consciousness,$mind_desires,$mind_emotions,$mind_essence,$mind_feelings,$mind_genes,$mind_heart,$mind_love,$mind_memories,$morality_attitudes,$morality_behaviors,$morality_beliefs,$morality_body,$morality_brain,$morality_conscience,$morality_consciousness,$morality_desires,$morality_emotions,$morality_essence,$morality_feelings,$morality_genes,$morality_heart,$morality_love,$morality_memories,$morality_mind,$personality_attitudes,$personality_behaviors,$personality_beliefs,$personality_body,$personality_brain,$personality_conscience,$personality_consciousness,$personality_desires,$personality_emotions,$personality_essence,$personality_feelings,$personality_genes,$personality_heart,$personality_love,$personality_memories,$personality_mind,$personality_morality,$self_attitudes,$self_behaviors,$self_beliefs,$self_body,$self_brain,$self_conscience,$self_consciousness,$self_desires,$self_emotions,$self_essence,$self_feelings,$self_genes,$self_heart,$self_love,$self_memories,$self_mind,$self_morality,$self_personality,$soul_attitudes,$soul_behaviors,$soul_beliefs,$soul_body,$soul_brain,$soul_conscience,$soul_consciousness,$soul_desires,$soul_emotions,$soul_essence,$soul_feelings,$soul_genes,$soul_heart,$soul_love,$soul_memories,$soul_mind,$soul_morality,$soul_personality,$soul_self,$spirit_attitudes,$spirit_behaviors,$spirit_beliefs,$spirit_body,$spirit_brain,$spirit_conscience,$spirit_consciousness,$spirit_desires,$spirit_emotions,$spirit_essence,$spirit_feelings,$spirit_genes,$spirit_heart,$spirit_love,$spirit_memories,$spirit_mind,$spirit_morality,$spirit_personality,$spirit_self,$spirit_soul,$thoughts_attitudes,$thoughts_behaviors,$thoughts_beliefs,$thoughts_body,$thoughts_brain,$thoughts_conscience,$thoughts_consciousness,$thoughts_desires,$thoughts_emotions,$thoughts_essence,$thoughts_feelings,$thoughts_genes,$thoughts_heart,$thoughts_love,$thoughts_memories,$thoughts_mind,$thoughts_morality,$thoughts_personality,$thoughts_self,$thoughts_soul,$thoughts_spirit,$will_attitudes,$will_behaviors,$will_beliefs,$will_body,$will_brain,$will_conscience,$will_consciousness,$will_desires,$will_emotions,$will_essence,$will_feelings,$will_genes,$will_heart,$will_love,$will_memories,$will_mind,$will_morality,$will_personality,$will_self,$will_soul,$will_spirit,$will_thoughts,$you_attitudes,$you_behaviors,$you_beliefs,$you_body,$you_brain,$you_conscience,$you_consciousness,$you_desires,$you_emotions,$you_essence,$you_feelings,$you_genes,$you_heart,$you_love,$you_memories,$you_mind,$you_morality,$you_personality,$you_self,$you_soul,$you_spirit,$you_thoughts,$you_will,$condition[0],endline\n"; close(INFO); } #Passes variables that the user has entered sub passhidden { print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print $query->hidden(title01, $title01); print $query->hidden(title02, $title02); print $query->hidden(title03, $title03); print $query->hidden(condition, @condition); print $query->hidden(comparison, @comparison); print ""; }