#!/usr/bin/env python

# encoding: UTF-8

from sys import argv

from random import uniform, expovariate

from datetime import date

from time import time

import urllib, urllib2

import hmac, json

import wx

from psychopy.visual import Rect

import schizoidpy

from schizoidpy import init_wx, box, okay

import commitments

from commitments import long_wrapped_text, message

par = dict(zip(argv[1::2], argv[2::2])) # DEPLOYMENT SCRIPT EDITS THIS LINE

o = schizoidpy.Task(

button_radius = .12,

okay_button_pos = (0, -.7))

o.set_pyglet_visible(False)

o.save('task', par['task'])

small_dialog_width = 300

# ------------------------------------------------------------

# Subroutines

# ------------------------------------------------------------

def d8(d):

return d.year * 10000 + d.month * 100 + d.day

class EmailDialog(wx.Dialog):

(okay(self, True), 0, wx.ALIGN_CENTER_HORIZONTAL)).Fit(self)

def server_send(subject, email, activity_names):

f.close()

divider_bar = Rect(o.win,

fillColor = 'black', lineColor = 'black',

width = 1.5, height = .01)

prompt = o.text(0, .8, 'Which option would you prefer?')

dec_rate = 1 / 0.25

inc_rate = 1 / 0.523852201187

trials = 26

# Note that the catch-trials specifications implicitly rely on

# this.

