数组的定义 - 经管之家

shuiqq19840621

11322

收藏 2009-09-19

比如说要把下面一组观测值用数组表示出来，该用哪个命令啊？
数组如下：
1 2 2 3 3 46436 452352 52345
这个八个数，如何把他们表示成c1，c2，一直到c8，就是把这八个弄成一个数组.
还有就是如果数据比较多，表示成一个数据集后如何调用出来并表示成数组.
比如说数据集表示在如下：
data bonds040927(label='2004年9月27日上交所22只付息国债收盘价');
input bdname $8. matdt:yymmdd10. freq coupond Cldirpr dur term@;
format matdt yymmdd10.;
label
bdname='债券名称'
matdt='到期日'
freq='年付息频率'
coupond='票面利息'
Cldirpr='市场价格'
dur='久期'
term='年限';
cards;
96国债6  2006-6-14 1 11.83 114.85  1.90262 10
97国债4  2007-9-5 1 9.78 116.6 2.76666 10
99国债5  2007-8-20 1 3.28 98.48 2.9076  8
99国债8  2009-9-23 1 3.3    94.62 4.70122 10
21国债3  2008-4-24 1 3.27 96.66 3.81898 7
21国债7  2021-7-31 2 4.26 92.09 12.9768 20
21国债10 2011-9-25 1 2.95 89.13 6.44658 10
21国债12 2011-10-30  1 3.05 89.67 7.25293 10
21国债15 2008-12-18  1 3    94.16 4.72472 7
02国债3  2012-4-18 1 2.54 86    7.3555  10
02国债10 2009-8-16 1 2.39 90.71 4.77451 7
02国债13 2017-9-20 2 2.6    77.36 11.1914 15
02国债14 2007-10-24  1 2.65 95.96 3.84993 5
02国债15 2009-12-6 1 2.93 92.5 5.60126 7
03国债11 2010-2-19 1 2.66 90.65 5.63273 7
03国债3  2023-4-17 2 3.4    80.64 14.6887 20
03国债7  2010-8-20 1 2.66 89.69 5.63273 7
03国债8  2013-9-17 1 3.02 87.26 8.06064 10
03国债11 2010-11-19  1 3.5    93.7 6.36469 7
04国债3  2009-4-19 1 4.4164  99.92 4.61904 5
04国债4  2011-5-25 1 4.89 101.04  6.17962 7
04国债7  2011-8-25 1 4.71 99.97 6.20199 7
要把其中的市场价格定为一个数组，该怎么引用啊？

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

xiaosanmao

2009-9-19 13:54:59

proc sql;
select cldirpr into: index from bonds040927;
quit;

然后用 &index 就可以调用 cldirpr 了

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

nkwilling

2009-9-20 09:49:56

在SAS里面，数组是用来表示变量的，不是用来表示变量的值。你的提法本身就有点问题，当然，通过转置可以表示数组，但鲜有这样做的，主要原因是可能需要面对massive级别的数据。还有，在SAS里面，数组一般是和DO循环语句连用的，你一定要多看SAS HELP文档，SAS很多基本的问题你都可以其文档里面找到。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

shuiqq19840621

2009-9-20 10:49:40

谢谢指导！ 3# nkwilling

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

shuiqq19840621

2009-9-20 10:51:31

能否说详细一点啊，怎么调用？ 2# xiaosanmao

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

shuiqq19840621

2009-9-20 10:54:17

