楼主: bobguy
1828 1

[程序分享] reset values in a lower triangular matrix [推广有奖]

学科带头人

7%

还不是VIP/贵宾

-

威望
0
论坛币
14187 个
通用积分
28.9279
学术水平
344 点
热心指数
363 点
信用等级
228 点
经验
104882 点
帖子
1846
精华
0
在线时间
1608 小时
注册时间
2008-7-18
最后登录
2019-3-8

中级热心勋章

楼主
bobguy 发表于 2012-11-4 23:27:16 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
Example to reset values in a a lower triangular matrix. run it see the time different.

proc iml;
%let n=600;
r=j(&n,&n,1);
start idx(X);
   n=nrow(x);
   i=shape(1:n*n,n,n);
   return( loc(i`<i) );
finish;

time=time();
r[idx(r)]=100;
time2=time()-time;
print time2;
if r<=6 then print r;

time=time();
p = ncol(R);
do i=1 to p-1;
    idx = idx||(((i+1):p)-1)*p + i;
end;

r[idx]=100;
time2=time()-time;
print time2;
if r<=6 then print r;

quit;


二维码

扫码加我 拉你入群

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

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

关键词:values matrix RESET lower value matrix triangle

沙发
瀚海星云 发表于 2012-11-11 20:37:26
too difficult

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2025-12-22 16:47