スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

目的

弁理士法 第1条

この法律は、弁理士の制度を定め、その業務の適性を図ることにより、工業所有権の適正な保護及び利用の促進等に寄与し、もって経済及び産業の発展に資することを目的とする。

定義

著作権法 第2条

この法律において、次の各号に掲げる用語の意義は、当該各号に定めるところによる。
一 著作物 思想又は感情を創作的に表現したものであつて、文芸、学術、美術又は音楽の範囲に属するものをいう。
二 著作者 著作物を創作する者をいう。
三 実演 著作物を、演劇的に演じ、舞い、演奏し、歌い、口演し、朗詠し、又はその他の方法により演ずること(これらに類する行為で、著作物を演じないが芸能的な性質を有するものを含む。)をいう。
四 実演家 俳優、舞踊家、演奏家、歌手その他実演を行う者及び実演を指揮し、又は演出する者をいう。
五 レコード 蓄音機用音盤、録音テープその他の物に音を固定したもの(音を専ら影像とともに再生することを目的とするものを除く。)をいう。
六 レコード製作者 レコードに固定されている音を最初に固定した者をいう。
七 商業用レコード 市販の目的をもつて製作されるレコードの複製物をいう。

(書きかけの項目)

バブルス

$$

library(maptools)
library(shapefiles)
library(TeachingDemos)
datashp <- readShapePoly("kenkyo",proj4string=CRS("+proj=longlat"))
tohoku <- c("北海道","青森県","岩手県","宮城県","秋田県","山形県","福島県")
datashp7 <- subset(datashp,is.element(datashp$SP_ID,tohoku)) #北海道・東北の抽出
coords <- coordinates(datashp7)
childdata <- read.table("childdata.dat",header=T,skip=1)
childdata <- childdata[,c(2,3)]
pdf("map14Jul2013.pdf",height=5.5,width=6,pointsize=14)
par(family="Japan1GothicBBB")
plot(datashp7,col=prefcol,lwd=0.8)
for(i in c(1:length(coords))){
subplot(barplot(as.numeric(childdata[i,]),yaxt="n",col=c("grey","black")),
x=coords[i,1],y=coords[i,2],vadj=0, size=c(0.2,0.25))
}
legend(136,45.5,c("3歳児","12歳児"),cex=1.0,fill=c("grey","black"),bty="n")
dev.off()


map14Jul2013_01-2.png


上記の地図は、公開データ「国土交通省 国土数値情報ダウンロードサービス 行政区域(面)H25年」を利用し作成した。

ナガゴマフカミキリ

自宅前にて、地面に変わった昆虫がいることに気付く。何だろうと拾い上げてみると、ナガゴマフカミキリだった。
夏ですね!

ナガゴマフカミキリ-1

ナガゴマフカミキリ-2

先日はクワカミキリがいた。

簡単な色分け地図

$$

data <- read.table("original.dat",header=F)
sd0 <- sd(data[,2])
m0 <- mean(data[,2])

result <- ((data[,2]-m0)/4/sd0 + 0.3)*1.1
result[result[]<0] <- 0
result[result[]>1] <- 1
mycol <- rainbow(100)
prefcol <- mycol[result*100]
result2 <- t(col2rgb(prefcol))
write.table(result2,"result.dat",row.names=F,col.names=F,quote=F,sep="/")

cpt <- mycol[c(1,25,50,75,100)]
result2 <- t(col2rgb(cpt))
write.table(result2,"cpt.cpt",row.names=F,col.names=F,quote=F,sep="/")



#!/bin/bash
chars=( 0/255/240 255/15/0 0/255/117 0/255/148 255/77/0 255/46/0 66/255/0 255/229/0\
189/255/0 112/255/0 51/255/0 0/255/224 255/0/15 0/255/179 0/25/255 255/46/0\
255/15/0 204/255/0 0/255/56 0/255/133 255/153/0 5/255/0 255/138/0 255/46/0\
66/255/0 0/10/255 97/255/0 219/255/0 0/255/10 255/184/0 255/31/0 0/71/255\
0/163/255 204/255/0 255/0/122 82/255/0 204/255/0 255/245/0 255/0/122 0/255/25\
0/133/255 66/255/0 255/214/0 255/229/0 0/255/41 255/184/0 )
export k=1
psxy pref/pref$k.dat -Jm0.25 -R127/150/29/46 -M -V -W1 -Bg5a5 -G200/200/0 -P -K > data-test.ps

for test in "${chars[@]}"; do
psxy pref/pref$k.dat -Jm -R127/154/29/46 -M -V -W1 -G$test -P -O -K >> data-test.ps

echo $k
k=$(($k + 1))
done

psxy pref/pref$k.dat -Jm -R127/154/29/46 -M -V -W1 -G200/200/0 -P -O -K >> data-test.ps
psscale -D4.8/1.7/3/0.2 -Cdentists_stat/cpt.cpt -O >> data-test.ps

convert -density 300 data-test.ps data-test.png

exit


data-test2-mini.png


上記の地図は、公開データ「国土交通省 国土数値情報ダウンロードサービス 行政区域(面)H25年」を利用し作成した。

Angelo Cactus

この記事を閲覧するにはパスワードが必要です
パスワード入力

目的

商標法 第1条

この法律は、商標を保護することにより、商標の使用をする者の業務上の信用の維持を図り、もつて産業の発達に寄与し、あわせて需要者の利益を保護することを目的とする。

被リンク

この記事を閲覧するにはパスワードが必要です
パスワード入力
Profile

zoa

Author:zoa
Metropolis (1927)

Calendar
06 | 2013/07 | 08
- 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31 - - -
Labels
Admin
Previous Posts
Recent Comments
Recent Trackback
Archive
このページのトップへ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。