我现在的问题是要做一个遗传算法，我给出部分程序.
proc ga seed=5555 maxiter = 30;
function y(selected[*]);
array x[6] /nosym;
call ReadMember(selected,1,x);
x1=x[1];
x2=x[2];
x3=x[3];
x4=x[4];
x5=x[5];
x6=x[6];
set float_time;
sum1[j]=0;
do i=1 to 38;
sum1[j]=sum1[j]+c[i]*exp(-t[i]*(x1+(x2+x3)*((1-exp(-t[i]/x5))/(t[i]/x5)-x3*ex(-t[i]/x5)+x4*((1-exp(-t[i]/x6))/(t[i]/x6)-exp(-t[i]/x6)));
end;
sum2=0;
do j=1 to 22;
sum2=sum2+(p[j]-sum1[j])**2*w[j];
end;
result=sum2;
return(result);
endsub;
call SetEncoding('R2');
array LowerBound[6] /nosym (0.086 -0.086 -0.109 0.042 9 2.2);
array UpperBound[6] /nosym (0.094 -0.076 -0.098 0.054 12 4);
call SetBounds(LowerBound, UpperBound);
call SetObjFunc('y',0);
call SetCrossProb(0.65);
call SetCrossHeuristic();
call SetMutProb(0.15);
array delta[2] /nosym (0.2 0.2);
call SetMutDelta(delta, 1);
call SetSelTournament(2);
call SetElite(2);
call Initialize('DEFAULT',120);
run;
quit;
其中的p[j]和w[j]要在其他数据表中按顺序使用，这一部应该怎么做？麻烦再指点一下！

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

点击查看更多内容…

wyxlls725

2009-12-30 13:23:45

SAS数组还真没有研究过，学习一下！

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

cz851218

2010-3-17 20:00:22

认真学习。。。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

jingju11

2010-3-17 21:57:50

shuiqq19840621 发表于 2009-9-20 10:54
我现在的问题是要做一个遗传算法，我给出部分程序.
proc ga seed=5555 maxiter = 30;
function y(selected );
array x[6] /nosym;
call ReadMember(selected,1,x);
x1=x[1];
x2=x[2];
x3=x[3];
x4=x[4];
x5=x[5];
x6=x[6];
set float_time;
sum1[j]=0;
do i=1 to 38;
sum1[j]=sum1[j]+c*exp(-t*(x1+(x2+x3)*((1-exp(-t/x5))/(t/x5)-x3*ex(-t/x5)+x4*((1-exp(-t/x6))/(t/x6)-exp(-t/x6)));
end;
sum2=0;
do j=1 to 22;
sum2=sum2+(p[j]-sum1[j])**2*w[j];
end;
result=sum2;
return(result);
endsub;
call SetEncoding('R2');
array LowerBound[6] /nosym (0.086 -0.086 -0.109 0.042 9 2.2);
array UpperBound[6] /nosym (0.094 -0.076 -0.098 0.054 12 4);
call SetBounds(LowerBound, UpperBound);
call SetObjFunc('y',0);
call SetCrossProb(0.65);
call SetCrossHeuristic();
call SetMutProb(0.15);
array delta[2] /nosym (0.2 0.2);
call SetMutDelta(delta, 1);
call SetSelTournament(2);
call SetElite(2);
call Initialize('DEFAULT',120);
run;
quit;
其中的p[j]和w[j]要在其他数据表中按顺序使用，这一部应该怎么做？麻烦再指点一下！

I have never heard about PROC GA and honestly, I don’t know how this PROC deals with ARRAY. ..

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

bobguy

2010-3-18 08:09:51

jingju11 发表于 2010-3-17 21:57
shuiqq19840621 发表于 2009-9-20 10:54
我现在的问题是要做一个遗传算法，我给出部分程序.
proc ga seed=5555 maxiter = 30;
function y(selected );
array x[6] /nosym;
call ReadMember(selected,1,x);
x1=x[1];
x2=x[2];
x3=x[3];
x4=x[4];
x5=x[5];
x6=x[6];
set float_time;
sum1[j]=0;
do i=1 to 38;
sum1[j]=sum1[j]+c*exp(-t*(x1+(x2+x3)*((1-exp(-t/x5))/(t/x5)-x3*ex(-t/x5)+x4*((1-exp(-t/x6))/(t/x6)-exp(-t/x6)));
end;
sum2=0;
do j=1 to 22;
sum2=sum2+(p[j]-sum1[j])**2*w[j];
end;
result=sum2;
return(result);
endsub;
call SetEncoding('R2');
array LowerBound[6] /nosym (0.086 -0.086 -0.109 0.042 9 2.2);
array UpperBound[6] /nosym (0.094 -0.076 -0.098 0.054 12 4);
call SetBounds(LowerBound, UpperBound);
call SetObjFunc('y',0);
call SetCrossProb(0.65);
call SetCrossHeuristic();
call SetMutProb(0.15);
array delta[2] /nosym (0.2 0.2);
call SetMutDelta(delta, 1);
call SetSelTournament(2);
call SetElite(2);
call Initialize('DEFAULT',120);
run;
quit;
其中的p[j]和w[j]要在其他数据表中按顺序使用，这一部应该怎么做？麻烦再指点一下！

I have never heard about PROC GA and honestly, I don’t know how this PROC deals with ARRAY. ..

Me too. But here is the documentation link,

http://support.sas.com/documentation/cdl/en/orlsoug/59688/HTML/default/ga_sect1.htm

Overview: GA Procedure
Genetic algorithms are a family of local search algorithms that seek optimal solutions to problems by applying the principles of natural selection and evolution. Genetic algorithms can be applied to almost any optimization problem and are especially useful for problems where other calculus-based techniques do not work, such as when the objective function has many local optima, when it is not differentiable or continuous, or when solution elements are constrained to be integers or sequences. In most cases genetic algorithms require more computation than specialized techniques that take advantage of specific problem structures or characteristics. However, for optimization problems with no such techniques available, genetic algorithms provide a robust general method of solution.

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群