原创 IT公司面試 邏輯題目

有五個具有五種不同顏色的房間排成排每個房間裏分別住着個不同國籍的人, 每個人都在喝一種特定品牌的飲料,抽特定品牌的煙,養特定的寵物沒有任意兩個人在抽相同品牌的香菸,或嘴相同品牌的飲料,或養相同的寵物。同時又知 丹麥人住在紅色的房子裏;德國

原创 R語言解決數學題江蘇高考理科數學2018填空壓軸題

  n <- 50 a <- numeric(n) for (i in 1:n) { a[i] <- 2*i-1 } m <- 10 b <- numeric(m) for (j in 1:m) { b[j] <- 2^j

原创 矩陣化爲代數裏面的階梯型和它的標準型

Mtrans_uptriangle <- function(X) { if(is.null(dim(X))|dim(X)[1]==1|dim(X)[2]==1)#不是矩陣時,直接返回本身 { return(as.vecto

原创 矩陣的代數乘法

A_multiply_B <- function(A, B, n = 1){  if(dim(A)[2] == dim(B)[1])#判斷是否可以計算

原创 Fibonacci 數列的R語言實現

#time is slow,用遞歸來寫,直觀,但是時間太慢 Fibonacci <- function(n) { if(n == 1|n == 2) { return(1) } else { retur

原创 歐拉函數的計算

#歐拉函數是小於n的正整數中與n互質的數的數目#判裏兩個數是不是互質is.prime <- function(n,m){  flag <- 1  temp1 <- min(m,n)  if(temp1 ==1)   {    flag <

原创 十進制數轉化爲二進制

Dec_trans_binary <- function(a) { b <- NULL while(a%/%2) { b <- c(b,a%%2) a <- a%/%2 } b <- rev(c(b,1

原创 在word中插入右對齊的公示編號

方法 利用頁眉的空白三欄來對齊 標題  

原创 刪除一個矩陣中相同的列

1 利用as.data.frame函數將矩陣轉化爲dataframe 2 dataframe的列進行遍歷 3all()函數來判斷兩個列比較的邏輯值否相等 4 若是相同,則刪除,當前的下標不變 5若是不同。則j <- j+1 #刪除數據框的

原创 從1—9中取三個數相加和爲偶數的概率

思路 有3個是偶數 +1個偶數且2個奇數 數學表達式 R語言的模擬  使用sample函數 sample(x,n,replacement) x是抽樣樣本,n是你抽取的樣本量,replacement是否重複抽樣,p抽取每個樣本的概率 模擬程

原创 邏輯題目

有五個具有五種不同顏色的房間排成排每個房間裏分別住着個不同國籍的人, 每個人都在喝一種特定品牌的飲料,抽特定品牌的煙,養特定的寵物沒有任意兩個人在抽相同品牌的香菸,或嘴相同品牌的飲料,或養相同的寵物。同時又知 丹麥人住在紅色的房子裏;德國

原创 矩陣的跡

矩陣的跡的主要性質1 矩陣的跡等於矩陣特徵值的和 2 .跡是所有主對角元的和()2.跡是所有特徵值的和3.某些時候也利用tr(AB)=tr(BA)來求跡4.trace(mA+nB)=m trace(A)+n trace(B)#附代碼Mat

原创 R語言中你不得不知道的小而實用的技巧(updating)

爲了不一直debugging,還是使用skills,學會summarise1 創建長度爲你的空列表n <- 2 vector(mode = "list", n)2 字符串分割爲字符library(stringr) strsplit("s

原创 累計函數基本學習

> library(dplyr)> #邏輯值的處理> x1 <- rep(c(TRUE, FALSE), times= 3)> x2 <- rep(c(TRUE, FALSE), each =3)> #用於多個邏輯值的組合判斷> cuma

原创 長data變窄data

注重基礎函數的應用,用了兩個比較常用的package library(plyr) library(rlist) A <- data.frame(a = c(rep("A",3), rep("