作者summerslam (BB)
看板Statistics
标题[程式] SAS IF THEN问题
时间Tue Mar 6 23:15:05 2012
[软体程式类别]:
SAS
[程式问题]:
IF THEN的逻辑问题
[软体熟悉度]:
低(1~3个月)
[问题叙述]:
各位前辈好，在处理资料时遇到一些需要判断的条件，希望能帮忙指点一下。
DATA
date ACC prod price bs vol NETVOL ACQ
20010101 12 A 100 b 5 5 5
20010107 12 A 101 b 1 1 6
20010107 12 A 100 s 4 -4 2
20010108 12 A 102 b 1 1 3
20010107 12 B 70 b 2 2 2
20010107 12 B 72 s 1 -1 1
20010107 12 B 71 s 1 -1 0
20030205 37 A 105 b 5 5 5
20030206 37 A 100 b 1 1 6
20030704 37 A 103 s 3 -3 2
想计算成本，但有几个条件:
1.bs=b时，cost=(price*vol + LAG(cost)*LAG(ACQ))/(LAG(ACQ)+voL)
成本=(价格*数量 + 前一笔成本*前一笔acq)/(前一笔acq+数量)
2.bs=s时，cost=lag(cost)。成本直接等於上一笔成本
3.当acc或prod改变时，成本就重新计算(也就是acc或prod改变後的第一笔资料，
cost其实可以直接令为price，因为没有上一期的成本)。
想要的结果为:
DATA
date ACC prod price bs vol NETVOL ACQ COST
20010101 12 A 100 b 5 5 5 100
20010107 12 A 101 b 1 1 6 100.167
20010107 12 A 100 s 4 -4 2 100.167<--bs=s所以为上期
20010108 12 A 102 b 1 1 3 100.778
20010107 12 B 70 b 2 2 2 70 <--prod变B所以重新
20010107 12 B 72 s 1 -1 1 70
20010107 12 B 71 s 1 -1 0 70
20030205 37 A 105 b 5 5 5 105<----ACC变了所以重新
20030206 37 A 100 b 1 1 6 104.167
20030704 37 A 103 s 3 -3 2 104.167
[程式范例]:
data a;
set a;
retain cost 0;
if bs='b' then cost=(price*vol+LAG(cost)*LAG(acq))/(LAG(ACQ)+vol);
else if bs='s' then cost=lag(cost);
else if acc^=lag(acc) or prod^=lag(prod) then cost =price;
RUN;
写法上都是用直观的想法，跑出来结果完全不对，麻烦高手纠正一下，谢谢!
-----------------------------------------------------------------------------
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.37.35.219
※ 编辑: summerslam 来自: 114.37.35.219 (03/06 23:15)
※ 编辑: summerslam 来自: 114.37.35.219 (03/06 23:16)
1F：推 tew:做处分效果? 03/07 00:11
2F：→ summerslam:恩 03/07 00:40
3F：推 west1996:第三个判断式应该移到第一个判断式的前面逻辑才对 03/07 01:05
4F：→ kurtasd:如果一开始是s哩?这样cost要怎麽生出来@@ 03/07 02:23
5F：→ summerslam:应该不会有一开始是s，因为已经筛选过了! 03/07 13:30
6F：推 tew:再跟我连络一下 我有发表处分效果的文章 03/07 17:52
7F：→ tew:跟我说说你是用哪一类型的资料 交易档或者是基金 03/07 17:52