\u5148\u7a0b\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u306b\u30b0\u30e9\u30d5\u306e\u63cf\u753b\u6a5f\u80fd\u3092\u52a0\u3048\u305f\u3082\u306e<\/p>\n
\u30b9\u30da\u30fc\u30b9\u3001tab, comma\u306a\u3069\u3067\u533a\u5207\u3089\u308c\u305f2\u3064\u306e\u30c7\u30fc\u30bf\u30d5\u30a1\u30a4\u30eb\u3092\u57fa\u306b\u30b9\u30da\u30af\u30c8\u30eb\u3001\u5dee\u30b9\u30da\u30af\u30c8\u30eb\u306e\u63cf\u753b\u3092\u884c\u3044\u307e\u3059\u3002<\/p>\n
<\/p>\n
\n#pragma rtGlobals=1\t\t\/\/ Use modern global access method.\n\/\/ simple macros for unit conversion 1st Aug 2011 by T.Hayashi\n\/\/ A Macro for Data analysis implemented on 1st Aug 2011 by T. Hayashi\n\nMenu \"Raman\"\n\tSubmenu \"Calc\"\n\t\t\t\"WL2WN\"\n\t\t\t\"WN2WL\"\n\tend\n\tSubmenu \"Analysis\"\n\t\t\t\"Draw\"\n\t\t\t\"Add\"\n\t\t\t\"Dif\"\n\t\t\t\"BGsub\"\n\tend\nEnd\n\nfunction WL2WN()\n\tvariable laser=488,wl=500\n\tPrompt laser, \"Laser(nm)\"\n\tPrompt wl, \"wavelength(nm)\"\n\tDoPrompt \"Wave length to Wave number\",laser ,wl\n\tPrint wl, \"nm corresponds to Raman shift of\",(1e7\/laser)-(1e7\/wl),\" cm-1\",\"(LASER:\", laser,\"nm)\"\nEnd\n\nfunction WN2WL()\n\tvariable laser=488,wn=1400\n\tPrompt laser, \"Laser(nm)\"\n\tPrompt wn, \"wavenumber(cm-1)\"\n\tDoPrompt \"Wave length to Wave number\",laser ,wn\n\tPrint \" Raman shift of\",wn,\"cm-1 appears at\",1\/((1e7\/laser)-wn)*1e7,\" nm\",\"(LASER:\", laser,\"nm)\"\nEnd\n\nFunction Draw()\n\tLoadWave\/g\/n\/a=data\n\tspec1()\n\/\/ Use \"spec1\" as a test script\nend\n\nFunction Add()\n\tLoadWave\/g\/n\/a=data\n\tspec2()\n\/\/ Use \"spec2\" as a test script to append new data to the existing grapha\nend\n\nFunction Dif()\n\tLoadWave\/g\/n\/a=data, \"signal + BG\"\n\tLoadWave\/g\/n\/a=bg, \"BG\"\n\tspec3()\nEnd\n\nFunction BGsub()\n\tLoadWave\/g\/n\/a=data, \"signal + BG\"\n\tLoadWave\/g\/n\/a=bg, \"BG\"\n\tspec4()\nEnd\n\n\/\/\n\/\/ spec1 draws an initial graph\nFunction spec1()\n\tstring name\n\tvariable laser=488\n\tPrompt name, \"Data name\"\n\tPrompt laser, \"Excitation Laser\"\n\tDoPrompt \"Enter the data name\",name,laser\n\/\/\n\tstring int=\"_int\",cm=\"_cm\"\n\tDuplicate data0,wn_temp; duplicate data1,int_temp\n\twn_temp=(1e7\/laser)-(1e7\/wn_temp)\n\tDuplicate wn_temp,$(name+cm); duplicate int_temp,$(name+int)\n\tkillwaves data0,data1,wn_temp,int_temp\n\tAppendToTable $(name+int),$(name+cm)\n\/\/Draw Graph\n\tdisplay $(name+int) vs $(name+cm)\n\tLabel bottom \"Wavenumber (cm-1)\"\n\tLabel left \"Intensity (total counts)\"\n\tLegend\/C\/N=text0\/F=0\/A=MC\n\tModifyGraph width=400,height=300\nEnd\n\nFunction spec2()\n\/\/\n\tstring name\n\tvariable laser=488\n\tPrompt name, \"Data name\"\n\tPrompt laser, \"Excitation Laser\"\n\tDoPrompt \"Enter the data name\",name,laser\n\/\/\n\tstring int=\"_int\",cm=\"_cm\"\n\tDuplicate data0,wn_temp; duplicate data1,int_temp\n\twn_temp=(1e7\/laser)-(1e7\/wn_temp)\n\tDuplicate wn_temp,$(name+cm); duplicate int_temp,$(name+int)\n\tkillwaves data0,data1,wn_temp,int_temp\n\tAppendToTable $(name+int),$(name+cm)\n\tAppendToGraph $(name+int) vs $(name+cm)\n\tLegend\/C\/N=text0\/F=0\/A=MC\nEnd\n\nFunction spec3()\n\/\/\n\tstring name\n\tvariable laser=488\n\tPrompt name, \"Data name\"\n\tPrompt laser, \"Excitation Laser\"\n\tDoPrompt \"Enter the data name\",name,laser\n\/\/\n\tstring int=\"_int\",cm=\"_cm\"\n\tDuplicate data0,wn_temp; duplicate data1,int_temp\n\tDuplicate bg0,wnbg_temp; duplicate bg1,intbg_temp\n\twn_temp=(1e7\/laser)-(1e7\/wn_temp)\n\twnbg_temp=(1e7\/laser)-(1e7\/wnbg_temp)\n\tint_temp=int_temp-intbg_temp\n\tDuplicate wn_temp,$(name+cm); duplicate int_temp,$(name+int)\n\tkillwaves data0,data1,bg0,bg1,wn_temp,int_temp,wnbg_temp,intbg_temp\n\/\/\n\tdisplay $(name+int) vs $(name+cm)\n\tLabel bottom \"Wavenumber (cm-1)\"\n\tLabel left \"difference in spectra (counts)]\"\n\tLegend\/C\/N=text0\/F=0\/A=MC\n\tModifyGraph width=400,height=300\nEnd\n\nFunction spec4()\n\/\/\n\tstring name\n\tvariable laser=488\n\tPrompt name, \"Data name\"\n\tPrompt laser, \"Excitation Laser\"\n\tDoPrompt \"Enter the data name\",name,laser\n\/\/\n\tstring int=\"_int\",cm=\"_cm\"\n\tDuplicate data0,wn_temp; duplicate data1,int_temp\n\tDuplicate bg0,wnbg_temp; duplicate bg1,intbg_temp\n\twn_temp=(1e7\/laser)-(1e7\/wn_temp)\n\twnbg_temp=(1e7\/laser)-(1e7\/wnbg_temp)\n\tint_temp=int_temp-intbg_temp\n\tDuplicate wn_temp,$(name+cm); duplicate int_temp,$(name+int)\n\tkillwaves data0,data1,bg0,bg1,wn_temp,int_temp,wnbg_temp,intbg_temp\n\/\/\n\tdisplay $(name+int) vs $(name+cm)\n\tLabel bottom \"Wavenumber (cm-1)\"\n\tLabel left \"Intensity (BG subtracted ) counts\"\n\tLegend\/C\/N=text0\/F=0\/A=MC\n\tModifyGraph width=400,height=300\nEnd<\/pre>\n<\/blockquote>\n","protected":false},"excerpt":{"rendered":"\u5148\u7a0b\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u306b\u30b0\u30e9\u30d5\u306e\u63cf\u753b\u6a5f\u80fd\u3092\u52a0\u3048\u305f\u3082\u306e \u30b9\u30da\u30fc\u30b9\u3001tab, comma\u306a\u3069\u3067\u533a\u5207\u3089\u308c\u305f2\u3064\u306e\u30c7\u30fc\u30bf\u30d5\u30a1\u30a4\u30eb\u3092\u57fa\u306b\u30b9\u30da\u30af\u30c8\u30eb\u3001\u5dee\u30b9\u30da\u30af\u30c8\u30eb\u306e\u63cf\u753b\u3092\u884c\u3044\u307e\u3059\u3002 #pragma rtGlobals=1 \/ … “\u30b9\u30da\u30af\u30c8\u30eb\u63cf\u753b\u30b9\u30af\u30ea\u30d7\u30c8” \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[4],"tags":[],"class_list":["post-1003","post","type-post","status-publish","format-standard","hentry","category-igor"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p63pl9-gb","jetpack-related-posts":[],"_links":{"self":[{"href":"http:\/\/tomography.spm.jp\/index.php?rest_route=\/wp\/v2\/posts\/1003","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/tomography.spm.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/tomography.spm.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/tomography.spm.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/tomography.spm.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1003"}],"version-history":[{"count":0,"href":"http:\/\/tomography.spm.jp\/index.php?rest_route=\/wp\/v2\/posts\/1003\/revisions"}],"wp:attachment":[{"href":"http:\/\/tomography.spm.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1003"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/tomography.spm.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1003"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/tomography.spm.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1003"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}