def econ_test(dkey_prefix, instructions, text_top, text_bottom,

discount_guess = v / (v + 1)

# ------------------------------------------------------------

# Preliminaries

# ------------------------------------------------------------

# Check for a network connection.

if par['use_server'] and not par['debug']:

assert '<title>Example Domain</title>' in urllib2.urlopen('http://example.org').read()

if par['debug_serverside']:

server_send('test1', par['debug_email'], ['Studying', 'Jogging', 'Eating'])

exit()

init_wx()

if par['debug']:

o.data['subject'] = 'test'

else:

o.get_subject_id('Decision-Making')

o.start_clock()

# ------------------------------------------------------------

# Get an email address and commitments

# ------------------------------------------------------------

with o.timestamps('email'):

while True:

dlg = EmailDialog("After you leave the lab, we'll communicate with you by email for the rest of the study.\n\nEnter your email address twice.")

dlg.CenterOnScreen(wx.BOTH)

dlg.ShowModal()

dlg.Destroy()

s = dlg.input1.GetValue().strip()

if s != dlg.input2.GetValue().strip():

message("The addresses you entered don't match.")

elif ' ' in s:

message("Spaces aren't allowed in email addresses.")

elif '@' not in s:

message('Your email address is missing an "@".')

else:

o.save('email', s)

break

with o.timestamps('activities'):

activities = commitments.get_activities()

server_send(o.data['subject'], o.data['email'], activities)

with o.timestamps('commitments'):

o.save('commitments', commitments.get_commitments(activities))

# ------------------------------------------------------------

# Administer econometric tests

# ------------------------------------------------------------

o.set_pyglet_visible(True)

econ_test('patience',

'In this task, you will make a series of hypothetical choices.\n\n'

'Each trial will present you with a hypothetical choice between two amounts of money delivered to you at a given time in the future. Press the up arrow key if you would prefer the upper option and the down arrow key if you would prefer the lower option.\n\n'

'Even though these are completely hypothetical decisions, try your best to imagine what you would choose if you were really offered these choices.',

text_top = lambda llr, ssr: '{} today'.format(ssr),

text_bottom = lambda llr, ssr: '{} in one month'.format(llr),

initial_discount_guess = .5,

catch_big = (5, 14, 23),

catch_small = (2, 6, 9))

econ_test('shifted_patience',

'The next task is like the previous one, except the top option is delayed by one month and the bottom option is delayed by two months.',

text_top = lambda llr, ssr: '{} in one month'.format(ssr),

text_bottom = lambda llr, ssr: '{} in two months'.format(llr),

initial_discount_guess = .5,

catch_big = (3, 6, 8),

catch_small = (1, 16, 22))

econ_test('risk_aversion',

'In this task, you will choose between a gamble and a sure gain.\n\n'

'The gamble has a a 95% chance of giving you money and a 5% chance of yielding nothing. The other option has a 100% chance of yielding the indicated amount.',

text_top = lambda risky, sure: '{} (100% chance)'.format(sure),

text_bottom = lambda risky, sure: '{} (95% chance) or\nnothing (5% chance)'.format(risky),

initial_discount_guess = .95,

catch_big = (10, 14, 25),

catch_small = (5, 17, 20))

econ_test('loss_aversion',

'In this task, you will choose whether or not to take a gamble.\n\n'

'The gamble is equally likely to make you gain or lose money, but the amount to be gained and the amount to be lost may differ.',

text_top = lambda gain, loss: 'Nothing (100% chance)',

text_bottom = lambda gain, loss: 'Gain {} (50% chance) or\nlose {} (50% chance)'.format(gain, loss),

initial_discount_guess = .5,

catch_big = (1, 2, 8),

catch_small = (0, 16, 23))

# ------------------------------------------------------------

# Administer questionnaires

# ------------------------------------------------------------

o.questionnaire_screen('bfi',

# John, O. P., Naumann, L. P., & Soto, C. J. (2008). Paradigm shift to the integrative Big Five trait taxonomy: History, measurement, and conceptual issues. In O. P. John, R. W. Robins, & L. A. Pervin (Eds.), Handbook of personality: Theory and research (3rd ed., pp. 114–158). New York, NY: Guilford Press. ISBN 978-1-59385-836-0

u'How much would you agree that you are someone who…?',

scale_levels = ('Disagree\nstrongly', 'Disagree\na little', 'Neither agree\nnor disagree', 'Agree\na little', 'Agree\nstrongly'),

questions = [

'Is talkative',

'Tends to find fault with others',

'Does a thorough job',

'Is depressed, blue',

'Is original, comes up with new ideas',

'Is reserved',

'Is helpful and unselfish with others',

'Can be somewhat careless',

'Is relaxed, handles stress well',

'Is curious about many different things',

'Is full of energy',

'Starts quarrels with others',

'Is a reliable worker',

'Can be tense',

'Is ingenious, a deep thinker',

'Generates a lot of enthusiasm',

'Has a forgiving nature',

'Tends to be disorganized',

'Worries a lot',

'Has an active imagination',

'Tends to be quiet',

'Is generally trusting',

'Tends to be lazy',

'Is emotionally stable, not easily upset',

'Is inventive',

'Has an assertive personality',

'Can be cold and aloof',

'Perseveres until the task is finished',

'Can be moody',

'Values artistic, aesthetic experiences',

'Is sometimes shy, inhibited',

'Is considerate and kind to almost everyone',

'Does things efficiently',

'Remains calm in tense situations',

'Prefers work that is routine',

'Is outgoing, sociable',

'Is sometimes rude to others',

'Makes plans and follows through with them',

'Gets nervous easily',

'Likes to reflect, play with ideas',

'Has few artistic interests',

'Likes to cooperate with others',

'Is easily distracted',

'Is sophisticated in art, music, or literature'])

o.questionnaire_screen('cfc',

# Strathman, A., Gleicher, F., Boninger, D. S., & Edwards, C. S. (1994). The consideration of future consequences: Weighing immediate and distant outcomes of behavior. Journal of Personality and Social Psychology, 66(4), 742–752. doi:10.1037/0022-3514.66.4.742

'How characteristic of you are each of these statements?',

scale_levels = ('Extremely\nuncharacteristic', 'Somewhat\nuncharacteristic', 'Uncertain', 'Somewhat\ncharacteristic', 'Extremely\ncharacteristic'),

questions = [

'I consider how things might be in the future, and try to influence those things with my day to day behavior.',

'Often I engage in a particular behavior in order to achieve outcomes that may not result for many years.',

'I only act to satisfy immediate concerns, figuring the future will take care of itself.',

'My behavior is only influenced by the immediate (i.e., a matter of days or weeks) outcomes of my actions.',

'My convenience is a big factor in the decisions I make or the actions I take.',

'I am willing to sacrifice my immediate happiness or well-being in order to achieve future outcomes.',

'I think it is important to take warnings about negative outcomes seriously even if the negative outcome will not occur for many years.',

'I think it is more important to perform a behavior with important distant consequences than a behavior with less-important immediate consequences.',

'I generally ignore warnings about possible future problems because I think the problems will be resolved before they reach crisis level.',

'I think that sacrificing now is usually unnecessary since future outcomes can be dealt with at a later time.',

'I only act to satisfy immediate concerns, figuring that I will take care of future problems that may occur at a later date.',

'Since my day to day work has specific outcomes, it is more important to me than behavior that has distant outcomes.'])

# ------------------------------------------------------------

# Done!

# ------------------------------------------------------------

o.done(par['py_output_path_fmt'].format(**o.data))

o.wait_screen(1,

o.text(0, 0, 'Done!\n\nPlease let the experimenter know you are done.'))