r语言中可以实现对含有变量的矩阵进行计算吗

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如题，比如说计算矩阵(a b)%*%t((c d))=ac+bd，abcd都不赋予具体的数值，就是希望计算一个通式，我知道matlab上可以通过定义变量来实现，但是现在需要在r上做，请问大家这种可以实现吗？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 MATLAB matla atlab ABCD

安装rSymPy包

szxship 发表于 2021-12-15 20:13
安装rSymPy包

你好，我这边安装了rsympy包试了好长时间还是实现不了，可以请教你一下具体是怎么实现的吗，其中f_z=(1,z,z^2,z^3,z^4), K=matrix(c(1,-1 ,0 ,0, 0, 0 ,0 ,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1),5,9,byrow=TRUE)，想要计算f_z%*%K%*%t(K)%*%t(f_z)该如何实现呢？谢谢！

不知道，但是可以自己可以写个函数

1. library(stringr)
   
2. 
   
3. # 构建两个符号矩阵乘法运算
   
4. # Symbolic matrix multipl
   
5. 
   
6. sym_mat_mul <- function(a,b){
   
7.   # 输入项矩阵格式判断
   
8.   if(is.matrix(a)==F){
   
9.     cat('参数a不是矩阵格式')
   
10.   } else if(is.matrix(a)==F){
    
11.     cat('参数b不是矩阵格式')
    
12.   } else {
    
13.     a1 <- dim(a)
    
14.     b1 <- dim(b)
    
15.     # 矩阵运算判断
    
16.     if(a1[2]==b1[1]){
    
17.       # 初始化结果矩阵
    
18.       res_matrix <- matrix(1,nrow = a1[1],ncol = b1[2])
    
19.       
    
20.       for (i in 1:a1[1]) {
    
21.         for(j in 1:b1[2]){
    
22.           res_matrix[i,j] <-  str_c(a[i,],b[,j],collapse = '+')
    
23.         }
    
24.       }
    
25.       return(res_matrix)
    
26.     }else{
    
27.       cat('矩阵维度问题导致不能乘法')
    
28.     }
    
29.   }
    
30. }
    
31. 
    
32. a <- matrix(c('a','b'),1,2)
    
33. b <- matrix(c('c','d'),2,1)
    
34. sym_mat_mul(a,b)

复制代码

小朝 发表于 2021-12-19 23:39
不知道，但是可以自己可以写个函数

但是这种是不是只能实现两个符号矩阵相乘，无法解决符号矩阵和数值矩阵相乘？