// 创建一个长度为10的数组
int[] is = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 }
// 打印
print(is)
// 设定从命令行读入数据
Scanner scanner = new Scanner(System.in)
// 一直等待输入直到主动中职
while (scanner.hasNext()) {
int input = scanner.nextInt()
is = remove(is, input)
print(is)
}
}
/**
* 从数组中找出这个数并干掉，然后返回新的数组
*
* @param is
* @param input
*/
private static int[] remove(int[] is, int input) {
// 因为返回数组长度未知，所以使用动态数组
ArrayList<Integer>list = new ArrayList<Integer>()
for (int index = 0index <is.lengthindex++) {
if (is[index] != input)
list.add(is[index])
}
// 复制到并返回
int[] is_return = new int[list.size()]
for (int index = 0index <list.size()index++) {
is_return[index] = list.get(index).intValue()
}
return is_return
}
/**
* 为便于调试，打印每次变动后的数组
*
* @param is
*/
private static void print(int[] is) {
System.out.println("print array")
for (int i : is) {
System.out.print(i + " ")
}
System.out.println("\r\nprint array end")
}
0无帮助
词云图做法如下：1.第一种方法：借助在线工具，也就是在网页上就能完成词云图的制作和输出。目前支持在线制作词云图的网站有：WordArt、Wordiout、微词云、易词云、美寄词云等；
2.第二种方法：直接使用有词云图制作功能的软件，比如：FineBI、Tableau、SmartBI、BDP等，词云图只是这些软件的一个小功能；
3.第三种方法：通过编程来实现词云图，常用的编程语言有Python和R。对于有编程技术基础的朋友，可以自行用Python等制作词云图，对于没有编程基础的朋友采取前两种方法，这两种方法操作起来比较容易。
#####以10个数据和30个数据为例说明。####my.qqplot <- function(y){
op <- par(mfrow = c(1, 1))
N <- length(y)
n <- seq(1, N)
xais <- qnorm((n - (.5*N) /N)/ N)
#####中间三句可选，只是为了输出计算过程######
mid <- cbind(sort(y), n, n/N, (n-(.5*N)/N)/N , xais)
colnames(mid) <- c("y", "rank", "cumpercent", "adj-cumper","xaix")
print(mid)
#####中间三句可选，只是为了输出计算过程######
par(mfrow = c(2,1))
qqnorm(y)
plot(sort(y) ~ xais, main = 'my qqplot')
par(op)
}
y <- rnorm(10, mean = 20, s = 50)
my.qqplot(y)
y rank cumpercentadj-cumper xaix
[1,] 2.877321 1 0.1 0.05 -1.6448536
[2,] 6.930063 2 0.2 0.15 -1.0364334
[3,] 16.461444 3 0.3 0.25 -0.6744898
[4,] 36.130825 4 0.4 0.35 -0.3853205
[5,] 40.477883 5 0.5 0.45 -0.1256613
[6,] 50.534636 6 0.6 0.55 0.1256613
[7,] 53.425025 7 0.7 0.65 0.3853205
[8,] 54.554269 8 0.8 0.75 0.6744898
[9,]120.496268 9 0.9 0.85 1.0364334
[10,] 125.290253 10 1.0 0.95 1.6448536
