2011-0615-9902拍賣制度與行為實驗-eBay.BIN2-每輪15回合

POWEBE 實驗程式碼:

# =====================================================================
# eBay.BIN2-5回合.有時間(試玩版)
# 2011.04.09
# 修改圖片連結為 https://beecl.files.wordpress.com/2011/04/ebay-
# 統一名詞: simStep 是「期」; 每輪 (round) 有 NOTR 期 (此例 NOTR=5)
# Note by yinung: 系統左上方「回合」要修改與 TimeFormat 定義一致
# 2011.06.09: 改成 Sniping=1 則顯示 BestOffer_fake 和 BidHistory_fake 取代真正的值
# =====================================================================

#M TimetoStart = "2009-12-22 15:37:00"
## M TimeSpan =10
# ----- 回合時間設定: 前 2回合較長, 因為 seller 要設定選擇
## V Next Timespan = if(OR(mod(simstep,15)=14, mod(simstep,15)=0), 25,15)
M StartTime = 0
M EndTime = 120
M InitialSteps=0
M TimeFormat = "回合#0"
M NumberFormat = "#,##0.##"
V myStep=SimStep

# --------- model setting -----------
# --- NOTR = number of total round, 每一 session 所含的回合總數
V NOTR=15
V NR=2
V TimeLeft=NOTR-mod(SimStep,NOTR)

