A Selection and Analysis Tool for Fluorescence Recovery after Photobleaching (FRAP) Region of Interest (ROI)

ManipulateGrid{LocatorPane[Dynamic[pos],Dynamic[ArrayPlot[ImageData[myFRAP[[t]],Automatic],ColorFunctionGrayLevel,Epilog{Red,Dynamic[Circle[pos,rad]]},PlotRange{All,All}]]]},DynamicModule{roi,frapData},roi=Table[If[({i,j}-pos).({i,j}-pos)<

rad

,1,0],{j,1,dimy},{i,1,dimx}];frapData=Table[Plus@@(roiImageData[myFRAP[[i]],Automatic]//Flatten),{i,1,Length[myFRAP]}];Show

frapData

If[frapData〚1〛==0,1,frapData〚1〛]

//ListPlot[#,FrameTrue,FrameLabel{"image number (N)","intensity (A.U.)","ROI Intensity versus Image Number"},PlotRange{All,{0,1.3}}]&,Graphics[{Red,Dynamic[Line[{{t,0},{t,1.3}}]]}],ImageSize{400,300},{{t,5,"image number"},1,25,1},{{rad,15,"ROI radius"},1,30,1},{{pos,{88,30}},ControlTypeNone},TrackedSymbolsTrue,AutorunSequencing{1,2},SynchronousInitializationFalse,InitializationmyFRAP=