全8件 (8件中 1-8件目)
1
a4=22
2010.01.30
微分で接線を求めて解き始めました。あとは増減表とグラフを利用することでとりあえず解くことが可能かと思います
2010.01.24
最後の面積を求めるところは相加相乗平均を利用するとよさそうです。
2010.01.17
'*****************************************************'Bullzip PDF Printerを使ったPDF作成'アクティブなワークシートを、C:\text.pdfに保存します。'Bullzip PDF Printerのインストール必須'*****************************************************Sub PrintSheetAsPDF() Dim objPrinterSettings As Object Dim printerName As String Dim savePath As String Set objPrinterSettings = CreateObject("Bullzip.PDFPrinterSettings") printerName = "Bullzip PDF Printer" 'プリンタ名 Dim fullPrinterName As String fullPrinterName = GetFullNetworkPrinterName(printerName) '保存するためのプリンタ設定を行う savePath = "C:\test.pdf" '保存先 With objPrinterSettings .SetValue "output", savePath .SetValue "showsettings", "never" .WriteSettings True End With 'アクティブなプリンタを一時的にBullzipに変更 printerBuf = Application.ActivePrinter ActivePrinter = fullPrinterName 'PDFに変換 ActiveSheet.PrintOut 'アクティブなプリンタを戻す ActivePrinter = printerBuf End Sub'*****************************************************'ネットワークプリンタ名を取得する' @param printerName : プリンタ名' @return [printerName] on Ne99: 形式のプリンタ名 '*****************************************************Function GetFullNetworkPrinterName(printerName As String) As String Dim currentPrinterName As String Dim temp_printer_name As String Dim i As Long currentPrinterName = Application.ActivePrinter i = 0 Do While i < 100 tempPrinterName = printerName & " on Ne" & Format(i, "00") & ":" On Error Resume Next Application.ActivePrinter = tempPrinterName On Error GoTo 0 If Application.ActivePrinter = tempPrinterName Then GetFullNetworkPrinterName = tempPrinterName Exit Do End If i = i + 1 Loop Application.ActivePrinter = currentPrinterNameEnd Function
2010.01.04
2010.01.02
ImageMagick とはImageMagick とは、画像ファイルを加工するための機能を提供してくれるプログラムです。RMagick とはRMagick とは、ImageMagick を ruby で扱えるようにしたものです。ImageMagick のインストール(MacOSX で MacPorts を使ってインストールする場合)% sudo port install ImageMagickRMagick のインストール% sudo gem install rmagickコードを書くrequire 'RMagick'include MagickWIDTH = 650HEIGHT = 40# 画像リストを作成stripes = ImageList.new# グラデーションを作成top_grad = GradientFill.new(0, 0, WIDTH, 0, "#dddddd", "#888888")# グラデーション画像を作成image1 = Image.new(WIDTH, HEIGHT, top_grad)# グラデーション画像を保存image1.write('image1.png')# グラデーション画像をリストに追加stripes
2010.01.02
計算によって近い色を判別する方法require "rubygems"require "RMagick"include Magickimg = ImageList.new("kbmj-src.jpg")compare = Magick::Pixel.new(142*256,72*256,2*256) # この色と近い領域を探すreplace = Magick::Pixel.new(255*256,0,0) # この色で塗りつぶすfor y in 0...img.rows for x in 0...img.columns src = img.pixel_color(x, y) # 元画像のピクセルを取得 dr = src.red - compare.red # 赤要素の差 dg = src.green - compare.green # 緑要素の差 db = src.blue - compare.blue # 青要素の差 # RGB空間上において2つの色が近ければ置換する img.pixel_color(x, y, replace) if dr*dr + dg*dg + db*db < (30*256*30*256)*3 endendimg.write("kbmj-out.jpg")
2010.01.02
数学には直接関係ありませんが数値解析を行う場合、Rubyという言語を使っています。今回は画像処理について、まず、RMagick。RMagickとはその名のとおり、ImageMagickをrubyで扱えるようにしたものです。 ですのでRMagickを使う場合は、ruby本体,ImageMagick,RMagickの3つが必要です。今回はインストール方法は省きまして、インストール後の使い方とか機能について紹介します。 ImageMagickでできることはたいていRMagickでも出来ますので、rubyだと簡単にできることを知っていただければと・・・・ ■rmagickの使い方説明するよりも実際に試したほうがわかりやすいと思いますので、rubyとrmagickを使って画像処理をするサンプルコードを記載します。これを適当に保存して、画像を一枚用意していただき、実行すると画像処理され保存されていきますので、試してみてください。 サンプルだと、画像名はhogehoge.jpgを使っています。 -------------------------------------require "RMagick" #RMagickを使えるように#hogehoge.jpg画像を別名で保存img = Magick::ImageList.new("hogehoge.jpg")img.write("orig.jpg")#画像を反転し保存img = Magick::ImageList.new("orig.jpg")img_flop= img.flop #左右反転img_flip= img.flip #上下反転img_flop.write("flop.jpg")img_flip.write("flip.jpg")#2枚の画像をくっつける#同じサイズの画像じゃないとおかしなことに・・・・img_append = Magick::ImageList.new("orig.jpg","flop.jpg")img_append = img_append.append(false) #trueだと上下、falseだと左右にくっつけるimg_append.write("append.jpg")#画像に文字を挿入img_string = Magick::ImageList.new("orig.jpg")md = Magick::Draw.newmd.annotate(img_string, 0, 0, 0, 0, "hogehoge") domd.gravity = Magick::NorthGravity #表示位置#NorthWestGravity ( 左上 )#NorthGravity ( 上 )#NorthEastGravity ( 右上 )#WestGravity ( 左 )#CenterGravity ( 真中 )#EastGravity ( 右 )#SouthWestGravity ( 左下 )#SouthGravity ( 下 )#SouthEastGravity ( 右下 )md.pointsize = 30 #フォントサイズmd.fill = "blue" #文字色md.stroke = "yellow" #文字の縁取り色endimg_string.write("string.jpg")#波紋img = Magick::ImageList.new("orig.jpg")img_string=img_string.wave(amplitude=10.0, wavelength=100.0)img_string.write("wave.jpg")#画像をぼかすimg = Magick::ImageList.new("orig.jpg")motion_blur=img.blur_image(radius=10.0, sigma=10.0)motion_blur.write("blur.jpg")#画像の回転img = Magick::ImageList.new("orig.jpg")#右に90度回転rotate=img.rotate(90)#左回りの場合は-90#rotate=img.rotate(-90)rotate.write("rotate.jpg")#画像をねじる?img = Magick::ImageList.new("orig.jpg")swirl=img.swirl(360)swirl.write('swirl.jpg')#画像をねじる(gif動画)img = Magick::ImageList.new("orig.jpg")animation = Magick::ImageList.newanimation
2010.01.02
全8件 (8件中 1-8件目)
1