# min increment: 0.25*4
V base = 0.5
# UpperInc 以 Base 的倍數計算 (現在改為增加 0.5*base
V UpperInc = 1
V minCr0 = if(base+0.5*base*round(randbetween(0,UpperInc)) V minCr1 = if(base+0.5*base*round(randbetween(0,UpperInc)) V minCr2 = if(base+0.5*base*round(randbetween(0,UpperInc))1 & v0>=previous(price3)+minCR0 & previous(winner0)=0, previous(price3)+minCR0,NA)
V bid1=if(mod(simStep,15)>1 & v1>=previous(price3)+minCR1 & previous(winner1)=0, previous(price3)+minCR1,NA)
V bid2=if(mod(simStep,15)>1 & v2>=previous(price3)+minCR2 & previous(winner2)=0, previous(price3)+minCR2,NA)

# ---- Buy-It-Now robot behavior-------------
# 任一 robot 的private value: v_x>= BIN, 則直接購買
# 在 strategic behavior, 有 delay 決定 的現象, 由機率 bin_pr 決定: bin0_pr=(v>BIN)*(v-BIN)*策略因子
# 策略因子: 1. 正常情況下
#V BIN0_pr = if(v0>=BIN_selected,1,0)*(v0-BIN_selected)/v0
#V BIN1_pr = if(v1>=BIN_selected,1,0)*(v1-BIN_selected)/v1
#V BIN2_pr = if(v2>=BIN_selected,1,0)*(v2-BIN_selected)/v2
# ---- 誰得標 random 決定
# BIN_winner
# -----如果 X 是 NA ( v 太小不能投標 or previous(WinnerX)=1 得標者) 的話 f_bidX = -999
V f_bid0=if(OR(bid0=na,bid0=none),-999,bid0)
V f_bid1=if(OR(bid1=na,bid1=none),-999,bid1)
V f_bid2=if(OR(bid2=na,bid2=none),-999,bid2)

# ------- bidHistory ----------------
V bidHistory=if(mod(SIMSTEP,15)=0,0,if(f_bid0=-999 & f_bid1=-999,previous(bidHistory),previous(bidHistory)+1))
p bidHistory.Label="出價次數"

# --- price 1-4 for format 1-4
# --- price 1 = BIN only
#V price1 = if(mod(simStep,15)>1, if(max(bid0,bid1,bid2)>=BIN_selected,BIN_selected,minP),minP)

#V price1 = if(previous(Bestoffer)>=BIN_selected, BIN_selected, previous(Bestoffer))

V price1 = if(price3>=BIN_selected, if(previous(End1)=0 & End1=1, BIN_selected,NA), 0)
V price2 = if(OR(previous(Bestoffer)>=BIN_selected,price3>=BIN_selected), if(previous(End2)=0,BIN_selected,NA), previous(Bestoffer)*BestOfferAccept)
V price2_fake = if(OR(previous(Bestoffer_fake)>=BIN_selected,price3>=BIN_selected), if(previous(End2)=0,BIN_selected,NA), previous(Bestoffer_fake)*BestOfferAccept)

# --- 只有 formatSelected=2 才有 BestOffer 功能 (End2=1 時拍賣結束, BestOffer 設為0 -------------
###V BestOffer=if(Price3=previous(price3),0,if(End2=0,previous(price3),0))
# ---temp---V BestOffer=if(formatSelected=2 & mod(simStep,5)>1, if(OR(End1=1,End2=1),NA, price3),NA)
V BestOffer=if(formatSelected=2 & mod(simStep,15)>1, if(End2=1,NA,max(bid0,bid1,bid2)),NA)

# ======== 特別為 sniping 所做的修改 =============================================================
# --- 找出次高的 private value
V LessThanMaxPV0=if(v0 V LessThanMaxPV1=if(v1 V LessThanMaxPV2=if(v20 則表示自動成交; 或者 BestOffer= SecondMaxPV 時, 也顯示 BestOffer_fake=SecondMaxPV
V BestOffer_fake = if(Sniping = 0, Bestoffer, if(price>0,price,if(BestOffer>= SecondMaxPV,BestOffer,if(mod(simStep,15)=2,BestOffer,NA))))
P BestOffer_fake.label="此次賣方出價"

# --- 在 Sniping = 1 下要顯示的 假出價次數
V bidHistory_fake= if(Sniping = 0, bidHistory,if(BestOffer_fake=NA,previous(bidHistory_fake,0),if(mod(simStep,NOTR)>3,previous(bidHistory_fake)+1,bidHistory)))
p bidHistory_fake.Label="出價次數"
# ======================== Sniping 特別碼 結束處 =================================================

# ---temp--- V BestOffer=if(mod(simStep,15)>1, if(OR(End1=1,End2=1),NA, price3),NA)
#V price3 =if(mod(SimStep,5)=0,minP,max(if(SimStep1,if(max(previous(price3),bid0,bid1,bid2)>=BIN_selected,BIN_selected,max(previous(price3),bid0,bid1,bid2)),minP)

# --- 修改為 適合 sniping 的, 新增 if Sniping=1 then price= price2_fake
V Price =if(formatSelected=1,Price1,if(formatSelected=2,if(Sniping=1,price2_fake,price2),if(formatSelected=3,price3,price4)))
# ---- V Price =if(formatSelected=1,Price1,if(formatSelected=2,price2,if(formatSelected=3,price3,price4)))
V SoldPrice=if(mod(simStep,15)=0,0,if(price>0,price,previous(soldPrice,0)))
P SoldPrice.label="成交價"
P BIN_selected.label="你設定的直接購買 BIN"
P BestOffer.label="此次賣方出價"
P myReward.label="當期獲利"
P acc_Reward.label="累計獲利"

# ------- 2nd price: 3 次以前的價格
V secondP=if(formatSelected>2,if(mod(SIMSTEP,15)previous(price),previous(price),previous(secondP))),price)

#V winner0 =if(mod(SIMSTEP,5)=0,0,if(f_bid0>max(f_bid1,f_bid2) & f_bid0>previous(price),1,if(price=previous(price),previous(winner0),0)))
V winner0=if(mod(SIMSTEP,15)=0,0,if(max(f_bid1,f_bid2) V winner1=if(mod(SIMSTEP,15)=0,0,if(max(f_bid0,f_bid2) V winner2=if(mod(SIMSTEP,15)=0,0,if(max(f_bid0,f_bid1)1 & formatSelected=1,if(price3>=BIN_Selected,1,0),0)
#---temp---V End2=if(mod(simStep,15)>2 & formatSelected=2,if(OR(price3>=BIN_selected,BestOfferAccept=1),1,previous(End2,0)),0)
V End2=if(mod(simStep,15)>2 & formatSelected=2,if(OR(price3>=BIN_selected,BestOfferAccept=1),1,previous(End2,0)),if(mod(simStep,5)=0 & formatSelected=2, BestofferAccept,0))
#V End3=if(mod(simStep,15)>1 & formatSelected=3 & SimStep>2 & price=previous(price) & previous(price)=previous(previous(price)),1,0)
#V End4=if(mod(simStep,15)>1 & formatSelected=4 & OR(price=previous(price) & previous(price)=previous(previous(price)),price>=BIN_selected),1,0)
V End3=0
V End4 = if(mod(simStep,15)>1 & formatSelected=4 & price>=BIN_selected,1,0)

# ----- Seller 相關環境變數 -----
V Listfee = 0
V Comissionfee=0
V myCost=0
# ---------- formatSelected (>2) = 3, 4 時是 2nd-High bid
# V myReward =if(OR(formatSelected=3,formatselected = 4 & price V myReward =if(OR(formatSelected=3,formatselected = 4 & price V acc_Reward=ACCUM(myReward,0)
# =============================== Seller 決策 ==============================
# D format =if(mod(simStep,NOTR)=0,{1,2,3,4},NA)
# P format.desc = {"BIN 固定價格", "BIN + Best-Offer","一般拍賣","一般拍賣 + BIN"}
D format =if(mod(simStep,15)=0,{1,2},NA)
P format.desc = {"立即購買價 (固定價格)", "立即購買價+可議價功能"}
V formatSelected = if(mod(simStep,15)=1, format, previous(formatSelected,0))

# --- if format =1 : BIN 固定價格
D BIN =if(mod(simStep,15)=1 & OR(formatSelected=1,formatSelected=2,formatSelected=4),(0,10),NA)
##### D BIN=6.166
P BIN.label="BIN 直接購買價"

# -----------This BIN_selected is for 有時間控制的實驗 -----------------
###V BIN_selected=if(mod(simStep,15)=2, if(BIN<>NA,BIN,0.01), if(OR(mod(simStep,15)>2,mod(simStep,15)=0),previous(BIN_selected,0),NA))
# -----------This BIN_selected is for 無時間控制的實驗 -----------------
V BIN_selected=if(mod(simStep,15)=2, BIN, if(OR(mod(simStep,15)>2,mod(simStep,15)=0),previous(BIN_selected,0),NA))

# --- if format =2 : BIN 固定價格+Best offer
# ---temp---D BestOfferAccept=if(mod(simStep,15)>1 & formatSelected=2 & BestOffer<>0,{0,1},NA)
D BestOfferAccept=if(mod(simStep,15)>1 & formatSelected=2 & End2=0,{0,1},NA)
P BestOfferAccept.desc = {"拒絕","接受"}
P BestOfferAccept.label="接受此出價嗎?"
# D secret price =if(simStep=1,(0,50),NA)

#T Table 1 =if(formatselected=1, {"price","BIN_selected"},if(formatselected=2,{"Price","BIN_selected","BestOffer","BestOfferAccept","bidHistory","myReward"},if(formatSelected=3,{"price","secondP","bidHistory"},{"price","secondP","BIN_selected","bidHistory"})))
T Table 1 =if(formatSelected =1, {"soldPrice","BIN_selected","BestOffer","myReward","acc_Reward"},if(Sniping=1,{"soldPrice","BIN_selected","BestOffer_fake","BestOfferAccept","bidHistory_fake","myReward","acc_Reward"},{"soldPrice","BIN_selected","BestOffer","BestOfferAccept","bidHistory","myReward","acc_Reward"}))
##T Table 1 =if(formatSelected =1, {"soldPrice","BIN_selected","BestOffer","myReward","acc_Reward"},{"soldPrice","Price","BIN_selected","BestOffer","BestOffer_fake","BestOfferAccept","bidHistory","bidHistory_fake","myReward","acc_Reward"})
#T Table 1 =if(formatSelected =1, {"soldPrice","BIN_selected","BestOffer","myReward","acc_Reward"},{"soldPrice","Price","BIN_selected","BestOffer","BestOffer_fake","BestOfferAccept","bidHistory","myReward","acc_Reward"})
T Table 1.color = {"#CCCCCC", "#FFFFFF"}
T Table 1.Label = "Table 1. 拍賣紀錄"

# ---- 管理者使用----------------
# T Table 2 = {"SecondMaxPV","BIN_Selected","BestOffer","BestOffer_fake","price","price1","price2","price3","price4","bid0","bid1","bid2","minCr0","minCr1","minCr2","v0","v1","v2","winner0","winner1","winner2","secondP","End2","End1","BIN","f_bid0","f_bid1","f_bid2"}
#T Table 2.color = {"gray", "#EEEEEE"}
#T Table 2.Label = "Table 2. 程式設計管理者監看"

#T Table 1 = {"price","v0","v1","v2","v3","bid","bid1"}
#T Table 1.color = IF ( mod(simstep,2)=0 , {"gray", "#FFFFFF"} , {"yellow", "#FFFFCC"})

M TextInformation =if(OR(End1=1,End2=1),"eBay.End.htm",if(formatselected=1, "eBay.format1.htm",if(formatselected=2,if(Sniping=1,"eBay.fmt22.htm","eBay.format2.htm"),if(formatselected=3,"eBay.format3.htm","eBay.format4.htm"))))
#M TextInformation.Label = if (simstep=0 , "問卷" , "額外訊息(Information)")
M TextInformation.Label = "拍賣主頁"
#P Table.Label =" 拍賣紀錄"

# --- 改成依 NR*NOTR
M TERMINATE = if(simStep>NR*NOTR-1,1,0)
#M TERMINATE = if(simStep>89,1,0)
#M TERMINATE = if(mod(SimStep,5)>2 & price=previous(price) & previous(price)=previous(previous(price)),1,0)

How to Play:


<table style="text-align: left; width: 100%;" border="0" cellpadding="2" cellspacing="2">
<tbody>
<tr>
<td colspan="2" rowspan="1" style="width: 30%;"><img src="https://beecl.files.wordpress.com/2011/04/ebay-logo.png" alt="logo" style="width: 208px; height: 64px;"><br><img style="width: 718px; height: 60px;" alt="logo2" src="https://beecl.files.wordpress.com/2011/04/ebay-logo2.png"><br>
<span style="color: rgb(153, 153, 153);"></span></td>
</tr>
<tr>
<td style="width: 25%;"><img style="width: 212px; height: 167px;" alt="iDop" src="https://beecl.files.wordpress.com/2011/04/ebay-1.png"></td>
<td style="vertical-align: top; width: 75%;"><big><big>ABBLE iDop TOUCH WIFI Video New!</big></big><br>
<span style="color: rgb(153, 153, 153);">Item condition</span>: New<br>
<span style="color: rgb(153, 153, 153);">Bid history</span>:0 (無) <br>
<br>
<table style="text-align: left; width: 100%;" border="0" cellpadding="2" cellspacing="2">
<tbody>
<tr>
<td style="background-color: rgb(204, 204, 204);"><br>
您將要模擬在 eBay 網站的拍賣, 您將擔任「<font color=blue size=+2>賣家</font>」的角色, 賣家可選擇的刊登形式如下:<br>
1. <font size=+2 color=blue>直接購買價</font>:  (又稱一口價) 以固定價格刊登物品,買家可立即購買。<br>
2. <font size=+2 color=blue>直接購買價+議價功能</font> (Best Offer): 以固定價格刊登物品,買家可立即購買;另外, 「議價」功能可以讓賣家接受買家講價,並決定是否接受買家提出的價錢。<br>

注意<font color=blue>直接購買價</font>的範圍需設定<font color=red size=+2>介於 (0,10)</font> 之間。

如果您登刊拍賣的品項順利「成交」賣出, 您的報酬 (reward) 將等於 「成交價格-你的成本」<br>
<br>
</td>
</tr>
</tbody>
</table>
<br>
<span style="color: rgb(153, 153, 153);">Shipping</span>:
<span style="font-weight: bold;">FREE shipping</span><br>
<span style="color: rgb(153, 153, 153);">Returns</span>:
<span style="font-weight: bold;">30 day</span>
money back, buyer pays return shipping!</td>
</tr>
</tbody>
</table>
<br>
<table style="text-align: left; width: 100%;" border="0"
cellpadding="2" cellspacing="2">
<tbody>
<tr>
<td style="width: 30%;"><big><big>Bid History</big></big></td>
<td style="width: 30%;"></td>
<td style="width: 30%;"></td>
</tr>
<tr>
<td></td>
<td></td>
<td></td>
</tr>
</tbody>
</table>

遊戲統計


<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html lang="zh-tw"><head><meta content="text/html; charset=UTF-8" http-equiv="content-type"><title>eBay.8</title></head><body style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255);" alink="#000099" link="#000099" vlink="#990099"><table style="text-align: left; width: 100%;" border="0" cellpadding="2" cellspacing="2"><tbody><tr><td colspan="2" rowspan="1" style="width: 30%;"><img src="https://beecl.files.wordpress.com/2011/04/ebay-logo.png" alt="logo" style="width: 208px; height: 64px;"><img style="width: 408px; height: 70px;" alt="logo2" src="https://beecl.files.wordpress.com/2011/04/ebay-logo2.png"><br><span style="color: rgb(153, 153, 153);"></span></td></tr><tr><td style="width: 25%;"><img style="width: 212px; height: 167px;" alt="iDop" src="https://beecl.files.wordpress.com/2011/04/ebay-1.png"></td><td style="vertical-align: top; width: 75%;"><big><big>ABBLE iDop TOUCH WIFI Video New!</big></big><br><span style="color: rgb(153, 153, 153);">Item condition</span>: New<br><span style="color: rgb(153, 153, 153);">Bid history</span>: [[bidhistory]]<br><br><table style="text-align: left; width: 100%;" border="0" cellpadding="2" cellspacing="2"><tbody><tr><td style="background-color: rgb(204, 204, 204);"><br><font color=blue size=+2>此次拍賣實驗遊戲已經結束, 謝謝您的參與 !</font><BR>現在是第<font color=red  size=+2>  [[myStep]] </font>回合<BR><br>Your Total Profit (你的累計獲利): [[acc_Reward]]<br></td></tr></tbody></table><br><span style="color: rgb(153, 153, 153);">Shipping</span>: <span style="font-weight: bold;">FREE shipping</span><br><span style="color: rgb(153, 153, 153);">Returns</span>: <span style="font-weight: bold;">30 day</span> money back, buyer pays return shipping!</td></tr></tbody></table><br><table style="text-align: left; width: 100%;" border="0" cellpadding="2" cellspacing="2"><tbody><tr><td style="width: 30%;"><big><big>Bid History</big></big></td><td style="width: 30%;"></td><td style="width: 30%;"></td></tr><tr><td></td><td></td><td></td></tr></tbody></table><br></body></html>

  1. Leave a comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: