[Bijan goudarziParticipant]

Dear Duval,
As you said I used newer version of optiFDTD, for example free 32-bit or free 30-days v12.00 optiFDTD.All is ok by designing PCF structure and exporting refractive index exporting, but the problem is when I go to Mode analysis! There is no mode-solver tools with them. By the optiFDTD 8.0, there is a 3D mode solver (as tutorial refered) and I load my refractive index distribution file there, but there is not such a tool with optiFDTD-32 or v.12! may you guide me?

[Bijan goudarziParticipant]

Dear Marek,
Follow your tip, I went to design my PCF with optiMODE. I was going to do it base on OptiMode_User_Reference pdf file (section: OptiMode Tutorial 5- Photonic Crystal Fiber and VB script). but the script given by the tutorial return error and cant made the PCF structure. here is the exact script of the tutorial and at the end is the returned error,

‘ Make the hexagonal crystal lattice fibre of
‘ Optics Letters Vol.22 No. 13 p961 (1997)
Option Explicit
WGMgr.DeleteAll
Dim X0,Y0,Nperiods,i,j,YLevel,Pitch,HoleDiameter,x_coord
Dim wg_object, Xdefect, Ydefect, windowsz

windowsz = ParamMgr.EvaluateExpr(“window”)

Nperiods = 9
Pitch = 2.3
X0 = – (Nperiods/2 – 0.5) * Pitch
Y0 = – (Nperiods – 1) * (3)^(0.5) * Pitch / 2.0
HoleDiameter = 0.45 * Pitch

Xdefect = Nperiods
Ydefect = Nperiods

WGMgr.OutputMSG(” Periods = ” & Nperiods & ” Pitch = ” & Pitch & _
” Hole Diameter = ” & HoleDiameter)
‘ Create the lower half of the photonic crysal.
‘ Don’t put a waveguide at i = j = Nperiods
For j = 1 To Nperiods
YLevel = Y0 + (j-1) * (3)^(0.5) * Pitch / 2.0
If YLevel > – windowsz / 2 Then
For i = 1 To Nperiods + j – 1
x_coord = X0 + (i – 1) * Pitch – (j – 1) * Pitch / 2.0
If( (i<>Xdefect Or j<>Ydefect) And x_coord < windowsz / 2 _
And x_coord > – windowsz / 2 ) Then
Set wg_object = WGMgr.CreateObj(“WGLinearXS”, “Hole_”& _
CStr(j)&”_”&CStr(i) )
wg_object.SetStart x_coord, YLevel
wg_object.SetAttr “WidthExpr”, CStr(HoleDiameter)
wg_object.SetProfileName “Hole”
End If
Next
End If
Next

‘ Create the upper half of the photonic crystal
For j = Nperiods + 1 To 2 * Nperiods – 1
YLevel = Y0 + (j-1) * (3)^(0.5) * Pitch / 2.0
If YLevel < windowsz / 2 Then
For i = 1 To 3 * Nperiods – j – 1
x_coord = X0 + (i – 1) * Pitch + (j – 2 * Nperiods + 1) _
* Pitch / 2.0
If x_coord < windowsz / 2 And x_coord > – windowsz / 2 Then
Set wg_object = WGMgr.CreateObj(“WGLinearXS”, “Hole_” _
&CStr(j) &”_”&CStr(i) )

wg_object.SetStart x_coord, YLevel
wg_object.SetAttr “WidthExpr”, CStr(HoleDiameter)
wg_object.SetProfileName “Hole”
End If
Next
End If
Next

VB scripting: ‘Microsoft VBScript runtime error’ Line:25,char:4, ‘Type mismatch: ‘[string: “Error: Unknown varia”]”

*Line 25 is refered to: If YLevel > – windowsz / 2 Then

what is wrong with it?

[Bijan goudarziParticipant]

and its Refractive index distribution

[Bijan goudarziParticipant]

Dear Marek,
Here is my layout.

Attachments:

1. PCF_Holey.fdt

[Bijan goudarziParticipant]

Dear Sethi,
Is it possible to design a photonic crystal fiber in OptiFiber?